Hệ thống quản lý cho thuê ô tô trong c#

51.959 lượt xem;
  • ERPS_DBDataSet1.Designer.vb
  • project /
1 '------------------------------------------------------------------------------
2 ' <auto-generated>
3 ' This code was generated by a tool.
4 ' Runtime Version:4.0.30319.34209
5 '
6 ' Changes to this file may cause incorrect behavior and will be lost if
7 ' the code is regenerated.
8 ' </auto-generated>
9 '------------------------------------------------------------------------------
10
11 Option Strict Off
12 Option Explicit On
13
14
15
16 '''<summary>
17 '''Represents a strongly typed in-memory cache of data.
18 '''</summary>
19 <Global.System.Serializable(), _
20  Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
21  Global.System.ComponentModel.ToolboxItem(true), _
22  Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedDataSetSchema"), _
23  Global.System.Xml.Serialization.XmlRootAttribute("ERPS_DBDataSet1"), _
24  Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.DataSet")> _
25 Partial Public Class ERPS_DBDataSet1
26     Inherits Global.System.Data.DataSet
27     
28     Private tableActivation As ActivationDataTable
29     
30     Private tableAdvanceEntry As AdvanceEntryDataTable
31     
32     Private tableBusCardHolder_Staff As BusCardHolder_StaffDataTable
33     
34     Private tableBusCardHolder_Student As BusCardHolder_StudentDataTable
35     
36     Private tableBusFeePayment_Staff As BusFeePayment_StaffDataTable
37     
38     Private tableBusFeePayment_Student As BusFeePayment_StudentDataTable
39     
40     Private tableBusInfo As BusInfoDataTable
41     
42     Private tableCards_Staff As Cards_StaffDataTable
43     
44     Private tableCards_Student As Cards_StudentDataTable
45     
46     Private tableClass As ClassDataTable
47     
48     Private tableClassType As ClassTypeDataTable
49     
50     Private tableCourseFee As CourseFeeDataTable
51     
52     Private tableCourseFeePayment As CourseFeePaymentDataTable
53     
54     Private tableCourseFeePayment_Join As CourseFeePayment_JoinDataTable
55     
56     Private tableDepartment As DepartmentDataTable
57     
58     Private tableDesignation As DesignationDataTable
59     
60     Private tableDiscount As DiscountDataTable
61     
62     Private tableDiscount_Staff As Discount_StaffDataTable
63     
64     Private tableDocument As DocumentDataTable
65     
66     Private tableFee As FeeDataTable
67     
68     Private tableHosteler As HostelerDataTable
69     
70     Private tableHostelFeePayment As HostelFeePaymentDataTable
71     
72     Private tableHostelInfo As HostelInfoDataTable
73     
74     Private tableInstallment_Bus As Installment_BusDataTable
75     
76     Private tableInstallment_Hostel As Installment_HostelDataTable
77     
78     Private tableLocation As LocationDataTable
79     
80     Private tableLogs As LogsDataTable
81     
82     Private tableNoDues_Staff As NoDues_StaffDataTable
83     
84     Private tableNoDues_Student As NoDues_StudentDataTable
85     
86     Private tableRegistration As RegistrationDataTable
87     
88     Private tableSchoolInfo As SchoolInfoDataTable
89     
90     Private tableSchoolType As SchoolTypeDataTable
91     
92     Private tableSection As SectionDataTable
93     
94     Private tableSession_Master As Session_MasterDataTable
95     
96     Private tableStaff As StaffDataTable
97     
98     Private tableStaff_Department As Staff_DepartmentDataTable
99     
100     Private tableStaffAttendance As StaffAttendanceDataTable
101     
102     Private tableStaffPayment As StaffPaymentDataTable
103     
104     Private tableStudent As StudentDataTable
105     
106     Private tableStudentDocSubmitted As StudentDocSubmittedDataTable
107     
108     Private tableVoucher As VoucherDataTable
109     
110     Private tableVoucher_OtherDetails As Voucher_OtherDetailsDataTable
111     
112     Private relationFK_AdvanceEntry_Staff As Global.System.Data.DataRelation
113     
114     Private relationFK_BusCardHolder_Staff_BusInfo As Global.System.Data.DataRelation
115     
116     Private relationFK_BusCardHolder_Staff_Location As Global.System.Data.DataRelation
117     
118     Private relationFK_BusCardHolder_Staff_Staff As Global.System.Data.DataRelation
119     
120     Private relationFK_BusCardHolder_Student_BusInfo As Global.System.Data.DataRelation
121     
122     Private relationFK_BusCardHolder_Student_Location As Global.System.Data.DataRelation
123     
124     Private relationFK_BusHolder_Student As Global.System.Data.DataRelation
125     
126     Private relationFK_BusFeePayment_Staff_BusCardHolder_Staff As Global.System.Data.DataRelation
127     
128     Private relationFK_BusFeePayment_Student_BusCardHolder_Student As Global.System.Data.DataRelation
129     
130     Private relationFK_Cards_Staff_Staff As Global.System.Data.DataRelation
131     
132     Private relationFK_Cards_Student_Student As Global.System.Data.DataRelation
133     
134     Private relationFK_Class_ClassType As Global.System.Data.DataRelation
135     
136     Private relationFK_CourseFee_CourseFee As Global.System.Data.DataRelation
137     
138     Private relationFK_CourseFee_Fee As Global.System.Data.DataRelation
139     
140     Private relationFK_CourseFee_SchoolInfo As Global.System.Data.DataRelation
141     
142     Private relationFK_CourseFeePayment_Student As Global.System.Data.DataRelation
143     
144     Private relationFK_CourseFeePayment_Join_CourseFeePayment As Global.System.Data.DataRelation
145     
146     Private relationFK_Discount_Student As Global.System.Data.DataRelation
147     
148     Private relationFK_Discount_Staff_Staff As Global.System.Data.DataRelation
149     
150     Private relationFK_Hosteler_HostelInfo As Global.System.Data.DataRelation
151     
152     Private relationFK_Hosteler_Student As Global.System.Data.DataRelation
153     
154     Private relationFK_HostelFeePayment_Hosteler As Global.System.Data.DataRelation
155     
156     Private relationFK_Installment_Bus_Location As Global.System.Data.DataRelation
157     
158     Private relationFK_Installment_Hostel_Class As Global.System.Data.DataRelation
159     
160     Private relationFK_Installment_Hostel_HostelInfo As Global.System.Data.DataRelation
161     
162     Private relationFK_Installment_Hostel_SchoolInfo As Global.System.Data.DataRelation
163     
164     Private relationFK_Logs_Registration As Global.System.Data.DataRelation
165     
166     Private relationFK_NoDues_Staff_Staff As Global.System.Data.DataRelation
167     
168     Private relationFK_NoDues_Student_Student As Global.System.Data.DataRelation
169     
170     Private relationFK_SchoolInfo_SchoolType As Global.System.Data.DataRelation
171     
172     Private relationFK_Section_Class As Global.System.Data.DataRelation
173     
174     Private relationFK_Staff_ClassType As Global.System.Data.DataRelation
175     
176     Private relationFK_Staff_Designation As Global.System.Data.DataRelation
177     
178     Private relationFK_Staff_SchoolInfo As Global.System.Data.DataRelation
179     
180     Private relationFK_Staff_Department_Department As Global.System.Data.DataRelation
181     
182     Private relationFK_Staff_Department_Staff As Global.System.Data.DataRelation
183     
184     Private relationFK_StaffAttendance_Staff As Global.System.Data.DataRelation
185     
186     Private relationFK_StaffPayment_Staff As Global.System.Data.DataRelation
187     
188     Private relationFK_Student_SchoolInfo As Global.System.Data.DataRelation
189     
190     Private relationFK_Student_Section As Global.System.Data.DataRelation
191     
192     Private relationFK_Student_Session_Master As Global.System.Data.DataRelation
193     
194     Private relationFK_StudentDocSubmitted_Document As Global.System.Data.DataRelation
195     
196     Private relationFK_StudentDocSubmitted_Student As Global.System.Data.DataRelation
197     
198     Private relationFK_Voucher_SchoolInfo As Global.System.Data.DataRelation
199     
200     Private relationFK_Voucher_OtherDetails_Voucher As Global.System.Data.DataRelation
201     
202     Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema
203     
204     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
205      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
206     Public Sub New()
207         MyBase.New
208         Me.BeginInit
209         Me.InitClass
210         Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged
211         AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler
212         AddHandler MyBase.Relations.CollectionChanged, schemaChangedHandler
213         Me.EndInit
214     End Sub
215     
216     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
217      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
218     Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
219         MyBase.New(info, context, false)
220         If (Me.IsBinarySerialized(info, context) = true) Then
221             Me.InitVars(false)
222             Dim schemaChangedHandler1 As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged
223             AddHandler Me.Tables.CollectionChanged, schemaChangedHandler1
224             AddHandler Me.Relations.CollectionChanged, schemaChangedHandler1
225             Return
226         End If
227         Dim strSchema As String = CType(info.GetValue("XmlSchema", GetType(String)),String)
228         If (Me.DetermineSchemaSerializationMode(info, context) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then
229             Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet()
230             ds.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema)))
231             If (Not (ds.Tables("Activation")) Is Nothing) Then
232                 MyBase.Tables.Add(New ActivationDataTable(ds.Tables("Activation")))
233             End If
234             If (Not (ds.Tables("AdvanceEntry")) Is Nothing) Then
235                 MyBase.Tables.Add(New AdvanceEntryDataTable(ds.Tables("AdvanceEntry")))
236             End If
237             If (Not (ds.Tables("BusCardHolder_Staff")) Is Nothing) Then
238                 MyBase.Tables.Add(New BusCardHolder_StaffDataTable(ds.Tables("BusCardHolder_Staff")))
239             End If
240             If (Not (ds.Tables("BusCardHolder_Student")) Is Nothing) Then
241                 MyBase.Tables.Add(New BusCardHolder_StudentDataTable(ds.Tables("BusCardHolder_Student")))
242             End If
243             If (Not (ds.Tables("BusFeePayment_Staff")) Is Nothing) Then
244                 MyBase.Tables.Add(New BusFeePayment_StaffDataTable(ds.Tables("BusFeePayment_Staff")))
245             End If
246             If (Not (ds.Tables("BusFeePayment_Student")) Is Nothing) Then
247                 MyBase.Tables.Add(New BusFeePayment_StudentDataTable(ds.Tables("BusFeePayment_Student")))
248             End If
249             If (Not (ds.Tables("BusInfo")) Is Nothing) Then
250                 MyBase.Tables.Add(New BusInfoDataTable(ds.Tables("BusInfo")))
251             End If
252             If (Not (ds.Tables("Cards_Staff")) Is Nothing) Then
253                 MyBase.Tables.Add(New Cards_StaffDataTable(ds.Tables("Cards_Staff")))
254             End If
255             If (Not (ds.Tables("Cards_Student")) Is Nothing) Then
256                 MyBase.Tables.Add(New Cards_StudentDataTable(ds.Tables("Cards_Student")))
257             End If
258             If (Not (ds.Tables("Class")) Is Nothing) Then
259                 MyBase.Tables.Add(New ClassDataTable(ds.Tables("Class")))
260             End If
261             If (Not (ds.Tables("ClassType")) Is Nothing) Then
262                 MyBase.Tables.Add(New ClassTypeDataTable(ds.Tables("ClassType")))
263             End If
264             If (Not (ds.Tables("CourseFee")) Is Nothing) Then
265                 MyBase.Tables.Add(New CourseFeeDataTable(ds.Tables("CourseFee")))
266             End If
267             If (Not (ds.Tables("CourseFeePayment")) Is Nothing) Then
268                 MyBase.Tables.Add(New CourseFeePaymentDataTable(ds.Tables("CourseFeePayment")))
269             End If
270             If (Not (ds.Tables("CourseFeePayment_Join")) Is Nothing) Then
271                 MyBase.Tables.Add(New CourseFeePayment_JoinDataTable(ds.Tables("CourseFeePayment_Join")))
272             End If
273             If (Not (ds.Tables("Department")) Is Nothing) Then
274                 MyBase.Tables.Add(New DepartmentDataTable(ds.Tables("Department")))
275             End If
276             If (Not (ds.Tables("Designation")) Is Nothing) Then
277                 MyBase.Tables.Add(New DesignationDataTable(ds.Tables("Designation")))
278             End If
279             If (Not (ds.Tables("Discount")) Is Nothing) Then
280                 MyBase.Tables.Add(New DiscountDataTable(ds.Tables("Discount")))
281             End If
282             If (Not (ds.Tables("Discount_Staff")) Is Nothing) Then
283                 MyBase.Tables.Add(New Discount_StaffDataTable(ds.Tables("Discount_Staff")))
284             End If
285             If (Not (ds.Tables("Document")) Is Nothing) Then
286                 MyBase.Tables.Add(New DocumentDataTable(ds.Tables("Document")))
287             End If
288             If (Not (ds.Tables("Fee")) Is Nothing) Then
289                 MyBase.Tables.Add(New FeeDataTable(ds.Tables("Fee")))
290             End If
291             If (Not (ds.Tables("Hosteler")) Is Nothing) Then
292                 MyBase.Tables.Add(New HostelerDataTable(ds.Tables("Hosteler")))
293             End If
294             If (Not (ds.Tables("HostelFeePayment")) Is Nothing) Then
295                 MyBase.Tables.Add(New HostelFeePaymentDataTable(ds.Tables("HostelFeePayment")))
296             End If
297             If (Not (ds.Tables("HostelInfo")) Is Nothing) Then
298                 MyBase.Tables.Add(New HostelInfoDataTable(ds.Tables("HostelInfo")))
299             End If
300             If (Not (ds.Tables("Installment_Bus")) Is Nothing) Then
301                 MyBase.Tables.Add(New Installment_BusDataTable(ds.Tables("Installment_Bus")))
302             End If
303             If (Not (ds.Tables("Installment_Hostel")) Is Nothing) Then
304                 MyBase.Tables.Add(New Installment_HostelDataTable(ds.Tables("Installment_Hostel")))
305             End If
306             If (Not (ds.Tables("Location")) Is Nothing) Then
307                 MyBase.Tables.Add(New LocationDataTable(ds.Tables("Location")))
308             End If
309             If (Not (ds.Tables("Logs")) Is Nothing) Then
310                 MyBase.Tables.Add(New LogsDataTable(ds.Tables("Logs")))
311             End If
312             If (Not (ds.Tables("NoDues_Staff")) Is Nothing) Then
313                 MyBase.Tables.Add(New NoDues_StaffDataTable(ds.Tables("NoDues_Staff")))
314             End If
315             If (Not (ds.Tables("NoDues_Student")) Is Nothing) Then
316                 MyBase.Tables.Add(New NoDues_StudentDataTable(ds.Tables("NoDues_Student")))
317             End If
318             If (Not (ds.Tables("Registration")) Is Nothing) Then
319                 MyBase.Tables.Add(New RegistrationDataTable(ds.Tables("Registration")))
320             End If
321             If (Not (ds.Tables("SchoolInfo")) Is Nothing) Then
322                 MyBase.Tables.Add(New SchoolInfoDataTable(ds.Tables("SchoolInfo")))
323             End If
324             If (Not (ds.Tables("SchoolType")) Is Nothing) Then
325                 MyBase.Tables.Add(New SchoolTypeDataTable(ds.Tables("SchoolType")))
326             End If
327             If (Not (ds.Tables("Section")) Is Nothing) Then
328                 MyBase.Tables.Add(New SectionDataTable(ds.Tables("Section")))
329             End If
330             If (Not (ds.Tables("Session_Master")) Is Nothing) Then
331                 MyBase.Tables.Add(New Session_MasterDataTable(ds.Tables("Session_Master")))
332             End If
333             If (Not (ds.Tables("Staff")) Is Nothing) Then
334                 MyBase.Tables.Add(New StaffDataTable(ds.Tables("Staff")))
335             End If
336             If (Not (ds.Tables("Staff_Department")) Is Nothing) Then
337                 MyBase.Tables.Add(New Staff_DepartmentDataTable(ds.Tables("Staff_Department")))
338             End If
339             If (Not (ds.Tables("StaffAttendance")) Is Nothing) Then
340                 MyBase.Tables.Add(New StaffAttendanceDataTable(ds.Tables("StaffAttendance")))
341             End If
342             If (Not (ds.Tables("StaffPayment")) Is Nothing) Then
343                 MyBase.Tables.Add(New StaffPaymentDataTable(ds.Tables("StaffPayment")))
344             End If
345             If (Not (ds.Tables("Student")) Is Nothing) Then
346                 MyBase.Tables.Add(New StudentDataTable(ds.Tables("Student")))
347             End If
348             If (Not (ds.Tables("StudentDocSubmitted")) Is Nothing) Then
349                 MyBase.Tables.Add(New StudentDocSubmittedDataTable(ds.Tables("StudentDocSubmitted")))
350             End If
351             If (Not (ds.Tables("Voucher")) Is Nothing) Then
352                 MyBase.Tables.Add(New VoucherDataTable(ds.Tables("Voucher")))
353             End If
354             If (Not (ds.Tables("Voucher_OtherDetails")) Is Nothing) Then
355                 MyBase.Tables.Add(New Voucher_OtherDetailsDataTable(ds.Tables("Voucher_OtherDetails")))
356             End If
357             Me.DataSetName = ds.DataSetName
358             Me.Prefix = ds.Prefix
359             Me.Namespace = ds.Namespace
360             Me.Locale = ds.Locale
361             Me.CaseSensitive = ds.CaseSensitive
362             Me.EnforceConstraints = ds.EnforceConstraints
363             Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add)
364             Me.InitVars
365         Else
366             Me.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema)))
367         End If
368         Me.GetSerializationData(info, context)
369         Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged
370         AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler
371         AddHandler Me.Relations.CollectionChanged, schemaChangedHandler
372     End Sub
373     
374     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
375      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
376      Global.System.ComponentModel.Browsable(false), _
377      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
378     Public ReadOnly Property Activation() As ActivationDataTable
379         Get
380             Return Me.tableActivation
381         End Get
382     End Property
383     
384     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
385      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
386      Global.System.ComponentModel.Browsable(false), _
387      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
388     Public ReadOnly Property AdvanceEntry() As AdvanceEntryDataTable
389         Get
390             Return Me.tableAdvanceEntry
391         End Get
392     End Property
393     
394     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
395      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
396      Global.System.ComponentModel.Browsable(false), _
397      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
398     Public ReadOnly Property BusCardHolder_Staff() As BusCardHolder_StaffDataTable
399         Get
400             Return Me.tableBusCardHolder_Staff
401         End Get
402     End Property
403     
404     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
405      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
406      Global.System.ComponentModel.Browsable(false), _
407      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
408     Public ReadOnly Property BusCardHolder_Student() As BusCardHolder_StudentDataTable
409         Get
410             Return Me.tableBusCardHolder_Student
411         End Get
412     End Property
413     
414     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
415      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
416      Global.System.ComponentModel.Browsable(false), _
417      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
418     Public ReadOnly Property BusFeePayment_Staff() As BusFeePayment_StaffDataTable
419         Get
420             Return Me.tableBusFeePayment_Staff
421         End Get
422     End Property
423     
424     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
425      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
426      Global.System.ComponentModel.Browsable(false), _
427      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
428     Public ReadOnly Property BusFeePayment_Student() As BusFeePayment_StudentDataTable
429         Get
430             Return Me.tableBusFeePayment_Student
431         End Get
432     End Property
433     
434     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
435      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
436      Global.System.ComponentModel.Browsable(false), _
437      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
438     Public ReadOnly Property BusInfo() As BusInfoDataTable
439         Get
440             Return Me.tableBusInfo
441         End Get
442     End Property
443     
444     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
445      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
446      Global.System.ComponentModel.Browsable(false), _
447      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
448     Public ReadOnly Property Cards_Staff() As Cards_StaffDataTable
449         Get
450             Return Me.tableCards_Staff
451         End Get
452     End Property
453     
454     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
455      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
456      Global.System.ComponentModel.Browsable(false), _
457      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
458     Public ReadOnly Property Cards_Student() As Cards_StudentDataTable
459         Get
460             Return Me.tableCards_Student
461         End Get
462     End Property
463     
464     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
465      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
466      Global.System.ComponentModel.Browsable(false), _
467      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
468     Public ReadOnly Property _Class() As ClassDataTable
469         Get
470             Return Me.tableClass
471         End Get
472     End Property
473     
474     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
475      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
476      Global.System.ComponentModel.Browsable(false), _
477      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
478     Public ReadOnly Property ClassType() As ClassTypeDataTable
479         Get
480             Return Me.tableClassType
481         End Get
482     End Property
483     
484     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
485      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
486      Global.System.ComponentModel.Browsable(false), _
487      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
488     Public ReadOnly Property CourseFee() As CourseFeeDataTable
489         Get
490             Return Me.tableCourseFee
491         End Get
492     End Property
493     
494     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
495      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
496      Global.System.ComponentModel.Browsable(false), _
497      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
498     Public ReadOnly Property CourseFeePayment() As CourseFeePaymentDataTable
499         Get
500             Return Me.tableCourseFeePayment
501         End Get
502     End Property
503     
504     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
505      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
506      Global.System.ComponentModel.Browsable(false), _
507      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
508     Public ReadOnly Property CourseFeePayment_Join() As CourseFeePayment_JoinDataTable
509         Get
510             Return Me.tableCourseFeePayment_Join
511         End Get
512     End Property
513     
514     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
515      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
516      Global.System.ComponentModel.Browsable(false), _
517      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
518     Public ReadOnly Property Department() As DepartmentDataTable
519         Get
520             Return Me.tableDepartment
521         End Get
522     End Property
523     
524     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
525      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
526      Global.System.ComponentModel.Browsable(false), _
527      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
528     Public ReadOnly Property Designation() As DesignationDataTable
529         Get
530             Return Me.tableDesignation
531         End Get
532     End Property
533     
534     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
535      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
536      Global.System.ComponentModel.Browsable(false), _
537      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
538     Public ReadOnly Property Discount() As DiscountDataTable
539         Get
540             Return Me.tableDiscount
541         End Get
542     End Property
543     
544     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
545      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
546      Global.System.ComponentModel.Browsable(false), _
547      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
548     Public ReadOnly Property Discount_Staff() As Discount_StaffDataTable
549         Get
550             Return Me.tableDiscount_Staff
551         End Get
552     End Property
553     
554     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
555      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
556      Global.System.ComponentModel.Browsable(false), _
557      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
558     Public ReadOnly Property Document() As DocumentDataTable
559         Get
560             Return Me.tableDocument
561         End Get
562     End Property
563     
564     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
565      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
566      Global.System.ComponentModel.Browsable(false), _
567      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
568     Public ReadOnly Property Fee() As FeeDataTable
569         Get
570             Return Me.tableFee
571         End Get
572     End Property
573     
574     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
575      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
576      Global.System.ComponentModel.Browsable(false), _
577      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
578     Public ReadOnly Property Hosteler() As HostelerDataTable
579         Get
580             Return Me.tableHosteler
581         End Get
582     End Property
583     
584     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
585      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
586      Global.System.ComponentModel.Browsable(false), _
587      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
588     Public ReadOnly Property HostelFeePayment() As HostelFeePaymentDataTable
589         Get
590             Return Me.tableHostelFeePayment
591         End Get
592     End Property
593     
594     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
595      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
596      Global.System.ComponentModel.Browsable(false), _
597      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
598     Public ReadOnly Property HostelInfo() As HostelInfoDataTable
599         Get
600             Return Me.tableHostelInfo
601         End Get
602     End Property
603     
604     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
605      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
606      Global.System.ComponentModel.Browsable(false), _
607      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
608     Public ReadOnly Property Installment_Bus() As Installment_BusDataTable
609         Get
610             Return Me.tableInstallment_Bus
611         End Get
612     End Property
613     
614     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
615      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
616      Global.System.ComponentModel.Browsable(false), _
617      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
618     Public ReadOnly Property Installment_Hostel() As Installment_HostelDataTable
619         Get
620             Return Me.tableInstallment_Hostel
621         End Get
622     End Property
623     
624     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
625      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
626      Global.System.ComponentModel.Browsable(false), _
627      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
628     Public ReadOnly Property Location() As LocationDataTable
629         Get
630             Return Me.tableLocation
631         End Get
632     End Property
633     
634     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
635      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
636      Global.System.ComponentModel.Browsable(false), _
637      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
638     Public ReadOnly Property Logs() As LogsDataTable
639         Get
640             Return Me.tableLogs
641         End Get
642     End Property
643     
644     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
645      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
646      Global.System.ComponentModel.Browsable(false), _
647      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
648     Public ReadOnly Property NoDues_Staff() As NoDues_StaffDataTable
649         Get
650             Return Me.tableNoDues_Staff
651         End Get
652     End Property
653     
654     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
655      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
656      Global.System.ComponentModel.Browsable(false), _
657      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
658     Public ReadOnly Property NoDues_Student() As NoDues_StudentDataTable
659         Get
660             Return Me.tableNoDues_Student
661         End Get
662     End Property
663     
664     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
665      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
666      Global.System.ComponentModel.Browsable(false), _
667      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
668     Public ReadOnly Property Registration() As RegistrationDataTable
669         Get
670             Return Me.tableRegistration
671         End Get
672     End Property
673     
674     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
675      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
676      Global.System.ComponentModel.Browsable(false), _
677      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
678     Public ReadOnly Property SchoolInfo() As SchoolInfoDataTable
679         Get
680             Return Me.tableSchoolInfo
681         End Get
682     End Property
683     
684     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
685      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
686      Global.System.ComponentModel.Browsable(false), _
687      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
688     Public ReadOnly Property SchoolType() As SchoolTypeDataTable
689         Get
690             Return Me.tableSchoolType
691         End Get
692     End Property
693     
694     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
695      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
696      Global.System.ComponentModel.Browsable(false), _
697      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
698     Public ReadOnly Property Section() As SectionDataTable
699         Get
700             Return Me.tableSection
701         End Get
702     End Property
703     
704     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
705      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
706      Global.System.ComponentModel.Browsable(false), _
707      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
708     Public ReadOnly Property Session_Master() As Session_MasterDataTable
709         Get
710             Return Me.tableSession_Master
711         End Get
712     End Property
713     
714     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
715      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
716      Global.System.ComponentModel.Browsable(false), _
717      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
718     Public ReadOnly Property Staff() As StaffDataTable
719         Get
720             Return Me.tableStaff
721         End Get
722     End Property
723     
724     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
725      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
726      Global.System.ComponentModel.Browsable(false), _
727      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
728     Public ReadOnly Property Staff_Department() As Staff_DepartmentDataTable
729         Get
730             Return Me.tableStaff_Department
731         End Get
732     End Property
733     
734     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
735      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
736      Global.System.ComponentModel.Browsable(false), _
737      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
738     Public ReadOnly Property StaffAttendance() As StaffAttendanceDataTable
739         Get
740             Return Me.tableStaffAttendance
741         End Get
742     End Property
743     
744     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
745      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
746      Global.System.ComponentModel.Browsable(false), _
747      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
748     Public ReadOnly Property StaffPayment() As StaffPaymentDataTable
749         Get
750             Return Me.tableStaffPayment
751         End Get
752     End Property
753     
754     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
755      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
756      Global.System.ComponentModel.Browsable(false), _
757      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
758     Public ReadOnly Property Student() As StudentDataTable
759         Get
760             Return Me.tableStudent
761         End Get
762     End Property
763     
764     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
765      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
766      Global.System.ComponentModel.Browsable(false), _
767      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
768     Public ReadOnly Property StudentDocSubmitted() As StudentDocSubmittedDataTable
769         Get
770             Return Me.tableStudentDocSubmitted
771         End Get
772     End Property
773     
774     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
775      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
776      Global.System.ComponentModel.Browsable(false), _
777      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
778     Public ReadOnly Property Voucher() As VoucherDataTable
779         Get
780             Return Me.tableVoucher
781         End Get
782     End Property
783     
784     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
785      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
786      Global.System.ComponentModel.Browsable(false), _
787      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
788     Public ReadOnly Property Voucher_OtherDetails() As Voucher_OtherDetailsDataTable
789         Get
790             Return Me.tableVoucher_OtherDetails
791         End Get
792     End Property
793     
794     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
795      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
796      Global.System.ComponentModel.BrowsableAttribute(true), _
797      Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Visible)> _
798     Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode
799         Get
800             Return Me._schemaSerializationMode
801         End Get
802         Set
803             Me._schemaSerializationMode = value
804         End Set
805     End Property
806     
807     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
808      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
809      Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Hidden)> _
810     Public Shadows ReadOnly Property Tables() As Global.System.Data.DataTableCollection
811         Get
812             Return MyBase.Tables
813         End Get
814     End Property
815     
816     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
817      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
818      Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Hidden)> _
819     Public Shadows ReadOnly Property Relations() As Global.System.Data.DataRelationCollection
820         Get
821             Return MyBase.Relations
822         End Get
823     End Property
824     
825     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
826      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
827     Protected Overrides Sub InitializeDerivedDataSet()
828         Me.BeginInit
829         Me.InitClass
830         Me.EndInit
831     End Sub
832     
833     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
834      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
835     Public Overrides Function Clone() As Global.System.Data.DataSet
836         Dim cln As ERPS_DBDataSet1 = CType(MyBase.Clone,ERPS_DBDataSet1)
837         cln.InitVars
838         cln.SchemaSerializationMode = Me.SchemaSerializationMode
839         Return cln
840     End Function
841     
842     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
843      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
844     Protected Overrides Function ShouldSerializeTables() As Boolean
845         Return false
846     End Function
847     
848     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
849      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
850     Protected Overrides Function ShouldSerializeRelations() As Boolean
851         Return false
852     End Function
853     
854     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
855      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
856     Protected Overrides Sub ReadXmlSerializable(ByVal reader As Global.System.Xml.XmlReader)
857         If (Me.DetermineSchemaSerializationMode(reader) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then
858             Me.Reset
859             Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet()
860             ds.ReadXml(reader)
861             If (Not (ds.Tables("Activation")) Is Nothing) Then
862                 MyBase.Tables.Add(New ActivationDataTable(ds.Tables("Activation")))
863             End If
864             If (Not (ds.Tables("AdvanceEntry")) Is Nothing) Then
865                 MyBase.Tables.Add(New AdvanceEntryDataTable(ds.Tables("AdvanceEntry")))
866             End If
867             If (Not (ds.Tables("BusCardHolder_Staff")) Is Nothing) Then
868                 MyBase.Tables.Add(New BusCardHolder_StaffDataTable(ds.Tables("BusCardHolder_Staff")))
869             End If
870             If (Not (ds.Tables("BusCardHolder_Student")) Is Nothing) Then
871                 MyBase.Tables.Add(New BusCardHolder_StudentDataTable(ds.Tables("BusCardHolder_Student")))
872             End If
873             If (Not (ds.Tables("BusFeePayment_Staff")) Is Nothing) Then
874                 MyBase.Tables.Add(New BusFeePayment_StaffDataTable(ds.Tables("BusFeePayment_Staff")))
875             End If
876             If (Not (ds.Tables("BusFeePayment_Student")) Is Nothing) Then
877                 MyBase.Tables.Add(New BusFeePayment_StudentDataTable(ds.Tables("BusFeePayment_Student")))
878             End If
879             If (Not (ds.Tables("BusInfo")) Is Nothing) Then
880                 MyBase.Tables.Add(New BusInfoDataTable(ds.Tables("BusInfo")))
881             End If
882             If (Not (ds.Tables("Cards_Staff")) Is Nothing) Then
883                 MyBase.Tables.Add(New Cards_StaffDataTable(ds.Tables("Cards_Staff")))
884             End If
885             If (Not (ds.Tables("Cards_Student")) Is Nothing) Then
886                 MyBase.Tables.Add(New Cards_StudentDataTable(ds.Tables("Cards_Student")))
887             End If
888             If (Not (ds.Tables("Class")) Is Nothing) Then
889                 MyBase.Tables.Add(New ClassDataTable(ds.Tables("Class")))
890             End If
891             If (Not (ds.Tables("ClassType")) Is Nothing) Then
892                 MyBase.Tables.Add(New ClassTypeDataTable(ds.Tables("ClassType")))
893             End If
894             If (Not (ds.Tables("CourseFee")) Is Nothing) Then
895                 MyBase.Tables.Add(New CourseFeeDataTable(ds.Tables("CourseFee")))
896             End If
897             If (Not (ds.Tables("CourseFeePayment")) Is Nothing) Then
898                 MyBase.Tables.Add(New CourseFeePaymentDataTable(ds.Tables("CourseFeePayment")))
899             End If
900             If (Not (ds.Tables("CourseFeePayment_Join")) Is Nothing) Then
901                 MyBase.Tables.Add(New CourseFeePayment_JoinDataTable(ds.Tables("CourseFeePayment_Join")))
902             End If
903             If (Not (ds.Tables("Department")) Is Nothing) Then
904                 MyBase.Tables.Add(New DepartmentDataTable(ds.Tables("Department")))
905             End If
906             If (Not (ds.Tables("Designation")) Is Nothing) Then
907                 MyBase.Tables.Add(New DesignationDataTable(ds.Tables("Designation")))
908             End If
909             If (Not (ds.Tables("Discount")) Is Nothing) Then
910                 MyBase.Tables.Add(New DiscountDataTable(ds.Tables("Discount")))
911             End If
912             If (Not (ds.Tables("Discount_Staff")) Is Nothing) Then
913                 MyBase.Tables.Add(New Discount_StaffDataTable(ds.Tables("Discount_Staff")))
914             End If
915             If (Not (ds.Tables("Document")) Is Nothing) Then
916                 MyBase.Tables.Add(New DocumentDataTable(ds.Tables("Document")))
917             End If
918             If (Not (ds.Tables("Fee")) Is Nothing) Then
919                 MyBase.Tables.Add(New FeeDataTable(ds.Tables("Fee")))
920             End If
921             If (Not (ds.Tables("Hosteler")) Is Nothing) Then
922                 MyBase.Tables.Add(New HostelerDataTable(ds.Tables("Hosteler")))
923             End If
924             If (Not (ds.Tables("HostelFeePayment")) Is Nothing) Then
925                 MyBase.Tables.Add(New HostelFeePaymentDataTable(ds.Tables("HostelFeePayment")))
926             End If
927             If (Not (ds.Tables("HostelInfo")) Is Nothing) Then
928                 MyBase.Tables.Add(New HostelInfoDataTable(ds.Tables("HostelInfo")))
929             End If
930             If (Not (ds.Tables("Installment_Bus")) Is Nothing) Then
931                 MyBase.Tables.Add(New Installment_BusDataTable(ds.Tables("Installment_Bus")))
932             End If
933             If (Not (ds.Tables("Installment_Hostel")) Is Nothing) Then
934                 MyBase.Tables.Add(New Installment_HostelDataTable(ds.Tables("Installment_Hostel")))
935             End If
936             If (Not (ds.Tables("Location")) Is Nothing) Then
937                 MyBase.Tables.Add(New LocationDataTable(ds.Tables("Location")))
938             End If
939             If (Not (ds.Tables("Logs")) Is Nothing) Then
940                 MyBase.Tables.Add(New LogsDataTable(ds.Tables("Logs")))
941             End If
942             If (Not (ds.Tables("NoDues_Staff")) Is Nothing) Then
943                 MyBase.Tables.Add(New NoDues_StaffDataTable(ds.Tables("NoDues_Staff")))
944             End If
945             If (Not (ds.Tables("NoDues_Student")) Is Nothing) Then
946                 MyBase.Tables.Add(New NoDues_StudentDataTable(ds.Tables("NoDues_Student")))
947             End If
948             If (Not (ds.Tables("Registration")) Is Nothing) Then
949                 MyBase.Tables.Add(New RegistrationDataTable(ds.Tables("Registration")))
950             End If
951             If (Not (ds.Tables("SchoolInfo")) Is Nothing) Then
952                 MyBase.Tables.Add(New SchoolInfoDataTable(ds.Tables("SchoolInfo")))
953             End If
954             If (Not (ds.Tables("SchoolType")) Is Nothing) Then
955                 MyBase.Tables.Add(New SchoolTypeDataTable(ds.Tables("SchoolType")))
956             End If
957             If (Not (ds.Tables("Section")) Is Nothing) Then
958                 MyBase.Tables.Add(New SectionDataTable(ds.Tables("Section")))
959             End If
960             If (Not (ds.Tables("Session_Master")) Is Nothing) Then
961                 MyBase.Tables.Add(New Session_MasterDataTable(ds.Tables("Session_Master")))
962             End If
963             If (Not (ds.Tables("Staff")) Is Nothing) Then
964                 MyBase.Tables.Add(New StaffDataTable(ds.Tables("Staff")))
965             End If
966             If (Not (ds.Tables("Staff_Department")) Is Nothing) Then
967                 MyBase.Tables.Add(New Staff_DepartmentDataTable(ds.Tables("Staff_Department")))
968             End If
969             If (Not (ds.Tables("StaffAttendance")) Is Nothing) Then
970                 MyBase.Tables.Add(New StaffAttendanceDataTable(ds.Tables("StaffAttendance")))
971             End If
972             If (Not (ds.Tables("StaffPayment")) Is Nothing) Then
973                 MyBase.Tables.Add(New StaffPaymentDataTable(ds.Tables("StaffPayment")))
974             End If
975             If (Not (ds.Tables("Student")) Is Nothing) Then
976                 MyBase.Tables.Add(New StudentDataTable(ds.Tables("Student")))
977             End If
978             If (Not (ds.Tables("StudentDocSubmitted")) Is Nothing) Then
979                 MyBase.Tables.Add(New StudentDocSubmittedDataTable(ds.Tables("StudentDocSubmitted")))
980             End If
981             If (Not (ds.Tables("Voucher")) Is Nothing) Then
982                 MyBase.Tables.Add(New VoucherDataTable(ds.Tables("Voucher")))
983             End If
984             If (Not (ds.Tables("Voucher_OtherDetails")) Is Nothing) Then
985                 MyBase.Tables.Add(New Voucher_OtherDetailsDataTable(ds.Tables("Voucher_OtherDetails")))
986             End If
987             Me.DataSetName = ds.DataSetName
988             Me.Prefix = ds.Prefix
989             Me.Namespace = ds.Namespace
990             Me.Locale = ds.Locale
991             Me.CaseSensitive = ds.CaseSensitive
992             Me.EnforceConstraints = ds.EnforceConstraints
993             Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add)
994             Me.InitVars
995         Else
996             Me.ReadXml(reader)
997             Me.InitVars
998         End If
999     End Sub
1000     
1001     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1002      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1003     Protected Overrides Function GetSchemaSerializable() As Global.System.Xml.Schema.XmlSchema
1004         Dim stream As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
1005         Me.WriteXmlSchema(New Global.System.Xml.XmlTextWriter(stream, Nothing))
1006         stream.Position = 0
1007         Return Global.System.Xml.Schema.XmlSchema.Read(New Global.System.Xml.XmlTextReader(stream), Nothing)
1008     End Function
1009     
1010     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1011      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1012     Friend Overloads Sub InitVars()
1013         Me.InitVars(true)
1014     End Sub
1015     
1016     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1017      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1018     Friend Overloads Sub InitVars(ByVal initTable As Boolean)
1019         Me.tableActivation = CType(MyBase.Tables("Activation"),ActivationDataTable)
1020         If (initTable = true) Then
1021             If (Not (Me.tableActivation) Is Nothing) Then
1022                 Me.tableActivation.InitVars
1023             End If
1024         End If
1025         Me.tableAdvanceEntry = CType(MyBase.Tables("AdvanceEntry"),AdvanceEntryDataTable)
1026         If (initTable = true) Then
1027             If (Not (Me.tableAdvanceEntry) Is Nothing) Then
1028                 Me.tableAdvanceEntry.InitVars
1029             End If
1030         End If
1031         Me.tableBusCardHolder_Staff = CType(MyBase.Tables("BusCardHolder_Staff"),BusCardHolder_StaffDataTable)
1032         If (initTable = true) Then
1033             If (Not (Me.tableBusCardHolder_Staff) Is Nothing) Then
1034                 Me.tableBusCardHolder_Staff.InitVars
1035             End If
1036         End If
1037         Me.tableBusCardHolder_Student = CType(MyBase.Tables("BusCardHolder_Student"),BusCardHolder_StudentDataTable)
1038         If (initTable = true) Then
1039             If (Not (Me.tableBusCardHolder_Student) Is Nothing) Then
1040                 Me.tableBusCardHolder_Student.InitVars
1041             End If
1042         End If
1043         Me.tableBusFeePayment_Staff = CType(MyBase.Tables("BusFeePayment_Staff"),BusFeePayment_StaffDataTable)
1044         If (initTable = true) Then
1045             If (Not (Me.tableBusFeePayment_Staff) Is Nothing) Then
1046                 Me.tableBusFeePayment_Staff.InitVars
1047             End If
1048         End If
1049         Me.tableBusFeePayment_Student = CType(MyBase.Tables("BusFeePayment_Student"),BusFeePayment_StudentDataTable)
1050         If (initTable = true) Then
1051             If (Not (Me.tableBusFeePayment_Student) Is Nothing) Then
1052                 Me.tableBusFeePayment_Student.InitVars
1053             End If
1054         End If
1055         Me.tableBusInfo = CType(MyBase.Tables("BusInfo"),BusInfoDataTable)
1056         If (initTable = true) Then
1057             If (Not (Me.tableBusInfo) Is Nothing) Then
1058                 Me.tableBusInfo.InitVars
1059             End If
1060         End If
1061         Me.tableCards_Staff = CType(MyBase.Tables("Cards_Staff"),Cards_StaffDataTable)
1062         If (initTable = true) Then
1063             If (Not (Me.tableCards_Staff) Is Nothing) Then
1064                 Me.tableCards_Staff.InitVars
1065             End If
1066         End If
1067         Me.tableCards_Student = CType(MyBase.Tables("Cards_Student"),Cards_StudentDataTable)
1068         If (initTable = true) Then
1069             If (Not (Me.tableCards_Student) Is Nothing) Then
1070                 Me.tableCards_Student.InitVars
1071             End If
1072         End If
1073         Me.tableClass = CType(MyBase.Tables("Class"),ClassDataTable)
1074         If (initTable = true) Then
1075             If (Not (Me.tableClass) Is Nothing) Then
1076                 Me.tableClass.InitVars
1077             End If
1078         End If
1079         Me.tableClassType = CType(MyBase.Tables("ClassType"),ClassTypeDataTable)
1080         If (initTable = true) Then
1081             If (Not (Me.tableClassType) Is Nothing) Then
1082                 Me.tableClassType.InitVars
1083             End If
1084         End If
1085         Me.tableCourseFee = CType(MyBase.Tables("CourseFee"),CourseFeeDataTable)
1086         If (initTable = true) Then
1087             If (Not (Me.tableCourseFee) Is Nothing) Then
1088                 Me.tableCourseFee.InitVars
1089             End If
1090         End If
1091         Me.tableCourseFeePayment = CType(MyBase.Tables("CourseFeePayment"),CourseFeePaymentDataTable)
1092         If (initTable = true) Then
1093             If (Not (Me.tableCourseFeePayment) Is Nothing) Then
1094                 Me.tableCourseFeePayment.InitVars
1095             End If
1096         End If
1097         Me.tableCourseFeePayment_Join = CType(MyBase.Tables("CourseFeePayment_Join"),CourseFeePayment_JoinDataTable)
1098         If (initTable = true) Then
1099             If (Not (Me.tableCourseFeePayment_Join) Is Nothing) Then
1100                 Me.tableCourseFeePayment_Join.InitVars
1101             End If
1102         End If
1103         Me.tableDepartment = CType(MyBase.Tables("Department"),DepartmentDataTable)
1104         If (initTable = true) Then
1105             If (Not (Me.tableDepartment) Is Nothing) Then
1106                 Me.tableDepartment.InitVars
1107             End If
1108         End If
1109         Me.tableDesignation = CType(MyBase.Tables("Designation"),DesignationDataTable)
1110         If (initTable = true) Then
1111             If (Not (Me.tableDesignation) Is Nothing) Then
1112                 Me.tableDesignation.InitVars
1113             End If
1114         End If
1115         Me.tableDiscount = CType(MyBase.Tables("Discount"),DiscountDataTable)
1116         If (initTable = true) Then
1117             If (Not (Me.tableDiscount) Is Nothing) Then
1118                 Me.tableDiscount.InitVars
1119             End If
1120         End If
1121         Me.tableDiscount_Staff = CType(MyBase.Tables("Discount_Staff"),Discount_StaffDataTable)
1122         If (initTable = true) Then
1123             If (Not (Me.tableDiscount_Staff) Is Nothing) Then
1124                 Me.tableDiscount_Staff.InitVars
1125             End If
1126         End If
1127         Me.tableDocument = CType(MyBase.Tables("Document"),DocumentDataTable)
1128         If (initTable = true) Then
1129             If (Not (Me.tableDocument) Is Nothing) Then
1130                 Me.tableDocument.InitVars
1131             End If
1132         End If
1133         Me.tableFee = CType(MyBase.Tables("Fee"),FeeDataTable)
1134         If (initTable = true) Then
1135             If (Not (Me.tableFee) Is Nothing) Then
1136                 Me.tableFee.InitVars
1137             End If
1138         End If
1139         Me.tableHosteler = CType(MyBase.Tables("Hosteler"),HostelerDataTable)
1140         If (initTable = true) Then
1141             If (Not (Me.tableHosteler) Is Nothing) Then
1142                 Me.tableHosteler.InitVars
1143             End If
1144         End If
1145         Me.tableHostelFeePayment = CType(MyBase.Tables("HostelFeePayment"),HostelFeePaymentDataTable)
1146         If (initTable = true) Then
1147             If (Not (Me.tableHostelFeePayment) Is Nothing) Then
1148                 Me.tableHostelFeePayment.InitVars
1149             End If
1150         End If
1151         Me.tableHostelInfo = CType(MyBase.Tables("HostelInfo"),HostelInfoDataTable)
1152         If (initTable = true) Then
1153             If (Not (Me.tableHostelInfo) Is Nothing) Then
1154                 Me.tableHostelInfo.InitVars
1155             End If
1156         End If
1157         Me.tableInstallment_Bus = CType(MyBase.Tables("Installment_Bus"),Installment_BusDataTable)
1158         If (initTable = true) Then
1159             If (Not (Me.tableInstallment_Bus) Is Nothing) Then
1160                 Me.tableInstallment_Bus.InitVars
1161             End If
1162         End If
1163         Me.tableInstallment_Hostel = CType(MyBase.Tables("Installment_Hostel"),Installment_HostelDataTable)
1164         If (initTable = true) Then
1165             If (Not (Me.tableInstallment_Hostel) Is Nothing) Then
1166                 Me.tableInstallment_Hostel.InitVars
1167             End If
1168         End If
1169         Me.tableLocation = CType(MyBase.Tables("Location"),LocationDataTable)
1170         If (initTable = true) Then
1171             If (Not (Me.tableLocation) Is Nothing) Then
1172                 Me.tableLocation.InitVars
1173             End If
1174         End If
1175         Me.tableLogs = CType(MyBase.Tables("Logs"),LogsDataTable)
1176         If (initTable = true) Then
1177             If (Not (Me.tableLogs) Is Nothing) Then
1178                 Me.tableLogs.InitVars
1179             End If
1180         End If
1181         Me.tableNoDues_Staff = CType(MyBase.Tables("NoDues_Staff"),NoDues_StaffDataTable)
1182         If (initTable = true) Then
1183             If (Not (Me.tableNoDues_Staff) Is Nothing) Then
1184                 Me.tableNoDues_Staff.InitVars
1185             End If
1186         End If
1187         Me.tableNoDues_Student = CType(MyBase.Tables("NoDues_Student"),NoDues_StudentDataTable)
1188         If (initTable = true) Then
1189             If (Not (Me.tableNoDues_Student) Is Nothing) Then
1190                 Me.tableNoDues_Student.InitVars
1191             End If
1192         End If
1193         Me.tableRegistration = CType(MyBase.Tables("Registration"),RegistrationDataTable)
1194         If (initTable = true) Then
1195             If (Not (Me.tableRegistration) Is Nothing) Then
1196                 Me.tableRegistration.InitVars
1197             End If
1198         End If
1199         Me.tableSchoolInfo = CType(MyBase.Tables("SchoolInfo"),SchoolInfoDataTable)
1200         If (initTable = true) Then
1201             If (Not (Me.tableSchoolInfo) Is Nothing) Then
1202                 Me.tableSchoolInfo.InitVars
1203             End If
1204         End If
1205         Me.tableSchoolType = CType(MyBase.Tables("SchoolType"),SchoolTypeDataTable)
1206         If (initTable = true) Then
1207             If (Not (Me.tableSchoolType) Is Nothing) Then
1208                 Me.tableSchoolType.InitVars
1209             End If
1210         End If
1211         Me.tableSection = CType(MyBase.Tables("Section"),SectionDataTable)
1212         If (initTable = true) Then
1213             If (Not (Me.tableSection) Is Nothing) Then
1214                 Me.tableSection.InitVars
1215             End If
1216         End If
1217         Me.tableSession_Master = CType(MyBase.Tables("Session_Master"),Session_MasterDataTable)
1218         If (initTable = true) Then
1219             If (Not (Me.tableSession_Master) Is Nothing) Then
1220                 Me.tableSession_Master.InitVars
1221             End If
1222         End If
1223         Me.tableStaff = CType(MyBase.Tables("Staff"),StaffDataTable)
1224         If (initTable = true) Then
1225             If (Not (Me.tableStaff) Is Nothing) Then
1226                 Me.tableStaff.InitVars
1227             End If
1228         End If
1229         Me.tableStaff_Department = CType(MyBase.Tables("Staff_Department"),Staff_DepartmentDataTable)
1230         If (initTable = true) Then
1231             If (Not (Me.tableStaff_Department) Is Nothing) Then
1232                 Me.tableStaff_Department.InitVars
1233             End If
1234         End If
1235         Me.tableStaffAttendance = CType(MyBase.Tables("StaffAttendance"),StaffAttendanceDataTable)
1236         If (initTable = true) Then
1237             If (Not (Me.tableStaffAttendance) Is Nothing) Then
1238                 Me.tableStaffAttendance.InitVars
1239             End If
1240         End If
1241         Me.tableStaffPayment = CType(MyBase.Tables("StaffPayment"),StaffPaymentDataTable)
1242         If (initTable = true) Then
1243             If (Not (Me.tableStaffPayment) Is Nothing) Then
1244                 Me.tableStaffPayment.InitVars
1245             End If
1246         End If
1247         Me.tableStudent = CType(MyBase.Tables("Student"),StudentDataTable)
1248         If (initTable = true) Then
1249             If (Not (Me.tableStudent) Is Nothing) Then
1250                 Me.tableStudent.InitVars
1251             End If
1252         End If
1253         Me.tableStudentDocSubmitted = CType(MyBase.Tables("StudentDocSubmitted"),StudentDocSubmittedDataTable)
1254         If (initTable = true) Then
1255             If (Not (Me.tableStudentDocSubmitted) Is Nothing) Then
1256                 Me.tableStudentDocSubmitted.InitVars
1257             End If
1258         End If
1259         Me.tableVoucher = CType(MyBase.Tables("Voucher"),VoucherDataTable)
1260         If (initTable = true) Then
1261             If (Not (Me.tableVoucher) Is Nothing) Then
1262                 Me.tableVoucher.InitVars
1263             End If
1264         End If
1265         Me.tableVoucher_OtherDetails = CType(MyBase.Tables("Voucher_OtherDetails"),Voucher_OtherDetailsDataTable)
1266         If (initTable = true) Then
1267             If (Not (Me.tableVoucher_OtherDetails) Is Nothing) Then
1268                 Me.tableVoucher_OtherDetails.InitVars
1269             End If
1270         End If
1271         Me.relationFK_AdvanceEntry_Staff = Me.Relations("FK_AdvanceEntry_Staff")
1272         Me.relationFK_BusCardHolder_Staff_BusInfo = Me.Relations("FK_BusCardHolder_Staff_BusInfo")
1273         Me.relationFK_BusCardHolder_Staff_Location = Me.Relations("FK_BusCardHolder_Staff_Location")
1274         Me.relationFK_BusCardHolder_Staff_Staff = Me.Relations("FK_BusCardHolder_Staff_Staff")
1275         Me.relationFK_BusCardHolder_Student_BusInfo = Me.Relations("FK_BusCardHolder_Student_BusInfo")
1276         Me.relationFK_BusCardHolder_Student_Location = Me.Relations("FK_BusCardHolder_Student_Location")
1277         Me.relationFK_BusHolder_Student = Me.Relations("FK_BusHolder_Student")
1278         Me.relationFK_BusFeePayment_Staff_BusCardHolder_Staff = Me.Relations("FK_BusFeePayment_Staff_BusCardHolder_Staff")
1279         Me.relationFK_BusFeePayment_Student_BusCardHolder_Student = Me.Relations("FK_BusFeePayment_Student_BusCardHolder_Student")
1280         Me.relationFK_Cards_Staff_Staff = Me.Relations("FK_Cards_Staff_Staff")
1281         Me.relationFK_Cards_Student_Student = Me.Relations("FK_Cards_Student_Student")
1282         Me.relationFK_Class_ClassType = Me.Relations("FK_Class_ClassType")
1283         Me.relationFK_CourseFee_CourseFee = Me.Relations("FK_CourseFee_CourseFee")
1284         Me.relationFK_CourseFee_Fee = Me.Relations("FK_CourseFee_Fee")
1285         Me.relationFK_CourseFee_SchoolInfo = Me.Relations("FK_CourseFee_SchoolInfo")
1286         Me.relationFK_CourseFeePayment_Student = Me.Relations("FK_CourseFeePayment_Student")
1287         Me.relationFK_CourseFeePayment_Join_CourseFeePayment = Me.Relations("FK_CourseFeePayment_Join_CourseFeePayment")
1288         Me.relationFK_Discount_Student = Me.Relations("FK_Discount_Student")
1289         Me.relationFK_Discount_Staff_Staff = Me.Relations("FK_Discount_Staff_Staff")
1290         Me.relationFK_Hosteler_HostelInfo = Me.Relations("FK_Hosteler_HostelInfo")
1291         Me.relationFK_Hosteler_Student = Me.Relations("FK_Hosteler_Student")
1292         Me.relationFK_HostelFeePayment_Hosteler = Me.Relations("FK_HostelFeePayment_Hosteler")
1293         Me.relationFK_Installment_Bus_Location = Me.Relations("FK_Installment_Bus_Location")
1294         Me.relationFK_Installment_Hostel_Class = Me.Relations("FK_Installment_Hostel_Class")
1295         Me.relationFK_Installment_Hostel_HostelInfo = Me.Relations("FK_Installment_Hostel_HostelInfo")
1296         Me.relationFK_Installment_Hostel_SchoolInfo = Me.Relations("FK_Installment_Hostel_SchoolInfo")
1297         Me.relationFK_Logs_Registration = Me.Relations("FK_Logs_Registration")
1298         Me.relationFK_NoDues_Staff_Staff = Me.Relations("FK_NoDues_Staff_Staff")
1299         Me.relationFK_NoDues_Student_Student = Me.Relations("FK_NoDues_Student_Student")
1300         Me.relationFK_SchoolInfo_SchoolType = Me.Relations("FK_SchoolInfo_SchoolType")
1301         Me.relationFK_Section_Class = Me.Relations("FK_Section_Class")
1302         Me.relationFK_Staff_ClassType = Me.Relations("FK_Staff_ClassType")
1303         Me.relationFK_Staff_Designation = Me.Relations("FK_Staff_Designation")
1304         Me.relationFK_Staff_SchoolInfo = Me.Relations("FK_Staff_SchoolInfo")
1305         Me.relationFK_Staff_Department_Department = Me.Relations("FK_Staff_Department_Department")
1306         Me.relationFK_Staff_Department_Staff = Me.Relations("FK_Staff_Department_Staff")
1307         Me.relationFK_StaffAttendance_Staff = Me.Relations("FK_StaffAttendance_Staff")
1308         Me.relationFK_StaffPayment_Staff = Me.Relations("FK_StaffPayment_Staff")
1309         Me.relationFK_Student_SchoolInfo = Me.Relations("FK_Student_SchoolInfo")
1310         Me.relationFK_Student_Section = Me.Relations("FK_Student_Section")
1311         Me.relationFK_Student_Session_Master = Me.Relations("FK_Student_Session_Master")
1312         Me.relationFK_StudentDocSubmitted_Document = Me.Relations("FK_StudentDocSubmitted_Document")
1313         Me.relationFK_StudentDocSubmitted_Student = Me.Relations("FK_StudentDocSubmitted_Student")
1314         Me.relationFK_Voucher_SchoolInfo = Me.Relations("FK_Voucher_SchoolInfo")
1315         Me.relationFK_Voucher_OtherDetails_Voucher = Me.Relations("FK_Voucher_OtherDetails_Voucher")
1316     End Sub
1317     
1318     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1319      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1320     Private Sub InitClass()
1321         Me.DataSetName = "ERPS_DBDataSet1"
1322         Me.Prefix = ""
1323         Me.Namespace = "http://tempuri.org/ERPS_DBDataSet1.xsd"
1324         Me.EnforceConstraints = true
1325         Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema
1326         Me.tableActivation = New ActivationDataTable()
1327         MyBase.Tables.Add(Me.tableActivation)
1328         Me.tableAdvanceEntry = New AdvanceEntryDataTable()
1329         MyBase.Tables.Add(Me.tableAdvanceEntry)
1330         Me.tableBusCardHolder_Staff = New BusCardHolder_StaffDataTable()
1331         MyBase.Tables.Add(Me.tableBusCardHolder_Staff)
1332         Me.tableBusCardHolder_Student = New BusCardHolder_StudentDataTable()
1333         MyBase.Tables.Add(Me.tableBusCardHolder_Student)
1334         Me.tableBusFeePayment_Staff = New BusFeePayment_StaffDataTable()
1335         MyBase.Tables.Add(Me.tableBusFeePayment_Staff)
1336         Me.tableBusFeePayment_Student = New BusFeePayment_StudentDataTable()
1337         MyBase.Tables.Add(Me.tableBusFeePayment_Student)
1338         Me.tableBusInfo = New BusInfoDataTable()
1339         MyBase.Tables.Add(Me.tableBusInfo)
1340         Me.tableCards_Staff = New Cards_StaffDataTable()
1341         MyBase.Tables.Add(Me.tableCards_Staff)
1342         Me.tableCards_Student = New Cards_StudentDataTable()
1343         MyBase.Tables.Add(Me.tableCards_Student)
1344         Me.tableClass = New ClassDataTable()
1345         MyBase.Tables.Add(Me.tableClass)
1346         Me.tableClassType = New ClassTypeDataTable()
1347         MyBase.Tables.Add(Me.tableClassType)
1348         Me.tableCourseFee = New CourseFeeDataTable()
1349         MyBase.Tables.Add(Me.tableCourseFee)
1350         Me.tableCourseFeePayment = New CourseFeePaymentDataTable()
1351         MyBase.Tables.Add(Me.tableCourseFeePayment)
1352         Me.tableCourseFeePayment_Join = New CourseFeePayment_JoinDataTable()
1353         MyBase.Tables.Add(Me.tableCourseFeePayment_Join)
1354         Me.tableDepartment = New DepartmentDataTable()
1355         MyBase.Tables.Add(Me.tableDepartment)
1356         Me.tableDesignation = New DesignationDataTable()
1357         MyBase.Tables.Add(Me.tableDesignation)
1358         Me.tableDiscount = New DiscountDataTable()
1359         MyBase.Tables.Add(Me.tableDiscount)
1360         Me.tableDiscount_Staff = New Discount_StaffDataTable()
1361         MyBase.Tables.Add(Me.tableDiscount_Staff)
1362         Me.tableDocument = New DocumentDataTable()
1363         MyBase.Tables.Add(Me.tableDocument)
1364         Me.tableFee = New FeeDataTable()
1365         MyBase.Tables.Add(Me.tableFee)
1366         Me.tableHosteler = New HostelerDataTable()
1367         MyBase.Tables.Add(Me.tableHosteler)
1368         Me.tableHostelFeePayment = New HostelFeePaymentDataTable()
1369         MyBase.Tables.Add(Me.tableHostelFeePayment)
1370         Me.tableHostelInfo = New HostelInfoDataTable()
1371         MyBase.Tables.Add(Me.tableHostelInfo)
1372         Me.tableInstallment_Bus = New Installment_BusDataTable()
1373         MyBase.Tables.Add(Me.tableInstallment_Bus)
1374         Me.tableInstallment_Hostel = New Installment_HostelDataTable()
1375         MyBase.Tables.Add(Me.tableInstallment_Hostel)
1376         Me.tableLocation = New LocationDataTable()
1377         MyBase.Tables.Add(Me.tableLocation)
1378         Me.tableLogs = New LogsDataTable()
1379         MyBase.Tables.Add(Me.tableLogs)
1380         Me.tableNoDues_Staff = New NoDues_StaffDataTable()
1381         MyBase.Tables.Add(Me.tableNoDues_Staff)
1382         Me.tableNoDues_Student = New NoDues_StudentDataTable()
1383         MyBase.Tables.Add(Me.tableNoDues_Student)
1384         Me.tableRegistration = New RegistrationDataTable()
1385         MyBase.Tables.Add(Me.tableRegistration)
1386         Me.tableSchoolInfo = New SchoolInfoDataTable()
1387         MyBase.Tables.Add(Me.tableSchoolInfo)
1388         Me.tableSchoolType = New SchoolTypeDataTable()
1389         MyBase.Tables.Add(Me.tableSchoolType)
1390         Me.tableSection = New SectionDataTable()
1391         MyBase.Tables.Add(Me.tableSection)
1392         Me.tableSession_Master = New Session_MasterDataTable()
1393         MyBase.Tables.Add(Me.tableSession_Master)
1394         Me.tableStaff = New StaffDataTable()
1395         MyBase.Tables.Add(Me.tableStaff)
1396         Me.tableStaff_Department = New Staff_DepartmentDataTable()
1397         MyBase.Tables.Add(Me.tableStaff_Department)
1398         Me.tableStaffAttendance = New StaffAttendanceDataTable()
1399         MyBase.Tables.Add(Me.tableStaffAttendance)
1400         Me.tableStaffPayment = New StaffPaymentDataTable()
1401         MyBase.Tables.Add(Me.tableStaffPayment)
1402         Me.tableStudent = New StudentDataTable()
1403         MyBase.Tables.Add(Me.tableStudent)
1404         Me.tableStudentDocSubmitted = New StudentDocSubmittedDataTable()
1405         MyBase.Tables.Add(Me.tableStudentDocSubmitted)
1406         Me.tableVoucher = New VoucherDataTable()
1407         MyBase.Tables.Add(Me.tableVoucher)
1408         Me.tableVoucher_OtherDetails = New Voucher_OtherDetailsDataTable()
1409         MyBase.Tables.Add(Me.tableVoucher_OtherDetails)
1410         Me.relationFK_AdvanceEntry_Staff = New Global.System.Data.DataRelation("FK_AdvanceEntry_Staff", New Global.System.Data.DataColumn() {Me.tableStaff.St_IDColumn}, New Global.System.Data.DataColumn() {Me.tableAdvanceEntry.StaffIDColumn}, false)
1411         Me.Relations.Add(Me.relationFK_AdvanceEntry_Staff)
1412         Me.relationFK_BusCardHolder_Staff_BusInfo = New Global.System.Data.DataRelation("FK_BusCardHolder_Staff_BusInfo", New Global.System.Data.DataColumn() {Me.tableBusInfo.BusNoColumn}, New Global.System.Data.DataColumn() {Me.tableBusCardHolder_Staff.BusNoColumn}, false)
1413         Me.Relations.Add(Me.relationFK_BusCardHolder_Staff_BusInfo)
1414         Me.relationFK_BusCardHolder_Staff_Location = New Global.System.Data.DataRelation("FK_BusCardHolder_Staff_Location", New Global.System.Data.DataColumn() {Me.tableLocation.LocationNameColumn}, New Global.System.Data.DataColumn() {Me.tableBusCardHolder_Staff.LocationColumn}, false)
1415         Me.Relations.Add(Me.relationFK_BusCardHolder_Staff_Location)
1416         Me.relationFK_BusCardHolder_Staff_Staff = New Global.System.Data.DataRelation("FK_BusCardHolder_Staff_Staff", New Global.System.Data.DataColumn() {Me.tableStaff.St_IDColumn}, New Global.System.Data.DataColumn() {Me.tableBusCardHolder_Staff.StaffIDColumn}, false)
1417         Me.Relations.Add(Me.relationFK_BusCardHolder_Staff_Staff)
1418         Me.relationFK_BusCardHolder_Student_BusInfo = New Global.System.Data.DataRelation("FK_BusCardHolder_Student_BusInfo", New Global.System.Data.DataColumn() {Me.tableBusInfo.BusNoColumn}, New Global.System.Data.DataColumn() {Me.tableBusCardHolder_Student.BusNoColumn}, false)
1419         Me.Relations.Add(Me.relationFK_BusCardHolder_Student_BusInfo)
1420         Me.relationFK_BusCardHolder_Student_Location = New Global.System.Data.DataRelation("FK_BusCardHolder_Student_Location", New Global.System.Data.DataColumn() {Me.tableLocation.LocationNameColumn}, New Global.System.Data.DataColumn() {Me.tableBusCardHolder_Student.LocationColumn}, false)
1421         Me.Relations.Add(Me.relationFK_BusCardHolder_Student_Location)
1422         Me.relationFK_BusHolder_Student = New Global.System.Data.DataRelation("FK_BusHolder_Student", New Global.System.Data.DataColumn() {Me.tableStudent.AdmissionNoColumn}, New Global.System.Data.DataColumn() {Me.tableBusCardHolder_Student.AdmissionNoColumn}, false)
1423         Me.Relations.Add(Me.relationFK_BusHolder_Student)
1424         Me.relationFK_BusFeePayment_Staff_BusCardHolder_Staff = New Global.System.Data.DataRelation("FK_BusFeePayment_Staff_BusCardHolder_Staff", New Global.System.Data.DataColumn() {Me.tableBusCardHolder_Staff.BCH_IDColumn}, New Global.System.Data.DataColumn() {Me.tableBusFeePayment_Staff.BusHolderIDColumn}, false)
1425         Me.Relations.Add(Me.relationFK_BusFeePayment_Staff_BusCardHolder_Staff)
1426         Me.relationFK_BusFeePayment_Student_BusCardHolder_Student = New Global.System.Data.DataRelation("FK_BusFeePayment_Student_BusCardHolder_Student", New Global.System.Data.DataColumn() {Me.tableBusCardHolder_Student.BCH_IdColumn}, New Global.System.Data.DataColumn() {Me.tableBusFeePayment_Student.BusHolderIDColumn}, false)
1427         Me.Relations.Add(Me.relationFK_BusFeePayment_Student_BusCardHolder_Student)
1428         Me.relationFK_Cards_Staff_Staff = New Global.System.Data.DataRelation("FK_Cards_Staff_Staff", New Global.System.Data.DataColumn() {Me.tableStaff.St_IDColumn}, New Global.System.Data.DataColumn() {Me.tableCards_Staff.StaffIDColumn}, false)
1429         Me.Relations.Add(Me.relationFK_Cards_Staff_Staff)
1430         Me.relationFK_Cards_Student_Student = New Global.System.Data.DataRelation("FK_Cards_Student_Student", New Global.System.Data.DataColumn() {Me.tableStudent.AdmissionNoColumn}, New Global.System.Data.DataColumn() {Me.tableCards_Student.AdmissionNoColumn}, false)
1431         Me.Relations.Add(Me.relationFK_Cards_Student_Student)
1432         Me.relationFK_Class_ClassType = New Global.System.Data.DataRelation("FK_Class_ClassType", New Global.System.Data.DataColumn() {Me.tableClassType.TypeColumn}, New Global.System.Data.DataColumn() {Me.tableClass.ClassTypeColumn}, false)
1433         Me.Relations.Add(Me.relationFK_Class_ClassType)
1434         Me.relationFK_CourseFee_CourseFee = New Global.System.Data.DataRelation("FK_CourseFee_CourseFee", New Global.System.Data.DataColumn() {Me.tableClass.ClassNameColumn}, New Global.System.Data.DataColumn() {Me.tableCourseFee.ClassColumn}, false)
1435         Me.Relations.Add(Me.relationFK_CourseFee_CourseFee)
1436         Me.relationFK_CourseFee_Fee = New Global.System.Data.DataRelation("FK_CourseFee_Fee", New Global.System.Data.DataColumn() {Me.tableFee.FeenameColumn}, New Global.System.Data.DataColumn() {Me.tableCourseFee.FeeNameColumn}, false)
1437         Me.Relations.Add(Me.relationFK_CourseFee_Fee)
1438         Me.relationFK_CourseFee_SchoolInfo = New Global.System.Data.DataRelation("FK_CourseFee_SchoolInfo", New Global.System.Data.DataColumn() {Me.tableSchoolInfo.S_IdColumn}, New Global.System.Data.DataColumn() {Me.tableCourseFee.SchoolIDColumn}, false)
1439         Me.Relations.Add(Me.relationFK_CourseFee_SchoolInfo)
1440         Me.relationFK_CourseFeePayment_Student = New Global.System.Data.DataRelation("FK_CourseFeePayment_Student", New Global.System.Data.DataColumn() {Me.tableStudent.AdmissionNoColumn}, New Global.System.Data.DataColumn() {Me.tableCourseFeePayment.AdmissionNoColumn}, false)
1441         Me.Relations.Add(Me.relationFK_CourseFeePayment_Student)
1442         Me.relationFK_CourseFeePayment_Join_CourseFeePayment = New Global.System.Data.DataRelation("FK_CourseFeePayment_Join_CourseFeePayment", New Global.System.Data.DataColumn() {Me.tableCourseFeePayment.IdColumn}, New Global.System.Data.DataColumn() {Me.tableCourseFeePayment_Join.C_PaymentIDColumn}, false)
1443         Me.Relations.Add(Me.relationFK_CourseFeePayment_Join_CourseFeePayment)
1444         Me.relationFK_Discount_Student = New Global.System.Data.DataRelation("FK_Discount_Student", New Global.System.Data.DataColumn() {Me.tableStudent.AdmissionNoColumn}, New Global.System.Data.DataColumn() {Me.tableDiscount.AdmissionNoColumn}, false)
1445         Me.Relations.Add(Me.relationFK_Discount_Student)
1446         Me.relationFK_Discount_Staff_Staff = New Global.System.Data.DataRelation("FK_Discount_Staff_Staff", New Global.System.Data.DataColumn() {Me.tableStaff.St_IDColumn}, New Global.System.Data.DataColumn() {Me.tableDiscount_Staff.StaffIDColumn}, false)
1447         Me.Relations.Add(Me.relationFK_Discount_Staff_Staff)
1448         Me.relationFK_Hosteler_HostelInfo = New Global.System.Data.DataRelation("FK_Hosteler_HostelInfo", New Global.System.Data.DataColumn() {Me.tableHostelInfo.HI_IdColumn}, New Global.System.Data.DataColumn() {Me.tableHosteler.HostelIDColumn}, false)
1449         Me.Relations.Add(Me.relationFK_Hosteler_HostelInfo)
1450         Me.relationFK_Hosteler_Student = New Global.System.Data.DataRelation("FK_Hosteler_Student", New Global.System.Data.DataColumn() {Me.tableStudent.AdmissionNoColumn}, New Global.System.Data.DataColumn() {Me.tableHosteler.AdmissionNoColumn}, false)
1451         Me.Relations.Add(Me.relationFK_Hosteler_Student)
1452         Me.relationFK_HostelFeePayment_Hosteler = New Global.System.Data.DataRelation("FK_HostelFeePayment_Hosteler", New Global.System.Data.DataColumn() {Me.tableHosteler.H_IdColumn}, New Global.System.Data.DataColumn() {Me.tableHostelFeePayment.HostelerIDColumn}, false)
1453         Me.Relations.Add(Me.relationFK_HostelFeePayment_Hosteler)
1454         Me.relationFK_Installment_Bus_Location = New Global.System.Data.DataRelation("FK_Installment_Bus_Location", New Global.System.Data.DataColumn() {Me.tableLocation.LocationNameColumn}, New Global.System.Data.DataColumn() {Me.tableInstallment_Bus.LocationColumn}, false)
1455         Me.Relations.Add(Me.relationFK_Installment_Bus_Location)
1456         Me.relationFK_Installment_Hostel_Class = New Global.System.Data.DataRelation("FK_Installment_Hostel_Class", New Global.System.Data.DataColumn() {Me.tableClass.ClassNameColumn}, New Global.System.Data.DataColumn() {Me.tableInstallment_Hostel.ClassColumn}, false)
1457         Me.Relations.Add(Me.relationFK_Installment_Hostel_Class)
1458         Me.relationFK_Installment_Hostel_HostelInfo = New Global.System.Data.DataRelation("FK_Installment_Hostel_HostelInfo", New Global.System.Data.DataColumn() {Me.tableHostelInfo.HI_IdColumn}, New Global.System.Data.DataColumn() {Me.tableInstallment_Hostel.HostelIDColumn}, false)
1459         Me.Relations.Add(Me.relationFK_Installment_Hostel_HostelInfo)
1460         Me.relationFK_Installment_Hostel_SchoolInfo = New Global.System.Data.DataRelation("FK_Installment_Hostel_SchoolInfo", New Global.System.Data.DataColumn() {Me.tableSchoolInfo.S_IdColumn}, New Global.System.Data.DataColumn() {Me.tableInstallment_Hostel.SchoolIDColumn}, false)
1461         Me.Relations.Add(Me.relationFK_Installment_Hostel_SchoolInfo)
1462         Me.relationFK_Logs_Registration = New Global.System.Data.DataRelation("FK_Logs_Registration", New Global.System.Data.DataColumn() {Me.tableRegistration.UserIDColumn}, New Global.System.Data.DataColumn() {Me.tableLogs.UserIDColumn}, false)
1463         Me.Relations.Add(Me.relationFK_Logs_Registration)
1464         Me.relationFK_NoDues_Staff_Staff = New Global.System.Data.DataRelation("FK_NoDues_Staff_Staff", New Global.System.Data.DataColumn() {Me.tableStaff.St_IDColumn}, New Global.System.Data.DataColumn() {Me.tableNoDues_Staff.StaffIDColumn}, false)
1465         Me.Relations.Add(Me.relationFK_NoDues_Staff_Staff)
1466         Me.relationFK_NoDues_Student_Student = New Global.System.Data.DataRelation("FK_NoDues_Student_Student", New Global.System.Data.DataColumn() {Me.tableStudent.AdmissionNoColumn}, New Global.System.Data.DataColumn() {Me.tableNoDues_Student.AdmissionNoColumn}, false)
1467         Me.Relations.Add(Me.relationFK_NoDues_Student_Student)
1468         Me.relationFK_SchoolInfo_SchoolType = New Global.System.Data.DataRelation("FK_SchoolInfo_SchoolType", New Global.System.Data.DataColumn() {Me.tableSchoolType.TypeColumn}, New Global.System.Data.DataColumn() {Me.tableSchoolInfo.SchoolTypeColumn}, false)
1469         Me.Relations.Add(Me.relationFK_SchoolInfo_SchoolType)
1470         Me.relationFK_Section_Class = New Global.System.Data.DataRelation("FK_Section_Class", New Global.System.Data.DataColumn() {Me.tableClass.ClassNameColumn}, New Global.System.Data.DataColumn() {Me.tableSection.ClassColumn}, false)
1471         Me.Relations.Add(Me.relationFK_Section_Class)
1472         Me.relationFK_Staff_ClassType = New Global.System.Data.DataRelation("FK_Staff_ClassType", New Global.System.Data.DataColumn() {Me.tableClassType.TypeColumn}, New Global.System.Data.DataColumn() {Me.tableStaff.ClassTypeColumn}, false)
1473         Me.Relations.Add(Me.relationFK_Staff_ClassType)
1474         Me.relationFK_Staff_Designation = New Global.System.Data.DataRelation("FK_Staff_Designation", New Global.System.Data.DataColumn() {Me.tableDesignation.DesignationColumn}, New Global.System.Data.DataColumn() {Me.tableStaff.DesignationColumn}, false)
1475         Me.Relations.Add(Me.relationFK_Staff_Designation)
1476         Me.relationFK_Staff_SchoolInfo = New Global.System.Data.DataRelation("FK_Staff_SchoolInfo", New Global.System.Data.DataColumn() {Me.tableSchoolInfo.S_IdColumn}, New Global.System.Data.DataColumn() {Me.tableStaff.SchoolIDColumn}, false)
1477         Me.Relations.Add(Me.relationFK_Staff_SchoolInfo)
1478         Me.relationFK_Staff_Department_Department = New Global.System.Data.DataRelation("FK_Staff_Department_Department", New Global.System.Data.DataColumn() {Me.tableDepartment.idColumn}, New Global.System.Data.DataColumn() {Me.tableStaff_Department.DepartmentIDColumn}, false)
1479         Me.Relations.Add(Me.relationFK_Staff_Department_Department)
1480         Me.relationFK_Staff_Department_Staff = New Global.System.Data.DataRelation("FK_Staff_Department_Staff", New Global.System.Data.DataColumn() {Me.tableStaff.St_IDColumn}, New Global.System.Data.DataColumn() {Me.tableStaff_Department.StaffIDColumn}, false)
1481         Me.Relations.Add(Me.relationFK_Staff_Department_Staff)
1482         Me.relationFK_StaffAttendance_Staff = New Global.System.Data.DataRelation("FK_StaffAttendance_Staff", New Global.System.Data.DataColumn() {Me.tableStaff.St_IDColumn}, New Global.System.Data.DataColumn() {Me.tableStaffAttendance.StaffIDColumn}, false)
1483         Me.Relations.Add(Me.relationFK_StaffAttendance_Staff)
1484         Me.relationFK_StaffPayment_Staff = New Global.System.Data.DataRelation("FK_StaffPayment_Staff", New Global.System.Data.DataColumn() {Me.tableStaff.St_IDColumn}, New Global.System.Data.DataColumn() {Me.tableStaffPayment.StaffIDColumn}, false)
1485         Me.Relations.Add(Me.relationFK_StaffPayment_Staff)
1486         Me.relationFK_Student_SchoolInfo = New Global.System.Data.DataRelation("FK_Student_SchoolInfo", New Global.System.Data.DataColumn() {Me.tableSchoolInfo.S_IdColumn}, New Global.System.Data.DataColumn() {Me.tableStudent.SchoolIDColumn}, false)
1487         Me.Relations.Add(Me.relationFK_Student_SchoolInfo)
1488         Me.relationFK_Student_Section = New Global.System.Data.DataRelation("FK_Student_Section", New Global.System.Data.DataColumn() {Me.tableSection.IdColumn}, New Global.System.Data.DataColumn() {Me.tableStudent.SectionIDColumn}, false)
1489         Me.Relations.Add(Me.relationFK_Student_Section)
1490         Me.relationFK_Student_Session_Master = New Global.System.Data.DataRelation("FK_Student_Session_Master", New Global.System.Data.DataColumn() {Me.tableSession_Master.SessionColumn}, New Global.System.Data.DataColumn() {Me.tableStudent.SessionColumn}, false)
1491         Me.Relations.Add(Me.relationFK_Student_Session_Master)
1492         Me.relationFK_StudentDocSubmitted_Document = New Global.System.Data.DataRelation("FK_StudentDocSubmitted_Document", New Global.System.Data.DataColumn() {Me.tableDocument.Doc_IdColumn}, New Global.System.Data.DataColumn() {Me.tableStudentDocSubmitted.DocIdColumn}, false)
1493         Me.Relations.Add(Me.relationFK_StudentDocSubmitted_Document)
1494         Me.relationFK_StudentDocSubmitted_Student = New Global.System.Data.DataRelation("FK_StudentDocSubmitted_Student", New Global.System.Data.DataColumn() {Me.tableStudent.AdmissionNoColumn}, New Global.System.Data.DataColumn() {Me.tableStudentDocSubmitted.AdmissionNoColumn}, false)
1495         Me.Relations.Add(Me.relationFK_StudentDocSubmitted_Student)
1496         Me.relationFK_Voucher_SchoolInfo = New Global.System.Data.DataRelation("FK_Voucher_SchoolInfo", New Global.System.Data.DataColumn() {Me.tableSchoolInfo.S_IdColumn}, New Global.System.Data.DataColumn() {Me.tableVoucher.SchoolIDColumn}, false)
1497         Me.Relations.Add(Me.relationFK_Voucher_SchoolInfo)
1498         Me.relationFK_Voucher_OtherDetails_Voucher = New Global.System.Data.DataRelation("FK_Voucher_OtherDetails_Voucher", New Global.System.Data.DataColumn() {Me.tableVoucher.IDColumn}, New Global.System.Data.DataColumn() {Me.tableVoucher_OtherDetails.VoucherIDColumn}, false)
1499         Me.Relations.Add(Me.relationFK_Voucher_OtherDetails_Voucher)
1500     End Sub
1501     
1502     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1503      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1504     Private Function ShouldSerializeActivation() As Boolean
1505         Return false
1506     End Function
1507     
1508     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1509      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1510     Private Function ShouldSerializeAdvanceEntry() As Boolean
1511         Return false
1512     End Function
1513     
1514     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1515      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1516     Private Function ShouldSerializeBusCardHolder_Staff() As Boolean
1517         Return false
1518     End Function
1519     
1520     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1521      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1522     Private Function ShouldSerializeBusCardHolder_Student() As Boolean
1523         Return false
1524     End Function
1525     
1526     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1527      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1528     Private Function ShouldSerializeBusFeePayment_Staff() As Boolean
1529         Return false
1530     End Function
1531     
1532     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1533      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1534     Private Function ShouldSerializeBusFeePayment_Student() As Boolean
1535         Return false
1536     End Function
1537     
1538     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1539      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1540     Private Function ShouldSerializeBusInfo() As Boolean
1541         Return false
1542     End Function
1543     
1544     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1545      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1546     Private Function ShouldSerializeCards_Staff() As Boolean
1547         Return false
1548     End Function
1549     
1550     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1551      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1552     Private Function ShouldSerializeCards_Student() As Boolean
1553         Return false
1554     End Function
1555     
1556     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1557      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1558     Private Function ShouldSerialize_Class() As Boolean
1559         Return false
1560     End Function
1561     
1562     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1563      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1564     Private Function ShouldSerializeClassType() As Boolean
1565         Return false
1566     End Function
1567     
1568     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1569      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1570     Private Function ShouldSerializeCourseFee() As Boolean
1571         Return false
1572     End Function
1573     
1574     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1575      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1576     Private Function ShouldSerializeCourseFeePayment() As Boolean
1577         Return false
1578     End Function
1579     
1580     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1581      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1582     Private Function ShouldSerializeCourseFeePayment_Join() As Boolean
1583         Return false
1584     End Function
1585     
1586     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1587      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1588     Private Function ShouldSerializeDepartment() As Boolean
1589         Return false
1590     End Function
1591     
1592     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1593      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1594     Private Function ShouldSerializeDesignation() As Boolean
1595         Return false
1596     End Function
1597     
1598     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1599      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1600     Private Function ShouldSerializeDiscount() As Boolean
1601         Return false
1602     End Function
1603     
1604     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1605      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1606     Private Function ShouldSerializeDiscount_Staff() As Boolean
1607         Return false
1608     End Function
1609     
1610     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1611      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1612     Private Function ShouldSerializeDocument() As Boolean
1613         Return false
1614     End Function
1615     
1616     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1617      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1618     Private Function ShouldSerializeFee() As Boolean
1619         Return false
1620     End Function
1621     
1622     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1623      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1624     Private Function ShouldSerializeHosteler() As Boolean
1625         Return false
1626     End Function
1627     
1628     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1629      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1630     Private Function ShouldSerializeHostelFeePayment() As Boolean
1631         Return false
1632     End Function
1633     
1634     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1635      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1636     Private Function ShouldSerializeHostelInfo() As Boolean
1637         Return false
1638     End Function
1639     
1640     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1641      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1642     Private Function ShouldSerializeInstallment_Bus() As Boolean
1643         Return false
1644     End Function
1645     
1646     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1647      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1648     Private Function ShouldSerializeInstallment_Hostel() As Boolean
1649         Return false
1650     End Function
1651     
1652     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1653      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1654     Private Function ShouldSerializeLocation() As Boolean
1655         Return false
1656     End Function
1657     
1658     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1659      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1660     Private Function ShouldSerializeLogs() As Boolean
1661         Return false
1662     End Function
1663     
1664     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1665      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1666     Private Function ShouldSerializeNoDues_Staff() As Boolean
1667         Return false
1668     End Function
1669     
1670     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1671      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1672     Private Function ShouldSerializeNoDues_Student() As Boolean
1673         Return false
1674     End Function
1675     
1676     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1677      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1678     Private Function ShouldSerializeRegistration() As Boolean
1679         Return false
1680     End Function
1681     
1682     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1683      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1684     Private Function ShouldSerializeSchoolInfo() As Boolean
1685         Return false
1686     End Function
1687     
1688     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1689      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1690     Private Function ShouldSerializeSchoolType() As Boolean
1691         Return false
1692     End Function
1693     
1694     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1695      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1696     Private Function ShouldSerializeSection() As Boolean
1697         Return false
1698     End Function
1699     
1700     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1701      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1702     Private Function ShouldSerializeSession_Master() As Boolean
1703         Return false
1704     End Function
1705     
1706     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1707      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1708     Private Function ShouldSerializeStaff() As Boolean
1709         Return false
1710     End Function
1711     
1712     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1713      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1714     Private Function ShouldSerializeStaff_Department() As Boolean
1715         Return false
1716     End Function
1717     
1718     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1719      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1720     Private Function ShouldSerializeStaffAttendance() As Boolean
1721         Return false
1722     End Function
1723     
1724     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1725      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1726     Private Function ShouldSerializeStaffPayment() As Boolean
1727         Return false
1728     End Function
1729     
1730     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1731      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1732     Private Function ShouldSerializeStudent() As Boolean
1733         Return false
1734     End Function
1735     
1736     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1737      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1738     Private Function ShouldSerializeStudentDocSubmitted() As Boolean
1739         Return false
1740     End Function
1741     
1742     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1743      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1744     Private Function ShouldSerializeVoucher() As Boolean
1745         Return false
1746     End Function
1747     
1748     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1749      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1750     Private Function ShouldSerializeVoucher_OtherDetails() As Boolean
1751         Return false
1752     End Function
1753     
1754     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1755      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1756     Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs)
1757         If (e.Action = Global.System.ComponentModel.CollectionChangeAction.Remove) Then
1758             Me.InitVars
1759         End If
1760     End Sub
1761     
1762     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1763      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1764     Public Shared Function GetTypedDataSetSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
1765         Dim ds As ERPS_DBDataSet1 = New ERPS_DBDataSet1()
1766         Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
1767         Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
1768         Dim any As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
1769         any.Namespace = ds.Namespace
1770         sequence.Items.Add(any)
1771         type.Particle = sequence
1772         Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
1773         If xs.Contains(dsSchema.TargetNamespace) Then
1774             Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
1775             Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
1776             Try
1777                 Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
1778                 dsSchema.Write(s1)
1779                 Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
1780                 Do While schemas.MoveNext
1781                     schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
1782                     s2.SetLength(0)
1783                     schema.Write(s2)
1784                     If (s1.Length = s2.Length) Then
1785                         s1.Position = 0
1786                         s2.Position = 0
1787                         
1788                         Do While ((s1.Position <> s1.Length) _
1789                                     AndAlso (s1.ReadByte = s2.ReadByte))
1790                             
1791                             
1792                         Loop
1793                         If (s1.Position = s1.Length) Then
1794                             Return type
1795                         End If
1796                     End If
1797                     
1798                 Loop
1799             Finally
1800                 If (Not (s1) Is Nothing) Then
1801                     s1.Close
1802                 End If
1803                 If (Not (s2) Is Nothing) Then
1804                     s2.Close
1805                 End If
1806             End Try
1807         End If
1808         xs.Add(dsSchema)
1809         Return type
1810     End Function
1811     
1812     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1813     Public Delegate Sub ActivationRowChangeEventHandler(ByVal sender As Object, ByVal e As ActivationRowChangeEvent)
1814     
1815     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1816     Public Delegate Sub AdvanceEntryRowChangeEventHandler(ByVal sender As Object, ByVal e As AdvanceEntryRowChangeEvent)
1817     
1818     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1819     Public Delegate Sub BusCardHolder_StaffRowChangeEventHandler(ByVal sender As Object, ByVal e As BusCardHolder_StaffRowChangeEvent)
1820     
1821     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1822     Public Delegate Sub BusCardHolder_StudentRowChangeEventHandler(ByVal sender As Object, ByVal e As BusCardHolder_StudentRowChangeEvent)
1823     
1824     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1825     Public Delegate Sub BusFeePayment_StaffRowChangeEventHandler(ByVal sender As Object, ByVal e As BusFeePayment_StaffRowChangeEvent)
1826     
1827     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1828     Public Delegate Sub BusFeePayment_StudentRowChangeEventHandler(ByVal sender As Object, ByVal e As BusFeePayment_StudentRowChangeEvent)
1829     
1830     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1831     Public Delegate Sub BusInfoRowChangeEventHandler(ByVal sender As Object, ByVal e As BusInfoRowChangeEvent)
1832     
1833     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1834     Public Delegate Sub Cards_StaffRowChangeEventHandler(ByVal sender As Object, ByVal e As Cards_StaffRowChangeEvent)
1835     
1836     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1837     Public Delegate Sub Cards_StudentRowChangeEventHandler(ByVal sender As Object, ByVal e As Cards_StudentRowChangeEvent)
1838     
1839     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1840     Public Delegate Sub ClassRowChangeEventHandler(ByVal sender As Object, ByVal e As ClassRowChangeEvent)
1841     
1842     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1843     Public Delegate Sub ClassTypeRowChangeEventHandler(ByVal sender As Object, ByVal e As ClassTypeRowChangeEvent)
1844     
1845     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1846     Public Delegate Sub CourseFeeRowChangeEventHandler(ByVal sender As Object, ByVal e As CourseFeeRowChangeEvent)
1847     
1848     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1849     Public Delegate Sub CourseFeePaymentRowChangeEventHandler(ByVal sender As Object, ByVal e As CourseFeePaymentRowChangeEvent)
1850     
1851     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1852     Public Delegate Sub CourseFeePayment_JoinRowChangeEventHandler(ByVal sender As Object, ByVal e As CourseFeePayment_JoinRowChangeEvent)
1853     
1854     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1855     Public Delegate Sub DepartmentRowChangeEventHandler(ByVal sender As Object, ByVal e As DepartmentRowChangeEvent)
1856     
1857     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1858     Public Delegate Sub DesignationRowChangeEventHandler(ByVal sender As Object, ByVal e As DesignationRowChangeEvent)
1859     
1860     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1861     Public Delegate Sub DiscountRowChangeEventHandler(ByVal sender As Object, ByVal e As DiscountRowChangeEvent)
1862     
1863     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1864     Public Delegate Sub Discount_StaffRowChangeEventHandler(ByVal sender As Object, ByVal e As Discount_StaffRowChangeEvent)
1865     
1866     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1867     Public Delegate Sub DocumentRowChangeEventHandler(ByVal sender As Object, ByVal e As DocumentRowChangeEvent)
1868     
1869     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1870     Public Delegate Sub FeeRowChangeEventHandler(ByVal sender As Object, ByVal e As FeeRowChangeEvent)
1871     
1872     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1873     Public Delegate Sub HostelerRowChangeEventHandler(ByVal sender As Object, ByVal e As HostelerRowChangeEvent)
1874     
1875     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1876     Public Delegate Sub HostelFeePaymentRowChangeEventHandler(ByVal sender As Object, ByVal e As HostelFeePaymentRowChangeEvent)
1877     
1878     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1879     Public Delegate Sub HostelInfoRowChangeEventHandler(ByVal sender As Object, ByVal e As HostelInfoRowChangeEvent)
1880     
1881     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1882     Public Delegate Sub Installment_BusRowChangeEventHandler(ByVal sender As Object, ByVal e As Installment_BusRowChangeEvent)
1883     
1884     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1885     Public Delegate Sub Installment_HostelRowChangeEventHandler(ByVal sender As Object, ByVal e As Installment_HostelRowChangeEvent)
1886     
1887     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1888     Public Delegate Sub LocationRowChangeEventHandler(ByVal sender As Object, ByVal e As LocationRowChangeEvent)
1889     
1890     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1891     Public Delegate Sub LogsRowChangeEventHandler(ByVal sender As Object, ByVal e As LogsRowChangeEvent)
1892     
1893     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1894     Public Delegate Sub NoDues_StaffRowChangeEventHandler(ByVal sender As Object, ByVal e As NoDues_StaffRowChangeEvent)
1895     
1896     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1897     Public Delegate Sub NoDues_StudentRowChangeEventHandler(ByVal sender As Object, ByVal e As NoDues_StudentRowChangeEvent)
1898     
1899     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1900     Public Delegate Sub RegistrationRowChangeEventHandler(ByVal sender As Object, ByVal e As RegistrationRowChangeEvent)
1901     
1902     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1903     Public Delegate Sub SchoolInfoRowChangeEventHandler(ByVal sender As Object, ByVal e As SchoolInfoRowChangeEvent)
1904     
1905     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1906     Public Delegate Sub SchoolTypeRowChangeEventHandler(ByVal sender As Object, ByVal e As SchoolTypeRowChangeEvent)
1907     
1908     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1909     Public Delegate Sub SectionRowChangeEventHandler(ByVal sender As Object, ByVal e As SectionRowChangeEvent)
1910     
1911     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1912     Public Delegate Sub Session_MasterRowChangeEventHandler(ByVal sender As Object, ByVal e As Session_MasterRowChangeEvent)
1913     
1914     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1915     Public Delegate Sub StaffRowChangeEventHandler(ByVal sender As Object, ByVal e As StaffRowChangeEvent)
1916     
1917     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1918     Public Delegate Sub Staff_DepartmentRowChangeEventHandler(ByVal sender As Object, ByVal e As Staff_DepartmentRowChangeEvent)
1919     
1920     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1921     Public Delegate Sub StaffAttendanceRowChangeEventHandler(ByVal sender As Object, ByVal e As StaffAttendanceRowChangeEvent)
1922     
1923     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1924     Public Delegate Sub StaffPaymentRowChangeEventHandler(ByVal sender As Object, ByVal e As StaffPaymentRowChangeEvent)
1925     
1926     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1927     Public Delegate Sub StudentRowChangeEventHandler(ByVal sender As Object, ByVal e As StudentRowChangeEvent)
1928     
1929     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1930     Public Delegate Sub StudentDocSubmittedRowChangeEventHandler(ByVal sender As Object, ByVal e As StudentDocSubmittedRowChangeEvent)
1931     
1932     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1933     Public Delegate Sub VoucherRowChangeEventHandler(ByVal sender As Object, ByVal e As VoucherRowChangeEvent)
1934     
1935     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1936     Public Delegate Sub Voucher_OtherDetailsRowChangeEventHandler(ByVal sender As Object, ByVal e As Voucher_OtherDetailsRowChangeEvent)
1937     
1938     '''<summary>
1939     '''Represents the strongly named DataTable class.
1940     '''</summary>
1941     <Global.System.Serializable(), _
1942      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
1943     Partial Public Class ActivationDataTable
1944         Inherits Global.System.Data.TypedTableBase(Of ActivationRow)
1945         
1946         Private columnId As Global.System.Data.DataColumn
1947         
1948         Private columnHardwareID As Global.System.Data.DataColumn
1949         
1950         Private columnSerialNo As Global.System.Data.DataColumn
1951         
1952         Private columnActivationID As Global.System.Data.DataColumn
1953         
1954         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1955          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1956         Public Sub New()
1957             MyBase.New
1958             Me.TableName = "Activation"
1959             Me.BeginInit
1960             Me.InitClass
1961             Me.EndInit
1962         End Sub
1963         
1964         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1965          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1966         Friend Sub New(ByVal table As Global.System.Data.DataTable)
1967             MyBase.New
1968             Me.TableName = table.TableName
1969             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
1970                 Me.CaseSensitive = table.CaseSensitive
1971             End If
1972             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
1973                 Me.Locale = table.Locale
1974             End If
1975             If (table.Namespace <> table.DataSet.Namespace) Then
1976                 Me.Namespace = table.Namespace
1977             End If
1978             Me.Prefix = table.Prefix
1979             Me.MinimumCapacity = table.MinimumCapacity
1980         End Sub
1981         
1982         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1983          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1984         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
1985             MyBase.New(info, context)
1986             Me.InitVars
1987         End Sub
1988         
1989         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1990          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1991         Public ReadOnly Property IdColumn() As Global.System.Data.DataColumn
1992             Get
1993                 Return Me.columnId
1994             End Get
1995         End Property
1996         
1997         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1998          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1999         Public ReadOnly Property HardwareIDColumn() As Global.System.Data.DataColumn
2000             Get
2001                 Return Me.columnHardwareID
2002             End Get
2003         End Property
2004         
2005         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2006          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2007         Public ReadOnly Property SerialNoColumn() As Global.System.Data.DataColumn
2008             Get
2009                 Return Me.columnSerialNo
2010             End Get
2011         End Property
2012         
2013         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2014          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2015         Public ReadOnly Property ActivationIDColumn() As Global.System.Data.DataColumn
2016             Get
2017                 Return Me.columnActivationID
2018             End Get
2019         End Property
2020         
2021         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2022          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
2023          Global.System.ComponentModel.Browsable(false)> _
2024         Public ReadOnly Property Count() As Integer
2025             Get
2026                 Return Me.Rows.Count
2027             End Get
2028         End Property
2029         
2030         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2031          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2032         Public Default ReadOnly Property Item(ByVal index As Integer) As ActivationRow
2033             Get
2034                 Return CType(Me.Rows(index),ActivationRow)
2035             End Get
2036         End Property
2037         
2038         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2039         Public Event ActivationRowChanging As ActivationRowChangeEventHandler
2040         
2041         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2042         Public Event ActivationRowChanged As ActivationRowChangeEventHandler
2043         
2044         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2045         Public Event ActivationRowDeleting As ActivationRowChangeEventHandler
2046         
2047         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2048         Public Event ActivationRowDeleted As ActivationRowChangeEventHandler
2049         
2050         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2051          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2052         Public Overloads Sub AddActivationRow(ByVal row As ActivationRow)
2053             Me.Rows.Add(row)
2054         End Sub
2055         
2056         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2057          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2058         Public Overloads Function AddActivationRow(ByVal HardwareID As String, ByVal SerialNo As String, ByVal ActivationID As String) As ActivationRow
2059             Dim rowActivationRow As ActivationRow = CType(Me.NewRow,ActivationRow)
2060             Dim columnValuesArray() As Object = New Object() {Nothing, HardwareID, SerialNo, ActivationID}
2061             rowActivationRow.ItemArray = columnValuesArray
2062             Me.Rows.Add(rowActivationRow)
2063             Return rowActivationRow
2064         End Function
2065         
2066         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2067          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2068         Public Function FindById(ByVal Id As Integer) As ActivationRow
2069             Return CType(Me.Rows.Find(New Object() {Id}),ActivationRow)
2070         End Function
2071         
2072         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2073          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2074         Public Overrides Function Clone() As Global.System.Data.DataTable
2075             Dim cln As ActivationDataTable = CType(MyBase.Clone,ActivationDataTable)
2076             cln.InitVars
2077             Return cln
2078         End Function
2079         
2080         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2081          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2082         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
2083             Return New ActivationDataTable()
2084         End Function
2085         
2086         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2087          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2088         Friend Sub InitVars()
2089             Me.columnId = MyBase.Columns("Id")
2090             Me.columnHardwareID = MyBase.Columns("HardwareID")
2091             Me.columnSerialNo = MyBase.Columns("SerialNo")
2092             Me.columnActivationID = MyBase.Columns("ActivationID")
2093         End Sub
2094         
2095         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2096          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2097         Private Sub InitClass()
2098             Me.columnId = New Global.System.Data.DataColumn("Id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
2099             MyBase.Columns.Add(Me.columnId)
2100             Me.columnHardwareID = New Global.System.Data.DataColumn("HardwareID", GetType(String), Nothing, Global.System.Data.MappingType.Element)
2101             MyBase.Columns.Add(Me.columnHardwareID)
2102             Me.columnSerialNo = New Global.System.Data.DataColumn("SerialNo", GetType(String), Nothing, Global.System.Data.MappingType.Element)
2103             MyBase.Columns.Add(Me.columnSerialNo)
2104             Me.columnActivationID = New Global.System.Data.DataColumn("ActivationID", GetType(String), Nothing, Global.System.Data.MappingType.Element)
2105             MyBase.Columns.Add(Me.columnActivationID)
2106             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnId}, true))
2107             Me.columnId.AutoIncrement = true
2108             Me.columnId.AutoIncrementSeed = -1
2109             Me.columnId.AutoIncrementStep = -1
2110             Me.columnId.AllowDBNull = false
2111             Me.columnId.ReadOnly = true
2112             Me.columnId.Unique = true
2113             Me.columnHardwareID.AllowDBNull = false
2114             Me.columnHardwareID.MaxLength = 150
2115             Me.columnSerialNo.AllowDBNull = false
2116             Me.columnSerialNo.MaxLength = 150
2117             Me.columnActivationID.AllowDBNull = false
2118             Me.columnActivationID.MaxLength = 150
2119         End Sub
2120         
2121         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2122          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2123         Public Function NewActivationRow() As ActivationRow
2124             Return CType(Me.NewRow,ActivationRow)
2125         End Function
2126         
2127         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2128          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2129         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
2130             Return New ActivationRow(builder)
2131         End Function
2132         
2133         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2134          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2135         Protected Overrides Function GetRowType() As Global.System.Type
2136             Return GetType(ActivationRow)
2137         End Function
2138         
2139         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2140          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2141         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
2142             MyBase.OnRowChanged(e)
2143             If (Not (Me.ActivationRowChangedEvent) Is Nothing) Then
2144                 RaiseEvent ActivationRowChanged(Me, New ActivationRowChangeEvent(CType(e.Row,ActivationRow), e.Action))
2145             End If
2146         End Sub
2147         
2148         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2149          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2150         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
2151             MyBase.OnRowChanging(e)
2152             If (Not (Me.ActivationRowChangingEvent) Is Nothing) Then
2153                 RaiseEvent ActivationRowChanging(Me, New ActivationRowChangeEvent(CType(e.Row,ActivationRow), e.Action))
2154             End If
2155         End Sub
2156         
2157         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2158          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2159         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
2160             MyBase.OnRowDeleted(e)
2161             If (Not (Me.ActivationRowDeletedEvent) Is Nothing) Then
2162                 RaiseEvent ActivationRowDeleted(Me, New ActivationRowChangeEvent(CType(e.Row,ActivationRow), e.Action))
2163             End If
2164         End Sub
2165         
2166         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2167          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2168         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
2169             MyBase.OnRowDeleting(e)
2170             If (Not (Me.ActivationRowDeletingEvent) Is Nothing) Then
2171                 RaiseEvent ActivationRowDeleting(Me, New ActivationRowChangeEvent(CType(e.Row,ActivationRow), e.Action))
2172             End If
2173         End Sub
2174         
2175         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2176          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2177         Public Sub RemoveActivationRow(ByVal row As ActivationRow)
2178             Me.Rows.Remove(row)
2179         End Sub
2180         
2181         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2182          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2183         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
2184             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
2185             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
2186             Dim ds As ERPS_DBDataSet1 = New ERPS_DBDataSet1()
2187             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
2188             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
2189             any1.MinOccurs = New Decimal(0)
2190             any1.MaxOccurs = Decimal.MaxValue
2191             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
2192             sequence.Items.Add(any1)
2193             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
2194             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
2195             any2.MinOccurs = New Decimal(1)
2196             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
2197             sequence.Items.Add(any2)
2198             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
2199             attribute1.Name = "namespace"
2200             attribute1.FixedValue = ds.Namespace
2201             type.Attributes.Add(attribute1)
2202             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
2203             attribute2.Name = "tableTypeName"
2204             attribute2.FixedValue = "ActivationDataTable"
2205             type.Attributes.Add(attribute2)
2206             type.Particle = sequence
2207             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
2208             If xs.Contains(dsSchema.TargetNamespace) Then
2209                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
2210                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
2211                 Try
2212                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
2213                     dsSchema.Write(s1)
2214                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
2215                     Do While schemas.MoveNext
2216                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
2217                         s2.SetLength(0)
2218                         schema.Write(s2)
2219                         If (s1.Length = s2.Length) Then
2220                             s1.Position = 0
2221                             s2.Position = 0
2222                             
2223                             Do While ((s1.Position <> s1.Length) _
2224                                         AndAlso (s1.ReadByte = s2.ReadByte))
2225                                 
2226                                 
2227                             Loop
2228                             If (s1.Position = s1.Length) Then
2229                                 Return type
2230                             End If
2231                         End If
2232                         
2233                     Loop
2234                 Finally
2235                     If (Not (s1) Is Nothing) Then
2236                         s1.Close
2237                     End If
2238                     If (Not (s2) Is Nothing) Then
2239                         s2.Close
2240                     End If
2241                 End Try
2242             End If
2243             xs.Add(dsSchema)
2244             Return type
2245         End Function
2246     End Class
2247     
2248     '''<summary>
2249     '''Represents the strongly named DataTable class.
2250     '''</summary>
2251     <Global.System.Serializable(), _
2252      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
2253     Partial Public Class AdvanceEntryDataTable
2254         Inherits Global.System.Data.TypedTableBase(Of AdvanceEntryRow)
2255         
2256         Private columnId As Global.System.Data.DataColumn
2257         
2258         Private columnStaffID As Global.System.Data.DataColumn
2259         
2260         Private columnAmount As Global.System.Data.DataColumn
2261         
2262         Private columnDeduction As Global.System.Data.DataColumn
2263         
2264         Private columnWorkingDate As Global.System.Data.DataColumn
2265         
2266         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2267          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2268         Public Sub New()
2269             MyBase.New
2270             Me.TableName = "AdvanceEntry"
2271             Me.BeginInit
2272             Me.InitClass
2273             Me.EndInit
2274         End Sub
2275         
2276         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2277          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2278         Friend Sub New(ByVal table As Global.System.Data.DataTable)
2279             MyBase.New
2280             Me.TableName = table.TableName
2281             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
2282                 Me.CaseSensitive = table.CaseSensitive
2283             End If
2284             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
2285                 Me.Locale = table.Locale
2286             End If
2287             If (table.Namespace <> table.DataSet.Namespace) Then
2288                 Me.Namespace = table.Namespace
2289             End If
2290             Me.Prefix = table.Prefix
2291             Me.MinimumCapacity = table.MinimumCapacity
2292         End Sub
2293         
2294         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2295          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2296         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
2297             MyBase.New(info, context)
2298             Me.InitVars
2299         End Sub
2300         
2301         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2302          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2303         Public ReadOnly Property IdColumn() As Global.System.Data.DataColumn
2304             Get
2305                 Return Me.columnId
2306             End Get
2307         End Property
2308         
2309         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2310          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2311         Public ReadOnly Property StaffIDColumn() As Global.System.Data.DataColumn
2312             Get
2313                 Return Me.columnStaffID
2314             End Get
2315         End Property
2316         
2317         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2318          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2319         Public ReadOnly Property AmountColumn() As Global.System.Data.DataColumn
2320             Get
2321                 Return Me.columnAmount
2322             End Get
2323         End Property
2324         
2325         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2326          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2327         Public ReadOnly Property DeductionColumn() As Global.System.Data.DataColumn
2328             Get
2329                 Return Me.columnDeduction
2330             End Get
2331         End Property
2332         
2333         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2334          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2335         Public ReadOnly Property WorkingDateColumn() As Global.System.Data.DataColumn
2336             Get
2337                 Return Me.columnWorkingDate
2338             End Get
2339         End Property
2340         
2341         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2342          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
2343          Global.System.ComponentModel.Browsable(false)> _
2344         Public ReadOnly Property Count() As Integer
2345             Get
2346                 Return Me.Rows.Count
2347             End Get
2348         End Property
2349         
2350         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2351          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2352         Public Default ReadOnly Property Item(ByVal index As Integer) As AdvanceEntryRow
2353             Get
2354                 Return CType(Me.Rows(index),AdvanceEntryRow)
2355             End Get
2356         End Property
2357         
2358         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2359         Public Event AdvanceEntryRowChanging As AdvanceEntryRowChangeEventHandler
2360         
2361         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2362         Public Event AdvanceEntryRowChanged As AdvanceEntryRowChangeEventHandler
2363         
2364         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2365         Public Event AdvanceEntryRowDeleting As AdvanceEntryRowChangeEventHandler
2366         
2367         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2368         Public Event AdvanceEntryRowDeleted As AdvanceEntryRowChangeEventHandler
2369         
2370         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2371          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2372         Public Overloads Sub AddAdvanceEntryRow(ByVal row As AdvanceEntryRow)
2373             Me.Rows.Add(row)
2374         End Sub
2375         
2376         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2377          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2378         Public Overloads Function AddAdvanceEntryRow(ByVal Id As Integer, ByVal parentStaffRowByFK_AdvanceEntry_Staff As StaffRow, ByVal Amount As Decimal, ByVal Deduction As Decimal, ByVal WorkingDate As Date) As AdvanceEntryRow
2379             Dim rowAdvanceEntryRow As AdvanceEntryRow = CType(Me.NewRow,AdvanceEntryRow)
2380             Dim columnValuesArray() As Object = New Object() {Id, Nothing, Amount, Deduction, WorkingDate}
2381             If (Not (parentStaffRowByFK_AdvanceEntry_Staff) Is Nothing) Then
2382                 columnValuesArray(1) = parentStaffRowByFK_AdvanceEntry_Staff(0)
2383             End If
2384             rowAdvanceEntryRow.ItemArray = columnValuesArray
2385             Me.Rows.Add(rowAdvanceEntryRow)
2386             Return rowAdvanceEntryRow
2387         End Function
2388         
2389         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2390          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2391         Public Function FindById(ByVal Id As Integer) As AdvanceEntryRow
2392             Return CType(Me.Rows.Find(New Object() {Id}),AdvanceEntryRow)
2393         End Function
2394         
2395         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2396          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2397         Public Overrides Function Clone() As Global.System.Data.DataTable
2398             Dim cln As AdvanceEntryDataTable = CType(MyBase.Clone,AdvanceEntryDataTable)
2399             cln.InitVars
2400             Return cln
2401         End Function
2402         
2403         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2404          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2405         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
2406             Return New AdvanceEntryDataTable()
2407         End Function
2408         
2409         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2410          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2411         Friend Sub InitVars()
2412             Me.columnId = MyBase.Columns("Id")
2413             Me.columnStaffID = MyBase.Columns("StaffID")
2414             Me.columnAmount = MyBase.Columns("Amount")
2415             Me.columnDeduction = MyBase.Columns("Deduction")
2416             Me.columnWorkingDate = MyBase.Columns("WorkingDate")
2417         End Sub
2418         
2419         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2420          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2421         Private Sub InitClass()
2422             Me.columnId = New Global.System.Data.DataColumn("Id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
2423             MyBase.Columns.Add(Me.columnId)
2424             Me.columnStaffID = New Global.System.Data.DataColumn("StaffID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
2425             MyBase.Columns.Add(Me.columnStaffID)
2426             Me.columnAmount = New Global.System.Data.DataColumn("Amount", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
2427             MyBase.Columns.Add(Me.columnAmount)
2428             Me.columnDeduction = New Global.System.Data.DataColumn("Deduction", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
2429             MyBase.Columns.Add(Me.columnDeduction)
2430             Me.columnWorkingDate = New Global.System.Data.DataColumn("WorkingDate", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
2431             MyBase.Columns.Add(Me.columnWorkingDate)
2432             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnId}, true))
2433             Me.columnId.AllowDBNull = false
2434             Me.columnId.Unique = true
2435             Me.columnStaffID.AllowDBNull = false
2436             Me.columnAmount.AllowDBNull = false
2437             Me.columnDeduction.AllowDBNull = false
2438             Me.columnWorkingDate.AllowDBNull = false
2439         End Sub
2440         
2441         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2442          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2443         Public Function NewAdvanceEntryRow() As AdvanceEntryRow
2444             Return CType(Me.NewRow,AdvanceEntryRow)
2445         End Function
2446         
2447         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2448          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2449         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
2450             Return New AdvanceEntryRow(builder)
2451         End Function
2452         
2453         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2454          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2455         Protected Overrides Function GetRowType() As Global.System.Type
2456             Return GetType(AdvanceEntryRow)
2457         End Function
2458         
2459         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2460          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2461         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
2462             MyBase.OnRowChanged(e)
2463             If (Not (Me.AdvanceEntryRowChangedEvent) Is Nothing) Then
2464                 RaiseEvent AdvanceEntryRowChanged(Me, New AdvanceEntryRowChangeEvent(CType(e.Row,AdvanceEntryRow), e.Action))
2465             End If
2466         End Sub
2467         
2468         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2469          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2470         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
2471             MyBase.OnRowChanging(e)
2472             If (Not (Me.AdvanceEntryRowChangingEvent) Is Nothing) Then
2473                 RaiseEvent AdvanceEntryRowChanging(Me, New AdvanceEntryRowChangeEvent(CType(e.Row,AdvanceEntryRow), e.Action))
2474             End If
2475         End Sub
2476         
2477         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2478          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2479         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
2480             MyBase.OnRowDeleted(e)
2481             If (Not (Me.AdvanceEntryRowDeletedEvent) Is Nothing) Then
2482                 RaiseEvent AdvanceEntryRowDeleted(Me, New AdvanceEntryRowChangeEvent(CType(e.Row,AdvanceEntryRow), e.Action))
2483             End If
2484         End Sub
2485         
2486         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2487          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2488         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
2489             MyBase.OnRowDeleting(e)
2490             If (Not (Me.AdvanceEntryRowDeletingEvent) Is Nothing) Then
2491                 RaiseEvent AdvanceEntryRowDeleting(Me, New AdvanceEntryRowChangeEvent(CType(e.Row,AdvanceEntryRow), e.Action))
2492             End If
2493         End Sub
2494         
2495         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2496          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2497         Public Sub RemoveAdvanceEntryRow(ByVal row As AdvanceEntryRow)
2498             Me.Rows.Remove(row)
2499         End Sub
2500         
2501         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2502          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2503         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
2504             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
2505             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
2506             Dim ds As ERPS_DBDataSet1 = New ERPS_DBDataSet1()
2507             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
2508             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
2509             any1.MinOccurs = New Decimal(0)
2510             any1.MaxOccurs = Decimal.MaxValue
2511             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
2512             sequence.Items.Add(any1)
2513             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
2514             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
2515             any2.MinOccurs = New Decimal(1)
2516             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
2517             sequence.Items.Add(any2)
2518             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
2519             attribute1.Name = "namespace"
2520             attribute1.FixedValue = ds.Namespace
2521             type.Attributes.Add(attribute1)
2522             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
2523             attribute2.Name = "tableTypeName"
2524             attribute2.FixedValue = "AdvanceEntryDataTable"
2525             type.Attributes.Add(attribute2)
2526             type.Particle = sequence
2527             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
2528             If xs.Contains(dsSchema.TargetNamespace) Then
2529                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
2530                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
2531                 Try
2532                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
2533                     dsSchema.Write(s1)
2534                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
2535                     Do While schemas.MoveNext
2536                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
2537                         s2.SetLength(0)
2538                         schema.Write(s2)
2539                         If (s1.Length = s2.Length) Then
2540                             s1.Position = 0
2541                             s2.Position = 0
2542                             
2543                             Do While ((s1.Position <> s1.Length) _
2544                                         AndAlso (s1.ReadByte = s2.ReadByte))
2545                                 
2546                                 
2547                             Loop
2548                             If (s1.Position = s1.Length) Then
2549                                 Return type
2550                             End If
2551                         End If
2552                         
2553                     Loop
2554                 Finally
2555                     If (Not (s1) Is Nothing) Then
2556                         s1.Close
2557                     End If
2558                     If (Not (s2) Is Nothing) Then
2559                         s2.Close
2560                     End If
2561                 End Try
2562             End If
2563             xs.Add(dsSchema)
2564             Return type
2565         End Function
2566     End Class
2567     
2568     '''<summary>
2569     '''Represents the strongly named DataTable class.
2570     '''</summary>
2571     <Global.System.Serializable(), _
2572      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
2573     Partial Public Class BusCardHolder_StaffDataTable
2574         Inherits Global.System.Data.TypedTableBase(Of BusCardHolder_StaffRow)
2575         
2576         Private columnBCH_ID As Global.System.Data.DataColumn
2577         
2578         Private columnStaffID As Global.System.Data.DataColumn
2579         
2580         Private columnBusNo As Global.System.Data.DataColumn
2581         
2582         Private columnLocation As Global.System.Data.DataColumn
2583         
2584         Private columnJoiningDate As Global.System.Data.DataColumn
2585         
2586         Private columnStatus As Global.System.Data.DataColumn
2587         
2588         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2589          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2590         Public Sub New()
2591             MyBase.New
2592             Me.TableName = "BusCardHolder_Staff"
2593             Me.BeginInit
2594             Me.InitClass
2595             Me.EndInit
2596         End Sub
2597         
2598         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2599          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2600         Friend Sub New(ByVal table As Global.System.Data.DataTable)
2601             MyBase.New
2602             Me.TableName = table.TableName
2603             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
2604                 Me.CaseSensitive = table.CaseSensitive
2605             End If
2606             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
2607                 Me.Locale = table.Locale
2608             End If
2609             If (table.Namespace <> table.DataSet.Namespace) Then
2610                 Me.Namespace = table.Namespace
2611             End If
2612             Me.Prefix = table.Prefix
2613             Me.MinimumCapacity = table.MinimumCapacity
2614         End Sub
2615         
2616         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2617          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2618         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
2619             MyBase.New(info, context)
2620             Me.InitVars
2621         End Sub
2622         
2623         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2624          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2625         Public ReadOnly Property BCH_IDColumn() As Global.System.Data.DataColumn
2626             Get
2627                 Return Me.columnBCH_ID
2628             End Get
2629         End Property
2630         
2631         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2632          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2633         Public ReadOnly Property StaffIDColumn() As Global.System.Data.DataColumn
2634             Get
2635                 Return Me.columnStaffID
2636             End Get
2637         End Property
2638         
2639         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2640          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2641         Public ReadOnly Property BusNoColumn() As Global.System.Data.DataColumn
2642             Get
2643                 Return Me.columnBusNo
2644             End Get
2645         End Property
2646         
2647         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2648          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2649         Public ReadOnly Property LocationColumn() As Global.System.Data.DataColumn
2650             Get
2651                 Return Me.columnLocation
2652             End Get
2653         End Property
2654         
2655         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2656          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2657         Public ReadOnly Property JoiningDateColumn() As Global.System.Data.DataColumn
2658             Get
2659                 Return Me.columnJoiningDate
2660             End Get
2661         End Property
2662         
2663         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2664          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2665         Public ReadOnly Property StatusColumn() As Global.System.Data.DataColumn
2666             Get
2667                 Return Me.columnStatus
2668             End Get
2669         End Property
2670         
2671         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2672          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
2673          Global.System.ComponentModel.Browsable(false)> _
2674         Public ReadOnly Property Count() As Integer
2675             Get
2676                 Return Me.Rows.Count
2677             End Get
2678         End Property
2679         
2680         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2681          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2682         Public Default ReadOnly Property Item(ByVal index As Integer) As BusCardHolder_StaffRow
2683             Get
2684                 Return CType(Me.Rows(index),BusCardHolder_StaffRow)
2685             End Get
2686         End Property
2687         
2688         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2689         Public Event BusCardHolder_StaffRowChanging As BusCardHolder_StaffRowChangeEventHandler
2690         
2691         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2692         Public Event BusCardHolder_StaffRowChanged As BusCardHolder_StaffRowChangeEventHandler
2693         
2694         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2695         Public Event BusCardHolder_StaffRowDeleting As BusCardHolder_StaffRowChangeEventHandler
2696         
2697         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2698         Public Event BusCardHolder_StaffRowDeleted As BusCardHolder_StaffRowChangeEventHandler
2699         
2700         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2701          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2702         Public Overloads Sub AddBusCardHolder_StaffRow(ByVal row As BusCardHolder_StaffRow)
2703             Me.Rows.Add(row)
2704         End Sub
2705         
2706         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2707          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2708         Public Overloads Function AddBusCardHolder_StaffRow(ByVal BCH_ID As Integer, ByVal parentStaffRowByFK_BusCardHolder_Staff_Staff As StaffRow, ByVal parentBusInfoRowByFK_BusCardHolder_Staff_BusInfo As BusInfoRow, ByVal parentLocationRowByFK_BusCardHolder_Staff_Location As LocationRow, ByVal JoiningDate As Date, ByVal Status As String) As BusCardHolder_StaffRow
2709             Dim rowBusCardHolder_StaffRow As BusCardHolder_StaffRow = CType(Me.NewRow,BusCardHolder_StaffRow)
2710             Dim columnValuesArray() As Object = New Object() {BCH_ID, Nothing, Nothing, Nothing, JoiningDate, Status}
2711             If (Not (parentStaffRowByFK_BusCardHolder_Staff_Staff) Is Nothing) Then
2712                 columnValuesArray(1) = parentStaffRowByFK_BusCardHolder_Staff_Staff(0)
2713             End If
2714             If (Not (parentBusInfoRowByFK_BusCardHolder_Staff_BusInfo) Is Nothing) Then
2715                 columnValuesArray(2) = parentBusInfoRowByFK_BusCardHolder_Staff_BusInfo(0)
2716             End If
2717             If (Not (parentLocationRowByFK_BusCardHolder_Staff_Location) Is Nothing) Then
2718                 columnValuesArray(3) = parentLocationRowByFK_BusCardHolder_Staff_Location(0)
2719             End If
2720             rowBusCardHolder_StaffRow.ItemArray = columnValuesArray
2721             Me.Rows.Add(rowBusCardHolder_StaffRow)
2722             Return rowBusCardHolder_StaffRow
2723         End Function
2724         
2725         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2726          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2727         Public Function FindByBCH_ID(ByVal BCH_ID As Integer) As BusCardHolder_StaffRow
2728             Return CType(Me.Rows.Find(New Object() {BCH_ID}),BusCardHolder_StaffRow)
2729         End Function
2730         
2731         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2732          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2733         Public Overrides Function Clone() As Global.System.Data.DataTable
2734             Dim cln As BusCardHolder_StaffDataTable = CType(MyBase.Clone,BusCardHolder_StaffDataTable)
2735             cln.InitVars
2736             Return cln
2737         End Function
2738         
2739         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2740          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2741         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
2742             Return New BusCardHolder_StaffDataTable()
2743         End Function
2744         
2745         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2746          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2747         Friend Sub InitVars()
2748             Me.columnBCH_ID = MyBase.Columns("BCH_ID")
2749             Me.columnStaffID = MyBase.Columns("StaffID")
2750             Me.columnBusNo = MyBase.Columns("BusNo")
2751             Me.columnLocation = MyBase.Columns("Location")
2752             Me.columnJoiningDate = MyBase.Columns("JoiningDate")
2753             Me.columnStatus = MyBase.Columns("Status")
2754         End Sub
2755         
2756         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2757          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2758         Private Sub InitClass()
2759             Me.columnBCH_ID = New Global.System.Data.DataColumn("BCH_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
2760             MyBase.Columns.Add(Me.columnBCH_ID)
2761             Me.columnStaffID = New Global.System.Data.DataColumn("StaffID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
2762             MyBase.Columns.Add(Me.columnStaffID)
2763             Me.columnBusNo = New Global.System.Data.DataColumn("BusNo", GetType(String), Nothing, Global.System.Data.MappingType.Element)
2764             MyBase.Columns.Add(Me.columnBusNo)
2765             Me.columnLocation = New Global.System.Data.DataColumn("Location", GetType(String), Nothing, Global.System.Data.MappingType.Element)
2766             MyBase.Columns.Add(Me.columnLocation)
2767             Me.columnJoiningDate = New Global.System.Data.DataColumn("JoiningDate", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
2768             MyBase.Columns.Add(Me.columnJoiningDate)
2769             Me.columnStatus = New Global.System.Data.DataColumn("Status", GetType(String), Nothing, Global.System.Data.MappingType.Element)
2770             MyBase.Columns.Add(Me.columnStatus)
2771             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnBCH_ID}, true))
2772             Me.columnBCH_ID.AllowDBNull = false
2773             Me.columnBCH_ID.Unique = true
2774             Me.columnStaffID.AllowDBNull = false
2775             Me.columnBusNo.AllowDBNull = false
2776             Me.columnBusNo.MaxLength = 100
2777             Me.columnLocation.AllowDBNull = false
2778             Me.columnLocation.MaxLength = 250
2779             Me.columnJoiningDate.AllowDBNull = false
2780             Me.columnStatus.AllowDBNull = false
2781             Me.columnStatus.MaxLength = 10
2782         End Sub
2783         
2784         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2785          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2786         Public Function NewBusCardHolder_StaffRow() As BusCardHolder_StaffRow
2787             Return CType(Me.NewRow,BusCardHolder_StaffRow)
2788         End Function
2789         
2790         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2791          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2792         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
2793             Return New BusCardHolder_StaffRow(builder)
2794         End Function
2795         
2796         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2797          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2798         Protected Overrides Function GetRowType() As Global.System.Type
2799             Return GetType(BusCardHolder_StaffRow)
2800         End Function
2801         
2802         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2803          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2804         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
2805             MyBase.OnRowChanged(e)
2806             If (Not (Me.BusCardHolder_StaffRowChangedEvent) Is Nothing) Then
2807                 RaiseEvent BusCardHolder_StaffRowChanged(Me, New BusCardHolder_StaffRowChangeEvent(CType(e.Row,BusCardHolder_StaffRow), e.Action))
2808             End If
2809         End Sub
2810         
2811         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2812          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2813         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
2814             MyBase.OnRowChanging(e)
2815             If (Not (Me.BusCardHolder_StaffRowChangingEvent) Is Nothing) Then
2816                 RaiseEvent BusCardHolder_StaffRowChanging(Me, New BusCardHolder_StaffRowChangeEvent(CType(e.Row,BusCardHolder_StaffRow), e.Action))
2817             End If
2818         End Sub
2819         
2820         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2821          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2822         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
2823             MyBase.OnRowDeleted(e)
2824             If (Not (Me.BusCardHolder_StaffRowDeletedEvent) Is Nothing) Then
2825                 RaiseEvent BusCardHolder_StaffRowDeleted(Me, New BusCardHolder_StaffRowChangeEvent(CType(e.Row,BusCardHolder_StaffRow), e.Action))
2826             End If
2827         End Sub
2828         
2829         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2830          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2831         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
2832             MyBase.OnRowDeleting(e)
2833             If (Not (Me.BusCardHolder_StaffRowDeletingEvent) Is Nothing) Then
2834                 RaiseEvent BusCardHolder_StaffRowDeleting(Me, New BusCardHolder_StaffRowChangeEvent(CType(e.Row,BusCardHolder_StaffRow), e.Action))
2835             End If
2836         End Sub
2837         
2838         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2839          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2840         Public Sub RemoveBusCardHolder_StaffRow(ByVal row As BusCardHolder_StaffRow)
2841             Me.Rows.Remove(row)
2842         End Sub
2843         
2844         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2845          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2846         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
2847             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
2848             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
2849             Dim ds As ERPS_DBDataSet1 = New ERPS_DBDataSet1()
2850             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
2851             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
2852             any1.MinOccurs = New Decimal(0)
2853             any1.MaxOccurs = Decimal.MaxValue
2854             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
2855             sequence.Items.Add(any1)
2856             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
2857             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
2858             any2.MinOccurs = New Decimal(1)
2859             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
2860             sequence.Items.Add(any2)
2861             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
2862             attribute1.Name = "namespace"
2863             attribute1.FixedValue = ds.Namespace
2864             type.Attributes.Add(attribute1)
2865             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
2866             attribute2.Name = "tableTypeName"
2867             attribute2.FixedValue = "BusCardHolder_StaffDataTable"
2868             type.Attributes.Add(attribute2)
2869             type.Particle = sequence
2870             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
2871             If xs.Contains(dsSchema.TargetNamespace) Then
2872                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
2873                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
2874                 Try
2875                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
2876                     dsSchema.Write(s1)
2877                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
2878                     Do While schemas.MoveNext
2879                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
2880                         s2.SetLength(0)
2881                         schema.Write(s2)
2882                         If (s1.Length = s2.Length) Then
2883                             s1.Position = 0
2884                             s2.Position = 0
2885                             
2886                             Do While ((s1.Position <> s1.Length) _
2887                                         AndAlso (s1.ReadByte = s2.ReadByte))
2888                                 
2889                                 
2890                             Loop
2891                             If (s1.Position = s1.Length) Then
2892                                 Return type
2893                             End If
2894                         End If
2895                         
2896                     Loop
2897                 Finally
2898                     If (Not (s1) Is Nothing) Then
2899                         s1.Close
2900                     End If
2901                     If (Not (s2) Is Nothing) Then
2902                         s2.Close
2903                     End If
2904                 End Try
2905             End If
2906             xs.Add(dsSchema)
2907             Return type
2908         End Function
2909     End Class
2910     
2911     '''<summary>
2912     '''Represents the strongly named DataTable class.
2913     '''</summary>
2914     <Global.System.Serializable(), _
2915      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
2916     Partial Public Class BusCardHolder_StudentDataTable
2917         Inherits Global.System.Data.TypedTableBase(Of BusCardHolder_StudentRow)
2918         
2919         Private columnBCH_Id As Global.System.Data.DataColumn
2920         
2921         Private columnAdmissionNo As Global.System.Data.DataColumn
2922         
2923         Private columnBusNo As Global.System.Data.DataColumn
2924         
2925         Private columnLocation As Global.System.Data.DataColumn
2926         
2927         Private columnJoiningDate As Global.System.Data.DataColumn
2928         
2929         Private columnStatus As Global.System.Data.DataColumn
2930         
2931         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2932          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2933         Public Sub New()
2934             MyBase.New
2935             Me.TableName = "BusCardHolder_Student"
2936             Me.BeginInit
2937             Me.InitClass
2938             Me.EndInit
2939         End Sub
2940         
2941         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2942          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2943         Friend Sub New(ByVal table As Global.System.Data.DataTable)
2944             MyBase.New
2945             Me.TableName = table.TableName
2946             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
2947                 Me.CaseSensitive = table.CaseSensitive
2948             End If
2949             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
2950                 Me.Locale = table.Locale
2951             End If
2952             If (table.Namespace <> table.DataSet.Namespace) Then
2953                 Me.Namespace = table.Namespace
2954             End If
2955             Me.Prefix = table.Prefix
2956             Me.MinimumCapacity = table.MinimumCapacity
2957         End Sub
2958         
2959         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2960          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2961         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
2962             MyBase.New(info, context)
2963             Me.InitVars
2964         End Sub
2965         
2966         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2967          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2968         Public ReadOnly Property BCH_IdColumn() As Global.System.Data.DataColumn
2969             Get
2970                 Return Me.columnBCH_Id
2971             End Get
2972         End Property
2973         
2974         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2975          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2976         Public ReadOnly Property AdmissionNoColumn() As Global.System.Data.DataColumn
2977             Get
2978                 Return Me.columnAdmissionNo
2979             End Get
2980         End Property
2981         
2982         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2983          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2984         Public ReadOnly Property BusNoColumn() As Global.System.Data.DataColumn
2985             Get
2986                 Return Me.columnBusNo
2987             End Get
2988         End Property
2989         
2990         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2991          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2992         Public ReadOnly Property LocationColumn() As Global.System.Data.DataColumn
2993             Get
2994                 Return Me.columnLocation
2995             End Get
2996         End Property
2997         
2998         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2999          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3000         Public ReadOnly Property JoiningDateColumn() As Global.System.Data.DataColumn
3001             Get
3002                 Return Me.columnJoiningDate
3003             End Get
3004         End Property
3005         
3006         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3007          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3008         Public ReadOnly Property StatusColumn() As Global.System.Data.DataColumn
3009             Get
3010                 Return Me.columnStatus
3011             End Get
3012         End Property
3013         
3014         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3015          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
3016          Global.System.ComponentModel.Browsable(false)> _
3017         Public ReadOnly Property Count() As Integer
3018             Get
3019                 Return Me.Rows.Count
3020             End Get
3021         End Property
3022         
3023         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3024          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3025         Public Default ReadOnly Property Item(ByVal index As Integer) As BusCardHolder_StudentRow
3026             Get
3027                 Return CType(Me.Rows(index),BusCardHolder_StudentRow)
3028             End Get
3029         End Property
3030         
3031         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3032         Public Event BusCardHolder_StudentRowChanging As BusCardHolder_StudentRowChangeEventHandler
3033         
3034         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3035         Public Event BusCardHolder_StudentRowChanged As BusCardHolder_StudentRowChangeEventHandler
3036         
3037         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3038         Public Event BusCardHolder_StudentRowDeleting As BusCardHolder_StudentRowChangeEventHandler
3039         
3040         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3041         Public Event BusCardHolder_StudentRowDeleted As BusCardHolder_StudentRowChangeEventHandler
3042         
3043         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3044          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3045         Public Overloads Sub AddBusCardHolder_StudentRow(ByVal row As BusCardHolder_StudentRow)
3046             Me.Rows.Add(row)
3047         End Sub
3048         
3049         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3050          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3051         Public Overloads Function AddBusCardHolder_StudentRow(ByVal BCH_Id As Integer, ByVal parentStudentRowByFK_BusHolder_Student As StudentRow, ByVal parentBusInfoRowByFK_BusCardHolder_Student_BusInfo As BusInfoRow, ByVal parentLocationRowByFK_BusCardHolder_Student_Location As LocationRow, ByVal JoiningDate As Date, ByVal Status As String) As BusCardHolder_StudentRow
3052             Dim rowBusCardHolder_StudentRow As BusCardHolder_StudentRow = CType(Me.NewRow,BusCardHolder_StudentRow)
3053             Dim columnValuesArray() As Object = New Object() {BCH_Id, Nothing, Nothing, Nothing, JoiningDate, Status}
3054             If (Not (parentStudentRowByFK_BusHolder_Student) Is Nothing) Then
3055                 columnValuesArray(1) = parentStudentRowByFK_BusHolder_Student(0)
3056             End If
3057             If (Not (parentBusInfoRowByFK_BusCardHolder_Student_BusInfo) Is Nothing) Then
3058                 columnValuesArray(2) = parentBusInfoRowByFK_BusCardHolder_Student_BusInfo(0)
3059             End If
3060             If (Not (parentLocationRowByFK_BusCardHolder_Student_Location) Is Nothing) Then
3061                 columnValuesArray(3) = parentLocationRowByFK_BusCardHolder_Student_Location(0)
3062             End If
3063             rowBusCardHolder_StudentRow.ItemArray = columnValuesArray
3064             Me.Rows.Add(rowBusCardHolder_StudentRow)
3065             Return rowBusCardHolder_StudentRow
3066         End Function
3067         
3068         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3069          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3070         Public Function FindByBCH_Id(ByVal BCH_Id As Integer) As BusCardHolder_StudentRow
3071             Return CType(Me.Rows.Find(New Object() {BCH_Id}),BusCardHolder_StudentRow)
3072         End Function
3073         
3074         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3075          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3076         Public Overrides Function Clone() As Global.System.Data.DataTable
3077             Dim cln As BusCardHolder_StudentDataTable = CType(MyBase.Clone,BusCardHolder_StudentDataTable)
3078             cln.InitVars
3079             Return cln
3080         End Function
3081         
3082         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3083          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3084         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
3085             Return New BusCardHolder_StudentDataTable()
3086         End Function
3087         
3088         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3089          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3090         Friend Sub InitVars()
3091             Me.columnBCH_Id = MyBase.Columns("BCH_Id")
3092             Me.columnAdmissionNo = MyBase.Columns("AdmissionNo")
3093             Me.columnBusNo = MyBase.Columns("BusNo")
3094             Me.columnLocation = MyBase.Columns("Location")
3095             Me.columnJoiningDate = MyBase.Columns("JoiningDate")
3096             Me.columnStatus = MyBase.Columns("Status")
3097         End Sub
3098         
3099         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3100          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3101         Private Sub InitClass()
3102             Me.columnBCH_Id = New Global.System.Data.DataColumn("BCH_Id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
3103             MyBase.Columns.Add(Me.columnBCH_Id)
3104             Me.columnAdmissionNo = New Global.System.Data.DataColumn("AdmissionNo", GetType(String), Nothing, Global.System.Data.MappingType.Element)
3105             MyBase.Columns.Add(Me.columnAdmissionNo)
3106             Me.columnBusNo = New Global.System.Data.DataColumn("BusNo", GetType(String), Nothing, Global.System.Data.MappingType.Element)
3107             MyBase.Columns.Add(Me.columnBusNo)
3108             Me.columnLocation = New Global.System.Data.DataColumn("Location", GetType(String), Nothing, Global.System.Data.MappingType.Element)
3109             MyBase.Columns.Add(Me.columnLocation)
3110             Me.columnJoiningDate = New Global.System.Data.DataColumn("JoiningDate", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
3111             MyBase.Columns.Add(Me.columnJoiningDate)
3112             Me.columnStatus = New Global.System.Data.DataColumn("Status", GetType(String), Nothing, Global.System.Data.MappingType.Element)
3113             MyBase.Columns.Add(Me.columnStatus)
3114             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnBCH_Id}, true))
3115             Me.columnBCH_Id.AllowDBNull = false
3116             Me.columnBCH_Id.Unique = true
3117             Me.columnAdmissionNo.AllowDBNull = false
3118             Me.columnAdmissionNo.MaxLength = 15
3119             Me.columnBusNo.AllowDBNull = false
3120             Me.columnBusNo.MaxLength = 100
3121             Me.columnLocation.AllowDBNull = false
3122             Me.columnLocation.MaxLength = 250
3123             Me.columnJoiningDate.AllowDBNull = false
3124             Me.columnStatus.AllowDBNull = false
3125             Me.columnStatus.MaxLength = 10
3126         End Sub
3127         
3128         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3129          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3130         Public Function NewBusCardHolder_StudentRow() As BusCardHolder_StudentRow
3131             Return CType(Me.NewRow,BusCardHolder_StudentRow)
3132         End Function
3133         
3134         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3135          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3136         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
3137             Return New BusCardHolder_StudentRow(builder)
3138         End Function
3139         
3140         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3141          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3142         Protected Overrides Function GetRowType() As Global.System.Type
3143             Return GetType(BusCardHolder_StudentRow)
3144         End Function
3145         
3146         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3147          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3148         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
3149             MyBase.OnRowChanged(e)
3150             If (Not (Me.BusCardHolder_StudentRowChangedEvent) Is Nothing) Then
3151                 RaiseEvent BusCardHolder_StudentRowChanged(Me, New BusCardHolder_StudentRowChangeEvent(CType(e.Row,BusCardHolder_StudentRow), e.Action))
3152             End If
3153         End Sub
3154         
3155         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3156          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3157         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
3158             MyBase.OnRowChanging(e)
3159             If (Not (Me.BusCardHolder_StudentRowChangingEvent) Is Nothing) Then
3160                 RaiseEvent BusCardHolder_StudentRowChanging(Me, New BusCardHolder_StudentRowChangeEvent(CType(e.Row,BusCardHolder_StudentRow), e.Action))
3161             End If
3162         End Sub
3163         
3164         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3165          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3166         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
3167             MyBase.OnRowDeleted(e)
3168             If (Not (Me.BusCardHolder_StudentRowDeletedEvent) Is Nothing) Then
3169                 RaiseEvent BusCardHolder_StudentRowDeleted(Me, New BusCardHolder_StudentRowChangeEvent(CType(e.Row,BusCardHolder_StudentRow), e.Action))
3170             End If
3171         End Sub
3172         
3173         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3174          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3175         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
3176             MyBase.OnRowDeleting(e)
3177             If (Not (Me.BusCardHolder_StudentRowDeletingEvent) Is Nothing) Then
3178                 RaiseEvent BusCardHolder_StudentRowDeleting(Me, New BusCardHolder_StudentRowChangeEvent(CType(e.Row,BusCardHolder_StudentRow), e.Action))
3179             End If
3180         End Sub
3181         
3182         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3183          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3184         Public Sub RemoveBusCardHolder_StudentRow(ByVal row As BusCardHolder_StudentRow)
3185             Me.Rows.Remove(row)
3186         End Sub
3187         
3188         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3189          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3190         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
3191             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
3192             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
3193             Dim ds As ERPS_DBDataSet1 = New ERPS_DBDataSet1()
3194             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
3195             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
3196             any1.MinOccurs = New Decimal(0)
3197             any1.MaxOccurs = Decimal.MaxValue
3198             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
3199             sequence.Items.Add(any1)
3200             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
3201             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
3202             any2.MinOccurs = New Decimal(1)
3203             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
3204             sequence.Items.Add(any2)
3205             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
3206             attribute1.Name = "namespace"
3207             attribute1.FixedValue = ds.Namespace
3208             type.Attributes.Add(attribute1)
3209             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
3210             attribute2.Name = "tableTypeName"
3211             attribute2.FixedValue = "BusCardHolder_StudentDataTable"
3212             type.Attributes.Add(attribute2)
3213             type.Particle = sequence
3214             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
3215             If xs.Contains(dsSchema.TargetNamespace) Then
3216                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
3217                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
3218                 Try
3219                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
3220                     dsSchema.Write(s1)
3221                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
3222                     Do While schemas.MoveNext
3223                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
3224                         s2.SetLength(0)
3225                         schema.Write(s2)
3226                         If (s1.Length = s2.Length) Then
3227                             s1.Position = 0
3228                             s2.Position = 0
3229                             
3230                             Do While ((s1.Position <> s1.Length) _
3231                                         AndAlso (s1.ReadByte = s2.ReadByte))
3232                                 
3233                                 
3234                             Loop
3235                             If (s1.Position = s1.Length) Then
3236                                 Return type
3237                             End If
3238                         End If
3239                         
3240                     Loop
3241                 Finally
3242                     If (Not (s1) Is Nothing) Then
3243                         s1.Close
3244                     End If
3245                     If (Not (s2) Is Nothing) Then
3246                         s2.Close
3247                     End If
3248                 End Try
3249             End If
3250             xs.Add(dsSchema)
3251             Return type
3252         End Function
3253     End Class
3254     
3255     '''<summary>
3256     '''Represents the strongly named DataTable class.
3257     '''</summary>
3258     <Global.System.Serializable(), _
3259      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
3260     Partial Public Class BusFeePayment_StaffDataTable
3261         Inherits Global.System.Data.TypedTableBase(Of BusFeePayment_StaffRow)
3262         
3263         Private columnId As Global.System.Data.DataColumn
3264         
3265         Private columnBFP_ID As Global.System.Data.DataColumn
3266         
3267         Private columnPaymentID As Global.System.Data.DataColumn
3268         
3269         Private columnBusHolderID As Global.System.Data.DataColumn
3270         
3271         Private columnSession As Global.System.Data.DataColumn
3272         
3273         Private columnInstallment As Global.System.Data.DataColumn
3274         
3275         Private columnTotalFee As Global.System.Data.DataColumn
3276         
3277         Private columnDiscountPer As Global.System.Data.DataColumn
3278         
3279         Private columnDiscountAmt As Global.System.Data.DataColumn
3280         
3281         Private columnPreviousDue As Global.System.Data.DataColumn
3282         
3283         Private columnFine As Global.System.Data.DataColumn
3284         
3285         Private columnGrandTotal As Global.System.Data.DataColumn
3286         
3287         Private columnTotalPaid As Global.System.Data.DataColumn
3288         
3289         Private columnModeOfPayment As Global.System.Data.DataColumn
3290         
3291         Private columnPaymentModeDetails As Global.System.Data.DataColumn
3292         
3293         Private columnPaymentDate As Global.System.Data.DataColumn
3294         
3295         Private columnPaymentDue As Global.System.Data.DataColumn
3296         
3297         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3298          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3299         Public Sub New()
3300             MyBase.New
3301             Me.TableName = "BusFeePayment_Staff"
3302             Me.BeginInit
3303             Me.InitClass
3304             Me.EndInit
3305         End Sub
3306         
3307         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3308          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3309         Friend Sub New(ByVal table As Global.System.Data.DataTable)
3310             MyBase.New
3311             Me.TableName = table.TableName
3312             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
3313                 Me.CaseSensitive = table.CaseSensitive
3314             End If
3315             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
3316                 Me.Locale = table.Locale
3317             End If
3318             If (table.Namespace <> table.DataSet.Namespace) Then
3319                 Me.Namespace = table.Namespace
3320             End If
3321             Me.Prefix = table.Prefix
3322             Me.MinimumCapacity = table.MinimumCapacity
3323         End Sub
3324         
3325         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3326          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3327         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
3328             MyBase.New(info, context)
3329             Me.InitVars
3330         End Sub
3331         
3332         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3333          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3334         Public ReadOnly Property IdColumn() As Global.System.Data.DataColumn
3335             Get
3336                 Return Me.columnId
3337             End Get
3338         End Property
3339         
3340         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3341          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3342         Public ReadOnly Property BFP_IDColumn() As Global.System.Data.DataColumn
3343             Get
3344                 Return Me.columnBFP_ID
3345             End Get
3346         End Property
3347         
3348         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3349          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3350         Public ReadOnly Property PaymentIDColumn() As Global.System.Data.DataColumn
3351             Get
3352                 Return Me.columnPaymentID
3353             End Get
3354         End Property
3355         
3356         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3357          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3358         Public ReadOnly Property BusHolderIDColumn() As Global.System.Data.DataColumn
3359             Get
3360                 Return Me.columnBusHolderID
3361             End Get
3362         End Property
3363         
3364         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3365          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3366         Public ReadOnly Property SessionColumn() As Global.System.Data.DataColumn
3367             Get
3368                 Return Me.columnSession
3369             End Get
3370         End Property
3371         
3372         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3373          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3374         Public ReadOnly Property InstallmentColumn() As Global.System.Data.DataColumn
3375             Get
3376                 Return Me.columnInstallment
3377             End Get
3378         End Property
3379         
3380         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3381          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3382         Public ReadOnly Property TotalFeeColumn() As Global.System.Data.DataColumn
3383             Get
3384                 Return Me.columnTotalFee
3385             End Get
3386         End Property
3387         
3388         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3389          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3390         Public ReadOnly Property DiscountPerColumn() As Global.System.Data.DataColumn
3391             Get
3392                 Return Me.columnDiscountPer
3393             End Get
3394         End Property
3395         
3396         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3397          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3398         Public ReadOnly Property DiscountAmtColumn() As Global.System.Data.DataColumn
3399             Get
3400                 Return Me.columnDiscountAmt
3401             End Get
3402         End Property
3403         
3404         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3405          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3406         Public ReadOnly Property PreviousDueColumn() As Global.System.Data.DataColumn
3407             Get
3408                 Return Me.columnPreviousDue
3409             End Get
3410         End Property
3411         
3412         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3413          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3414         Public ReadOnly Property FineColumn() As Global.System.Data.DataColumn
3415             Get
3416                 Return Me.columnFine
3417             End Get
3418         End Property
3419         
3420         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3421          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3422         Public ReadOnly Property GrandTotalColumn() As Global.System.Data.DataColumn
3423             Get
3424                 Return Me.columnGrandTotal
3425             End Get
3426         End Property
3427         
3428         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3429          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3430         Public ReadOnly Property TotalPaidColumn() As Global.System.Data.DataColumn
3431             Get
3432                 Return Me.columnTotalPaid
3433             End Get
3434         End Property
3435         
3436         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3437          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3438         Public ReadOnly Property ModeOfPaymentColumn() As Global.System.Data.DataColumn
3439             Get
3440                 Return Me.columnModeOfPayment
3441             End Get
3442         End Property
3443         
3444         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3445          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3446         Public ReadOnly Property PaymentModeDetailsColumn() As Global.System.Data.DataColumn
3447             Get
3448                 Return Me.columnPaymentModeDetails
3449             End Get
3450         End Property
3451         
3452         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3453          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3454         Public ReadOnly Property PaymentDateColumn() As Global.System.Data.DataColumn
3455             Get
3456                 Return Me.columnPaymentDate
3457             End Get
3458         End Property
3459         
3460         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3461          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3462         Public ReadOnly Property PaymentDueColumn() As Global.System.Data.DataColumn
3463             Get
3464                 Return Me.columnPaymentDue
3465             End Get
3466         End Property
3467         
3468         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3469          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
3470          Global.System.ComponentModel.Browsable(false)> _
3471         Public ReadOnly Property Count() As Integer
3472             Get
3473                 Return Me.Rows.Count
3474             End Get
3475         End Property
3476         
3477         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3478          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3479         Public Default ReadOnly Property Item(ByVal index As Integer) As BusFeePayment_StaffRow
3480             Get
3481                 Return CType(Me.Rows(index),BusFeePayment_StaffRow)
3482             End Get
3483         End Property
3484         
3485         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3486         Public Event BusFeePayment_StaffRowChanging As BusFeePayment_StaffRowChangeEventHandler
3487         
3488         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3489         Public Event BusFeePayment_StaffRowChanged As BusFeePayment_StaffRowChangeEventHandler
3490         
3491         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3492         Public Event BusFeePayment_StaffRowDeleting As BusFeePayment_StaffRowChangeEventHandler
3493         
3494         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3495         Public Event BusFeePayment_StaffRowDeleted As BusFeePayment_StaffRowChangeEventHandler
3496         
3497         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3498          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3499         Public Overloads Sub AddBusFeePayment_StaffRow(ByVal row As BusFeePayment_StaffRow)
3500             Me.Rows.Add(row)
3501         End Sub
3502         
3503         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3504          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3505         Public Overloads Function AddBusFeePayment_StaffRow( _
3506                     ByVal BFP_ID As Integer, _
3507                     ByVal PaymentID As String, _
3508                     ByVal parentBusCardHolder_StaffRowByFK_BusFeePayment_Staff_BusCardHolder_Staff As BusCardHolder_StaffRow, _
3509                     ByVal Session As String, _
3510                     ByVal Installment As String, _
3511                     ByVal TotalFee As Decimal, _
3512                     ByVal DiscountPer As Decimal, _
3513                     ByVal DiscountAmt As Decimal, _
3514                     ByVal PreviousDue As Decimal, _
3515                     ByVal Fine As Decimal, _
3516                     ByVal GrandTotal As Decimal, _
3517                     ByVal TotalPaid As Decimal, _
3518                     ByVal ModeOfPayment As String, _
3519                     ByVal PaymentModeDetails As String, _
3520                     ByVal PaymentDate As Date, _
3521                     ByVal PaymentDue As Decimal) As BusFeePayment_StaffRow
3522             Dim rowBusFeePayment_StaffRow As BusFeePayment_StaffRow = CType(Me.NewRow,BusFeePayment_StaffRow)
3523             Dim columnValuesArray() As Object = New Object() {Nothing, BFP_ID, PaymentID, Nothing, Session, Installment, TotalFee, DiscountPer, DiscountAmt, PreviousDue, Fine, GrandTotal, TotalPaid, ModeOfPayment, PaymentModeDetails, PaymentDate, PaymentDue}
3524             If (Not (parentBusCardHolder_StaffRowByFK_BusFeePayment_Staff_BusCardHolder_Staff) Is Nothing) Then
3525                 columnValuesArray(3) = parentBusCardHolder_StaffRowByFK_BusFeePayment_Staff_BusCardHolder_Staff(0)
3526             End If
3527             rowBusFeePayment_StaffRow.ItemArray = columnValuesArray
3528             Me.Rows.Add(rowBusFeePayment_StaffRow)
3529             Return rowBusFeePayment_StaffRow
3530         End Function
3531         
3532         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3533          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3534         Public Function FindById(ByVal Id As Integer) As BusFeePayment_StaffRow
3535             Return CType(Me.Rows.Find(New Object() {Id}),BusFeePayment_StaffRow)
3536         End Function
3537         
3538         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3539          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3540         Public Overrides Function Clone() As Global.System.Data.DataTable
3541             Dim cln As BusFeePayment_StaffDataTable = CType(MyBase.Clone,BusFeePayment_StaffDataTable)
3542             cln.InitVars
3543             Return cln
3544         End Function
3545         
3546         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3547          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3548         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
3549             Return New BusFeePayment_StaffDataTable()
3550         End Function
3551         
3552         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3553          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3554         Friend Sub InitVars()
3555             Me.columnId = MyBase.Columns("Id")
3556             Me.columnBFP_ID = MyBase.Columns("BFP_ID")
3557             Me.columnPaymentID = MyBase.Columns("PaymentID")
3558             Me.columnBusHolderID = MyBase.Columns("BusHolderID")
3559             Me.columnSession = MyBase.Columns("Session")
3560             Me.columnInstallment = MyBase.Columns("Installment")
3561             Me.columnTotalFee = MyBase.Columns("TotalFee")
3562             Me.columnDiscountPer = MyBase.Columns("DiscountPer")
3563             Me.columnDiscountAmt = MyBase.Columns("DiscountAmt")
3564             Me.columnPreviousDue = MyBase.Columns("PreviousDue")
3565             Me.columnFine = MyBase.Columns("Fine")
3566             Me.columnGrandTotal = MyBase.Columns("GrandTotal")
3567             Me.columnTotalPaid = MyBase.Columns("TotalPaid")
3568             Me.columnModeOfPayment = MyBase.Columns("ModeOfPayment")
3569             Me.columnPaymentModeDetails = MyBase.Columns("PaymentModeDetails")
3570             Me.columnPaymentDate = MyBase.Columns("PaymentDate")
3571             Me.columnPaymentDue = MyBase.Columns("PaymentDue")
3572         End Sub
3573         
3574         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3575          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3576         Private Sub InitClass()
3577             Me.columnId = New Global.System.Data.DataColumn("Id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
3578             MyBase.Columns.Add(Me.columnId)
3579             Me.columnBFP_ID = New Global.System.Data.DataColumn("BFP_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
3580             MyBase.Columns.Add(Me.columnBFP_ID)
3581             Me.columnPaymentID = New Global.System.Data.DataColumn("PaymentID", GetType(String), Nothing, Global.System.Data.MappingType.Element)
3582             MyBase.Columns.Add(Me.columnPaymentID)
3583             Me.columnBusHolderID = New Global.System.Data.DataColumn("BusHolderID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
3584             MyBase.Columns.Add(Me.columnBusHolderID)
3585             Me.columnSession = New Global.System.Data.DataColumn("Session", GetType(String), Nothing, Global.System.Data.MappingType.Element)
3586             MyBase.Columns.Add(Me.columnSession)
3587             Me.columnInstallment = New Global.System.Data.DataColumn("Installment", GetType(String), Nothing, Global.System.Data.MappingType.Element)
3588             MyBase.Columns.Add(Me.columnInstallment)
3589             Me.columnTotalFee = New Global.System.Data.DataColumn("TotalFee", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
3590             MyBase.Columns.Add(Me.columnTotalFee)
3591             Me.columnDiscountPer = New Global.System.Data.DataColumn("DiscountPer", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
3592             MyBase.Columns.Add(Me.columnDiscountPer)
3593             Me.columnDiscountAmt = New Global.System.Data.DataColumn("DiscountAmt", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
3594             MyBase.Columns.Add(Me.columnDiscountAmt)
3595             Me.columnPreviousDue = New Global.System.Data.DataColumn("PreviousDue", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
3596             MyBase.Columns.Add(Me.columnPreviousDue)
3597             Me.columnFine = New Global.System.Data.DataColumn("Fine", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
3598             MyBase.Columns.Add(Me.columnFine)
3599             Me.columnGrandTotal = New Global.System.Data.DataColumn("GrandTotal", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
3600             MyBase.Columns.Add(Me.columnGrandTotal)
3601             Me.columnTotalPaid = New Global.System.Data.DataColumn("TotalPaid", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
3602             MyBase.Columns.Add(Me.columnTotalPaid)
3603             Me.columnModeOfPayment = New Global.System.Data.DataColumn("ModeOfPayment", GetType(String), Nothing, Global.System.Data.MappingType.Element)
3604             MyBase.Columns.Add(Me.columnModeOfPayment)
3605             Me.columnPaymentModeDetails = New Global.System.Data.DataColumn("PaymentModeDetails", GetType(String), Nothing, Global.System.Data.MappingType.Element)
3606             MyBase.Columns.Add(Me.columnPaymentModeDetails)
3607             Me.columnPaymentDate = New Global.System.Data.DataColumn("PaymentDate", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
3608             MyBase.Columns.Add(Me.columnPaymentDate)
3609             Me.columnPaymentDue = New Global.System.Data.DataColumn("PaymentDue", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
3610             MyBase.Columns.Add(Me.columnPaymentDue)
3611             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnId}, true))
3612             Me.columnId.AutoIncrement = true
3613             Me.columnId.AutoIncrementSeed = -1
3614             Me.columnId.AutoIncrementStep = -1
3615             Me.columnId.AllowDBNull = false
3616             Me.columnId.ReadOnly = true
3617             Me.columnId.Unique = true
3618             Me.columnBFP_ID.AllowDBNull = false
3619             Me.columnPaymentID.AllowDBNull = false
3620             Me.columnPaymentID.MaxLength = 30
3621             Me.columnBusHolderID.AllowDBNull = false
3622             Me.columnSession.AllowDBNull = false
3623             Me.columnSession.MaxLength = 15
3624             Me.columnInstallment.AllowDBNull = false
3625             Me.columnInstallment.MaxLength = 20
3626             Me.columnTotalFee.AllowDBNull = false
3627             Me.columnDiscountPer.AllowDBNull = false
3628             Me.columnDiscountAmt.AllowDBNull = false
3629             Me.columnPreviousDue.AllowDBNull = false
3630             Me.columnFine.AllowDBNull = false
3631             Me.columnGrandTotal.AllowDBNull = false
3632             Me.columnTotalPaid.AllowDBNull = false
3633             Me.columnModeOfPayment.AllowDBNull = false
3634             Me.columnModeOfPayment.MaxLength = 100
3635             Me.columnPaymentModeDetails.MaxLength = 250
3636             Me.columnPaymentDate.AllowDBNull = false
3637             Me.columnPaymentDue.AllowDBNull = false
3638         End Sub
3639         
3640         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3641          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3642         Public Function NewBusFeePayment_StaffRow() As BusFeePayment_StaffRow
3643             Return CType(Me.NewRow,BusFeePayment_StaffRow)
3644         End Function
3645         
3646         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3647          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3648         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
3649             Return New BusFeePayment_StaffRow(builder)
3650         End Function
3651         
3652         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3653          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3654         Protected Overrides Function GetRowType() As Global.System.Type
3655             Return GetType(BusFeePayment_StaffRow)
3656         End Function
3657         
3658         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3659          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3660         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
3661             MyBase.OnRowChanged(e)
3662             If (Not (Me.BusFeePayment_StaffRowChangedEvent) Is Nothing) Then
3663                 RaiseEvent BusFeePayment_StaffRowChanged(Me, New BusFeePayment_StaffRowChangeEvent(CType(e.Row,BusFeePayment_StaffRow), e.Action))
3664             End If
3665         End Sub
3666         
3667         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3668          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3669         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
3670             MyBase.OnRowChanging(e)
3671             If (Not (Me.BusFeePayment_StaffRowChangingEvent) Is Nothing) Then
3672                 RaiseEvent BusFeePayment_StaffRowChanging(Me, New BusFeePayment_StaffRowChangeEvent(CType(e.Row,BusFeePayment_StaffRow), e.Action))
3673             End If
3674         End Sub
3675         
3676         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3677          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3678         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
3679             MyBase.OnRowDeleted(e)
3680             If (Not (Me.BusFeePayment_StaffRowDeletedEvent) Is Nothing) Then
3681                 RaiseEvent BusFeePayment_StaffRowDeleted(Me, New BusFeePayment_StaffRowChangeEvent(CType(e.Row,BusFeePayment_StaffRow), e.Action))
3682             End If
3683         End Sub
3684         
3685         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3686          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3687         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
3688             MyBase.OnRowDeleting(e)
3689             If (Not (Me.BusFeePayment_StaffRowDeletingEvent) Is Nothing) Then
3690                 RaiseEvent BusFeePayment_StaffRowDeleting(Me, New BusFeePayment_StaffRowChangeEvent(CType(e.Row,BusFeePayment_StaffRow), e.Action))
3691             End If
3692         End Sub
3693         
3694         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3695          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3696         Public Sub RemoveBusFeePayment_StaffRow(ByVal row As BusFeePayment_StaffRow)
3697             Me.Rows.Remove(row)
3698         End Sub
3699         
3700         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3701          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3702         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
3703             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
3704             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
3705             Dim ds As ERPS_DBDataSet1 = New ERPS_DBDataSet1()
3706             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
3707             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
3708             any1.MinOccurs = New Decimal(0)
3709             any1.MaxOccurs = Decimal.MaxValue
3710             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
3711             sequence.Items.Add(any1)
3712             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
3713             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
3714             any2.MinOccurs = New Decimal(1)
3715             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
3716             sequence.Items.Add(any2)
3717             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
3718             attribute1.Name = "namespace"
3719             attribute1.FixedValue = ds.Namespace
3720             type.Attributes.Add(attribute1)
3721             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
3722             attribute2.Name = "tableTypeName"
3723             attribute2.FixedValue = "BusFeePayment_StaffDataTable"
3724             type.Attributes.Add(attribute2)
3725             type.Particle = sequence
3726             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
3727             If xs.Contains(dsSchema.TargetNamespace) Then
3728                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
3729                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
3730                 Try
3731                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
3732                     dsSchema.Write(s1)
3733                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
3734                     Do While schemas.MoveNext
3735                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
3736                         s2.SetLength(0)
3737                         schema.Write(s2)
3738                         If (s1.Length = s2.Length) Then
3739                             s1.Position = 0
3740                             s2.Position = 0
3741                             
3742                             Do While ((s1.Position <> s1.Length) _
3743                                         AndAlso (s1.ReadByte = s2.ReadByte))
3744                                 
3745                                 
3746                             Loop
3747                             If (s1.Position = s1.Length) Then
3748                                 Return type
3749                             End If
3750                         End If
3751                         
3752                     Loop
3753                 Finally
3754                     If (Not (s1) Is Nothing) Then
3755                         s1.Close
3756                     End If
3757                     If (Not (s2) Is Nothing) Then
3758                         s2.Close
3759                     End If
3760                 End Try
3761             End If
3762             xs.Add(dsSchema)
3763             Return type
3764         End Function
3765     End Class
3766     
3767     '''<summary>
3768     '''Represents the strongly named DataTable class.
3769     '''</summary>
3770     <Global.System.Serializable(), _
3771      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
3772     Partial Public Class BusFeePayment_StudentDataTable
3773         Inherits Global.System.Data.TypedTableBase(Of BusFeePayment_StudentRow)
3774         
3775         Private columnId As Global.System.Data.DataColumn
3776         
3777         Private columnBFP_ID As Global.System.Data.DataColumn
3778         
3779         Private columnPaymentID As Global.System.Data.DataColumn
3780         
3781         Private columnBusHolderID As Global.System.Data.DataColumn
3782         
3783         Private columnSession As Global.System.Data.DataColumn
3784         
3785         Private columnInstallment As Global.System.Data.DataColumn
3786         
3787         Private columnTotalFee As Global.System.Data.DataColumn
3788         
3789         Private columnDiscountPer As Global.System.Data.DataColumn
3790         
3791         Private columnDiscountAmt As Global.System.Data.DataColumn
3792         
3793         Private columnPreviousDue As Global.System.Data.DataColumn
3794         
3795         Private columnFine As Global.System.Data.DataColumn
3796         
3797         Private columnGrandTotal As Global.System.Data.DataColumn
3798         
3799         Private columnTotalPaid As Global.System.Data.DataColumn
3800         
3801         Private columnModeOfPayment As Global.System.Data.DataColumn
3802         
3803         Private columnPaymentModeDetails As Global.System.Data.DataColumn
3804         
3805         Private columnPaymentDate As Global.System.Data.DataColumn
3806         
3807         Private columnPaymentDue As Global.System.Data.DataColumn
3808         
3809         Private columnClassType As Global.System.Data.DataColumn
3810         
3811         Private columnSchoolType As Global.System.Data.DataColumn
3812         
3813         Private columnClass As Global.System.Data.DataColumn
3814         
3815         Private columnSection As Global.System.Data.DataColumn
3816         
3817         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3818          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3819         Public Sub New()
3820             MyBase.New
3821             Me.TableName = "BusFeePayment_Student"
3822             Me.BeginInit
3823             Me.InitClass
3824             Me.EndInit
3825         End Sub
3826         
3827         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3828          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3829         Friend Sub New(ByVal table As Global.System.Data.DataTable)
3830             MyBase.New
3831             Me.TableName = table.TableName
3832             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
3833                 Me.CaseSensitive = table.CaseSensitive
3834             End If
3835             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
3836                 Me.Locale = table.Locale
3837             End If
3838             If (table.Namespace <> table.DataSet.Namespace) Then
3839                 Me.Namespace = table.Namespace
3840             End If
3841             Me.Prefix = table.Prefix
3842             Me.MinimumCapacity = table.MinimumCapacity
3843         End Sub
3844         
3845         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3846          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3847         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
3848             MyBase.New(info, context)
3849             Me.InitVars
3850         End Sub
3851         
3852         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3853          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3854         Public ReadOnly Property IdColumn() As Global.System.Data.DataColumn
3855             Get
3856                 Return Me.columnId
3857             End Get
3858         End Property
3859         
3860         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3861          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3862         Public ReadOnly Property BFP_IDColumn() As Global.System.Data.DataColumn
3863             Get
3864                 Return Me.columnBFP_ID
3865             End Get
3866         End Property
3867         
3868         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3869          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3870         Public ReadOnly Property PaymentIDColumn() As Global.System.Data.DataColumn
3871             Get
3872                 Return Me.columnPaymentID
3873             End Get
3874         End Property
3875         
3876         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3877          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3878         Public ReadOnly Property BusHolderIDColumn() As Global.System.Data.DataColumn
3879             Get
3880                 Return Me.columnBusHolderID
3881             End Get
3882         End Property
3883         
3884         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3885          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3886         Public ReadOnly Property SessionColumn() As Global.System.Data.DataColumn
3887             Get
3888                 Return Me.columnSession
3889             End Get
3890         End Property
3891         
3892         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3893          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3894         Public ReadOnly Property InstallmentColumn() As Global.System.Data.DataColumn
3895             Get
3896                 Return Me.columnInstallment
3897             End Get
3898         End Property
3899         
3900         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3901          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3902         Public ReadOnly Property TotalFeeColumn() As Global.System.Data.DataColumn
3903             Get
3904                 Return Me.columnTotalFee
3905             End Get
3906         End Property
3907         
3908         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3909          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3910         Public ReadOnly Property DiscountPerColumn() As Global.System.Data.DataColumn
3911             Get
3912                 Return Me.columnDiscountPer
3913             End Get
3914         End Property
3915         
3916         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3917          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3918         Public ReadOnly Property DiscountAmtColumn() As Global.System.Data.DataColumn
3919             Get
3920                 Return Me.columnDiscountAmt
3921             End Get
3922         End Property
3923         
3924         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3925          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3926         Public ReadOnly Property PreviousDueColumn() As Global.System.Data.DataColumn
3927             Get
3928                 Return Me.columnPreviousDue
3929             End Get
3930         End Property
3931         
3932         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3933          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3934         Public ReadOnly Property FineColumn() As Global.System.Data.DataColumn
3935             Get
3936                 Return Me.columnFine
3937             End Get
3938         End Property
3939         
3940         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3941          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3942         Public ReadOnly Property GrandTotalColumn() As Global.System.Data.DataColumn
3943             Get
3944                 Return Me.columnGrandTotal
3945             End Get
3946         End Property
3947         
3948         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3949          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3950         Public ReadOnly Property TotalPaidColumn() As Global.System.Data.DataColumn
3951             Get
3952                 Return Me.columnTotalPaid
3953             End Get
3954         End Property
3955         
3956         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3957          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3958         Public ReadOnly Property ModeOfPaymentColumn() As Global.System.Data.DataColumn
3959             Get
3960                 Return Me.columnModeOfPayment
3961             End Get
3962         End Property
3963         
3964         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3965          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3966         Public ReadOnly Property PaymentModeDetailsColumn() As Global.System.Data.DataColumn
3967             Get
3968                 Return Me.columnPaymentModeDetails
3969             End Get
3970         End Property
3971         
3972         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3973          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3974         Public ReadOnly Property PaymentDateColumn() As Global.System.Data.DataColumn
3975             Get
3976                 Return Me.columnPaymentDate
3977             End Get
3978         End Property
3979         
3980         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3981          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3982         Public ReadOnly Property PaymentDueColumn() As Global.System.Data.DataColumn
3983             Get
3984                 Return Me.columnPaymentDue
3985             End Get
3986         End Property
3987         
3988         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3989          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3990         Public ReadOnly Property ClassTypeColumn() As Global.System.Data.DataColumn
3991             Get
3992                 Return Me.columnClassType
3993             End Get
3994         End Property
3995         
3996         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3997          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3998         Public ReadOnly Property SchoolTypeColumn() As Global.System.Data.DataColumn
3999             Get
4000                 Return Me.columnSchoolType
4001             End Get
4002         End Property
4003         
4004         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4005          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4006         Public ReadOnly Property ClassColumn() As Global.System.Data.DataColumn
4007             Get
4008                 Return Me.columnClass
4009             End Get
4010         End Property
4011         
4012         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4013          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4014         Public ReadOnly Property SectionColumn() As Global.System.Data.DataColumn
4015             Get
4016                 Return Me.columnSection
4017             End Get
4018         End Property
4019         
4020         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4021          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
4022          Global.System.ComponentModel.Browsable(false)> _
4023         Public ReadOnly Property Count() As Integer
4024             Get
4025                 Return Me.Rows.Count
4026             End Get
4027         End Property
4028         
4029         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4030          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4031         Public Default ReadOnly Property Item(ByVal index As Integer) As BusFeePayment_StudentRow
4032             Get
4033                 Return CType(Me.Rows(index),BusFeePayment_StudentRow)
4034             End Get
4035         End Property
4036         
4037         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4038         Public Event BusFeePayment_StudentRowChanging As BusFeePayment_StudentRowChangeEventHandler
4039         
4040         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4041         Public Event BusFeePayment_StudentRowChanged As BusFeePayment_StudentRowChangeEventHandler
4042         
4043         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4044         Public Event BusFeePayment_StudentRowDeleting As BusFeePayment_StudentRowChangeEventHandler
4045         
4046         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4047         Public Event BusFeePayment_StudentRowDeleted As BusFeePayment_StudentRowChangeEventHandler
4048         
4049         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4050          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4051         Public Overloads Sub AddBusFeePayment_StudentRow(ByVal row As BusFeePayment_StudentRow)
4052             Me.Rows.Add(row)
4053         End Sub
4054         
4055         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4056          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4057         Public Overloads Function AddBusFeePayment_StudentRow( _
4058                     ByVal BFP_ID As Integer, _
4059                     ByVal PaymentID As String, _
4060                     ByVal parentBusCardHolder_StudentRowByFK_BusFeePayment_Student_BusCardHolder_Student As BusCardHolder_StudentRow, _
4061                     ByVal Session As String, _
4062                     ByVal Installment As String, _
4063                     ByVal TotalFee As Decimal, _
4064                     ByVal DiscountPer As Decimal, _
4065                     ByVal DiscountAmt As Decimal, _
4066                     ByVal PreviousDue As Decimal, _
4067                     ByVal Fine As Decimal, _
4068                     ByVal GrandTotal As Decimal, _
4069                     ByVal TotalPaid As Decimal, _
4070                     ByVal ModeOfPayment As String, _
4071                     ByVal PaymentModeDetails As String, _
4072                     ByVal PaymentDate As Date, _
4073                     ByVal PaymentDue As Decimal, _
4074                     ByVal ClassType As String, _
4075                     ByVal SchoolType As String, _
4076                     ByVal _Class As String, _
4077                     ByVal Section As String) As BusFeePayment_StudentRow
4078             Dim rowBusFeePayment_StudentRow As BusFeePayment_StudentRow = CType(Me.NewRow,BusFeePayment_StudentRow)
4079             Dim columnValuesArray() As Object = New Object() {Nothing, BFP_ID, PaymentID, Nothing, Session, Installment, TotalFee, DiscountPer, DiscountAmt, PreviousDue, Fine, GrandTotal, TotalPaid, ModeOfPayment, PaymentModeDetails, PaymentDate, PaymentDue, ClassType, SchoolType, _Class, Section}
4080             If (Not (parentBusCardHolder_StudentRowByFK_BusFeePayment_Student_BusCardHolder_Student) Is Nothing) Then
4081                 columnValuesArray(3) = parentBusCardHolder_StudentRowByFK_BusFeePayment_Student_BusCardHolder_Student(0)
4082             End If
4083             rowBusFeePayment_StudentRow.ItemArray = columnValuesArray
4084             Me.Rows.Add(rowBusFeePayment_StudentRow)
4085             Return rowBusFeePayment_StudentRow
4086         End Function
4087         
4088         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4089          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4090         Public Function FindById(ByVal Id As Integer) As BusFeePayment_StudentRow
4091             Return CType(Me.Rows.Find(New Object() {Id}),BusFeePayment_StudentRow)
4092         End Function
4093         
4094         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4095          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4096         Public Overrides Function Clone() As Global.System.Data.DataTable
4097             Dim cln As BusFeePayment_StudentDataTable = CType(MyBase.Clone,BusFeePayment_StudentDataTable)
4098             cln.InitVars
4099             Return cln
4100         End Function
4101         
4102         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4103          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4104         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
4105             Return New BusFeePayment_StudentDataTable()
4106         End Function
4107         
4108         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4109          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4110         Friend Sub InitVars()
4111             Me.columnId = MyBase.Columns("Id")
4112             Me.columnBFP_ID = MyBase.Columns("BFP_ID")
4113             Me.columnPaymentID = MyBase.Columns("PaymentID")
4114             Me.columnBusHolderID = MyBase.Columns("BusHolderID")
4115             Me.columnSession = MyBase.Columns("Session")
4116             Me.columnInstallment = MyBase.Columns("Installment")
4117             Me.columnTotalFee = MyBase.Columns("TotalFee")
4118             Me.columnDiscountPer = MyBase.Columns("DiscountPer")
4119             Me.columnDiscountAmt = MyBase.Columns("DiscountAmt")
4120             Me.columnPreviousDue = MyBase.Columns("PreviousDue")
4121             Me.columnFine = MyBase.Columns("Fine")
4122             Me.columnGrandTotal = MyBase.Columns("GrandTotal")
4123             Me.columnTotalPaid = MyBase.Columns("TotalPaid")
4124             Me.columnModeOfPayment = MyBase.Columns("ModeOfPayment")
4125             Me.columnPaymentModeDetails = MyBase.Columns("PaymentModeDetails")
4126             Me.columnPaymentDate = MyBase.Columns("PaymentDate")
4127             Me.columnPaymentDue = MyBase.Columns("PaymentDue")
4128             Me.columnClassType = MyBase.Columns("ClassType")
4129             Me.columnSchoolType = MyBase.Columns("SchoolType")
4130             Me.columnClass = MyBase.Columns("Class")
4131             Me.columnSection = MyBase.Columns("Section")
4132         End Sub
4133         
4134         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4135          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4136         Private Sub InitClass()
4137             Me.columnId = New Global.System.Data.DataColumn("Id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
4138             MyBase.Columns.Add(Me.columnId)
4139             Me.columnBFP_ID = New Global.System.Data.DataColumn("BFP_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
4140             MyBase.Columns.Add(Me.columnBFP_ID)
4141             Me.columnPaymentID = New Global.System.Data.DataColumn("PaymentID", GetType(String), Nothing, Global.System.Data.MappingType.Element)
4142             MyBase.Columns.Add(Me.columnPaymentID)
4143             Me.columnBusHolderID = New Global.System.Data.DataColumn("BusHolderID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
4144             MyBase.Columns.Add(Me.columnBusHolderID)
4145             Me.columnSession = New Global.System.Data.DataColumn("Session", GetType(String), Nothing, Global.System.Data.MappingType.Element)
4146             MyBase.Columns.Add(Me.columnSession)
4147             Me.columnInstallment = New Global.System.Data.DataColumn("Installment", GetType(String), Nothing, Global.System.Data.MappingType.Element)
4148             MyBase.Columns.Add(Me.columnInstallment)
4149             Me.columnTotalFee = New Global.System.Data.DataColumn("TotalFee", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
4150             MyBase.Columns.Add(Me.columnTotalFee)
4151             Me.columnDiscountPer = New Global.System.Data.DataColumn("DiscountPer", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
4152             MyBase.Columns.Add(Me.columnDiscountPer)
4153             Me.columnDiscountAmt = New Global.System.Data.DataColumn("DiscountAmt", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
4154             MyBase.Columns.Add(Me.columnDiscountAmt)
4155             Me.columnPreviousDue = New Global.System.Data.DataColumn("PreviousDue", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
4156             MyBase.Columns.Add(Me.columnPreviousDue)
4157             Me.columnFine = New Global.System.Data.DataColumn("Fine", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
4158             MyBase.Columns.Add(Me.columnFine)
4159             Me.columnGrandTotal = New Global.System.Data.DataColumn("GrandTotal", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
4160             MyBase.Columns.Add(Me.columnGrandTotal)
4161             Me.columnTotalPaid = New Global.System.Data.DataColumn("TotalPaid", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
4162             MyBase.Columns.Add(Me.columnTotalPaid)
4163             Me.columnModeOfPayment = New Global.System.Data.DataColumn("ModeOfPayment", GetType(String), Nothing, Global.System.Data.MappingType.Element)
4164             MyBase.Columns.Add(Me.columnModeOfPayment)
4165             Me.columnPaymentModeDetails = New Global.System.Data.DataColumn("PaymentModeDetails", GetType(String), Nothing, Global.System.Data.MappingType.Element)
4166             MyBase.Columns.Add(Me.columnPaymentModeDetails)
4167             Me.columnPaymentDate = New Global.System.Data.DataColumn("PaymentDate", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
4168             MyBase.Columns.Add(Me.columnPaymentDate)
4169             Me.columnPaymentDue = New Global.System.Data.DataColumn("PaymentDue", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
4170             MyBase.Columns.Add(Me.columnPaymentDue)
4171             Me.columnClassType = New Global.System.Data.DataColumn("ClassType", GetType(String), Nothing, Global.System.Data.MappingType.Element)
4172             MyBase.Columns.Add(Me.columnClassType)
4173             Me.columnSchoolType = New Global.System.Data.DataColumn("SchoolType", GetType(String), Nothing, Global.System.Data.MappingType.Element)
4174             MyBase.Columns.Add(Me.columnSchoolType)
4175             Me.columnClass = New Global.System.Data.DataColumn("Class", GetType(String), Nothing, Global.System.Data.MappingType.Element)
4176             Me.columnClass.ExtendedProperties.Add("Generator_ColumnPropNameInTable", "ClassColumn")
4177             Me.columnClass.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "columnClass")
4178             Me.columnClass.ExtendedProperties.Add("Generator_UserColumnName", "Class")
4179             MyBase.Columns.Add(Me.columnClass)
4180             Me.columnSection = New Global.System.Data.DataColumn("Section", GetType(String), Nothing, Global.System.Data.MappingType.Element)
4181             MyBase.Columns.Add(Me.columnSection)
4182             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnId}, true))
4183             Me.columnId.AutoIncrement = true
4184             Me.columnId.AutoIncrementSeed = -1
4185             Me.columnId.AutoIncrementStep = -1
4186             Me.columnId.AllowDBNull = false
4187             Me.columnId.ReadOnly = true
4188             Me.columnId.Unique = true
4189             Me.columnBFP_ID.AllowDBNull = false
4190             Me.columnPaymentID.AllowDBNull = false
4191             Me.columnPaymentID.MaxLength = 30
4192             Me.columnBusHolderID.AllowDBNull = false
4193             Me.columnSession.AllowDBNull = false
4194             Me.columnSession.MaxLength = 15
4195             Me.columnInstallment.AllowDBNull = false
4196             Me.columnInstallment.MaxLength = 20
4197             Me.columnTotalFee.AllowDBNull = false
4198             Me.columnDiscountPer.AllowDBNull = false
4199             Me.columnDiscountAmt.AllowDBNull = false
4200             Me.columnPreviousDue.AllowDBNull = false
4201             Me.columnFine.AllowDBNull = false
4202             Me.columnGrandTotal.AllowDBNull = false
4203             Me.columnTotalPaid.AllowDBNull = false
4204             Me.columnModeOfPayment.AllowDBNull = false
4205             Me.columnModeOfPayment.MaxLength = 100
4206             Me.columnPaymentModeDetails.MaxLength = 250
4207             Me.columnPaymentDate.AllowDBNull = false
4208             Me.columnPaymentDue.AllowDBNull = false
4209             Me.columnClassType.AllowDBNull = false
4210             Me.columnClassType.MaxLength = 150
4211             Me.columnSchoolType.AllowDBNull = false
4212             Me.columnSchoolType.MaxLength = 150
4213             Me.columnClass.AllowDBNull = false
4214             Me.columnClass.MaxLength = 100
4215             Me.columnSection.AllowDBNull = false
4216             Me.columnSection.MaxLength = 15
4217         End Sub
4218         
4219         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4220          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4221         Public Function NewBusFeePayment_StudentRow() As BusFeePayment_StudentRow
4222             Return CType(Me.NewRow,BusFeePayment_StudentRow)
4223         End Function
4224         
4225         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4226          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4227         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
4228             Return New BusFeePayment_StudentRow(builder)
4229         End Function
4230         
4231         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4232          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4233         Protected Overrides Function GetRowType() As Global.System.Type
4234             Return GetType(BusFeePayment_StudentRow)
4235         End Function
4236         
4237         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4238          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4239         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
4240             MyBase.OnRowChanged(e)
4241             If (Not (Me.BusFeePayment_StudentRowChangedEvent) Is Nothing) Then
4242                 RaiseEvent BusFeePayment_StudentRowChanged(Me, New BusFeePayment_StudentRowChangeEvent(CType(e.Row,BusFeePayment_StudentRow), e.Action))
4243             End If
4244         End Sub
4245         
4246         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4247          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4248         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
4249             MyBase.OnRowChanging(e)
4250             If (Not (Me.BusFeePayment_StudentRowChangingEvent) Is Nothing) Then
4251                 RaiseEvent BusFeePayment_StudentRowChanging(Me, New BusFeePayment_StudentRowChangeEvent(CType(e.Row,BusFeePayment_StudentRow), e.Action))
4252             End If
4253         End Sub
4254         
4255         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4256          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4257         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
4258             MyBase.OnRowDeleted(e)
4259             If (Not (Me.BusFeePayment_StudentRowDeletedEvent) Is Nothing) Then
4260                 RaiseEvent BusFeePayment_StudentRowDeleted(Me, New BusFeePayment_StudentRowChangeEvent(CType(e.Row,BusFeePayment_StudentRow), e.Action))
4261             End If
4262         End Sub
4263         
4264         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4265          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4266         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
4267             MyBase.OnRowDeleting(e)
4268             If (Not (Me.BusFeePayment_StudentRowDeletingEvent) Is Nothing) Then
4269                 RaiseEvent BusFeePayment_StudentRowDeleting(Me, New BusFeePayment_StudentRowChangeEvent(CType(e.Row,BusFeePayment_StudentRow), e.Action))
4270             End If
4271         End Sub
4272         
4273         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4274          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4275         Public Sub RemoveBusFeePayment_StudentRow(ByVal row As BusFeePayment_StudentRow)
4276             Me.Rows.Remove(row)
4277         End Sub
4278         
4279         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4280          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4281         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
4282             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
4283             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
4284             Dim ds As ERPS_DBDataSet1 = New ERPS_DBDataSet1()
4285             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
4286             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
4287             any1.MinOccurs = New Decimal(0)
4288             any1.MaxOccurs = Decimal.MaxValue
4289             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
4290             sequence.Items.Add(any1)
4291             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
4292             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
4293             any2.MinOccurs = New Decimal(1)
4294             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
4295             sequence.Items.Add(any2)
4296             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
4297             attribute1.Name = "namespace"
4298             attribute1.FixedValue = ds.Namespace
4299             type.Attributes.Add(attribute1)
4300             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
4301             attribute2.Name = "tableTypeName"
4302             attribute2.FixedValue = "BusFeePayment_StudentDataTable"
4303             type.Attributes.Add(attribute2)
4304             type.Particle = sequence
4305             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
4306             If xs.Contains(dsSchema.TargetNamespace) Then
4307                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
4308                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
4309                 Try
4310                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
4311                     dsSchema.Write(s1)
4312                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
4313                     Do While schemas.MoveNext
4314                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
4315                         s2.SetLength(0)
4316                         schema.Write(s2)
4317                         If (s1.Length = s2.Length) Then
4318                             s1.Position = 0
4319                             s2.Position = 0
4320                             
4321                             Do While ((s1.Position <> s1.Length) _
4322                                         AndAlso (s1.ReadByte = s2.ReadByte))
4323                                 
4324                                 
4325                             Loop
4326                             If (s1.Position = s1.Length) Then
4327                                 Return type
4328                             End If
4329                         End If
4330                         
4331                     Loop
4332                 Finally
4333                     If (Not (s1) Is Nothing) Then
4334                         s1.Close
4335                     End If
4336                     If (Not (s2) Is Nothing) Then
4337                         s2.Close
4338                     End If
4339                 End Try
4340             End If
4341             xs.Add(dsSchema)
4342             Return type
4343         End Function
4344     End Class
4345     
4346     '''<summary>
4347     '''Represents the strongly named DataTable class.
4348     '''</summary>
4349     <Global.System.Serializable(), _
4350      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
4351     Partial Public Class BusInfoDataTable
4352         Inherits Global.System.Data.TypedTableBase(Of BusInfoRow)
4353         
4354         Private columnBusNo As Global.System.Data.DataColumn
4355         
4356         Private columnDriverName As Global.System.Data.DataColumn
4357         
4358         Private columnContactNo As Global.System.Data.DataColumn
4359         
4360         Private columnSupporterName As Global.System.Data.DataColumn
4361         
4362         Private columnS_ContactNo As Global.System.Data.DataColumn
4363         
4364         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4365          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4366         Public Sub New()
4367             MyBase.New
4368             Me.TableName = "BusInfo"
4369             Me.BeginInit
4370             Me.InitClass
4371             Me.EndInit
4372         End Sub
4373         
4374         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4375          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4376         Friend Sub New(ByVal table As Global.System.Data.DataTable)
4377             MyBase.New
4378             Me.TableName = table.TableName
4379             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
4380                 Me.CaseSensitive = table.CaseSensitive
4381             End If
4382             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
4383                 Me.Locale = table.Locale
4384             End If
4385             If (table.Namespace <> table.DataSet.Namespace) Then
4386                 Me.Namespace = table.Namespace
4387             End If
4388             Me.Prefix = table.Prefix
4389             Me.MinimumCapacity = table.MinimumCapacity
4390         End Sub
4391         
4392         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4393          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4394         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
4395             MyBase.New(info, context)
4396             Me.InitVars
4397         End Sub
4398         
4399         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4400          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4401         Public ReadOnly Property BusNoColumn() As Global.System.Data.DataColumn
4402             Get
4403                 Return Me.columnBusNo
4404             End Get
4405         End Property
4406         
4407         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4408          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4409         Public ReadOnly Property DriverNameColumn() As Global.System.Data.DataColumn
4410             Get
4411                 Return Me.columnDriverName
4412             End Get
4413         End Property
4414         
4415         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4416          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4417         Public ReadOnly Property ContactNoColumn() As Global.System.Data.DataColumn
4418             Get
4419                 Return Me.columnContactNo
4420             End Get
4421         End Property
4422         
4423         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4424          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4425         Public ReadOnly Property SupporterNameColumn() As Global.System.Data.DataColumn
4426             Get
4427                 Return Me.columnSupporterName
4428             End Get
4429         End Property
4430         
4431         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4432          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4433         Public ReadOnly Property S_ContactNoColumn() As Global.System.Data.DataColumn
4434             Get
4435                 Return Me.columnS_ContactNo
4436             End Get
4437         End Property
4438         
4439         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4440          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
4441          Global.System.ComponentModel.Browsable(false)> _
4442         Public ReadOnly Property Count() As Integer
4443             Get
4444                 Return Me.Rows.Count
4445             End Get
4446         End Property
4447         
4448         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4449          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4450         Public Default ReadOnly Property Item(ByVal index As Integer) As BusInfoRow
4451             Get
4452                 Return CType(Me.Rows(index),BusInfoRow)
4453             End Get
4454         End Property
4455         
4456         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4457         Public Event BusInfoRowChanging As BusInfoRowChangeEventHandler
4458         
4459         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4460         Public Event BusInfoRowChanged As BusInfoRowChangeEventHandler
4461         
4462         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4463         Public Event BusInfoRowDeleting As BusInfoRowChangeEventHandler
4464         
4465         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4466         Public Event BusInfoRowDeleted As BusInfoRowChangeEventHandler
4467         
4468         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4469          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4470         Public Overloads Sub AddBusInfoRow(ByVal row As BusInfoRow)
4471             Me.Rows.Add(row)
4472         End Sub
4473         
4474         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4475          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4476         Public Overloads Function AddBusInfoRow(ByVal BusNo As String, ByVal DriverName As String, ByVal ContactNo As String, ByVal SupporterName As String, ByVal S_ContactNo As String) As BusInfoRow
4477             Dim rowBusInfoRow As BusInfoRow = CType(Me.NewRow,BusInfoRow)
4478             Dim columnValuesArray() As Object = New Object() {BusNo, DriverName, ContactNo, SupporterName, S_ContactNo}
4479             rowBusInfoRow.ItemArray = columnValuesArray
4480             Me.Rows.Add(rowBusInfoRow)
4481             Return rowBusInfoRow
4482         End Function
4483         
4484         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4485          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4486         Public Function FindByBusNo(ByVal BusNo As String) As BusInfoRow
4487             Return CType(Me.Rows.Find(New Object() {BusNo}),BusInfoRow)
4488         End Function
4489         
4490         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4491          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4492         Public Overrides Function Clone() As Global.System.Data.DataTable
4493             Dim cln As BusInfoDataTable = CType(MyBase.Clone,BusInfoDataTable)
4494             cln.InitVars
4495             Return cln
4496         End Function
4497         
4498         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4499          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4500         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
4501             Return New BusInfoDataTable()
4502         End Function
4503         
4504         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4505          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4506         Friend Sub InitVars()
4507             Me.columnBusNo = MyBase.Columns("BusNo")
4508             Me.columnDriverName = MyBase.Columns("DriverName")
4509             Me.columnContactNo = MyBase.Columns("ContactNo")
4510             Me.columnSupporterName = MyBase.Columns("SupporterName")
4511             Me.columnS_ContactNo = MyBase.Columns("S_ContactNo")
4512         End Sub
4513         
4514         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4515          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4516         Private Sub InitClass()
4517             Me.columnBusNo = New Global.System.Data.DataColumn("BusNo", GetType(String), Nothing, Global.System.Data.MappingType.Element)
4518             MyBase.Columns.Add(Me.columnBusNo)
4519             Me.columnDriverName = New Global.System.Data.DataColumn("DriverName", GetType(String), Nothing, Global.System.Data.MappingType.Element)
4520             MyBase.Columns.Add(Me.columnDriverName)
4521             Me.columnContactNo = New Global.System.Data.DataColumn("ContactNo", GetType(String), Nothing, Global.System.Data.MappingType.Element)
4522             MyBase.Columns.Add(Me.columnContactNo)
4523             Me.columnSupporterName = New Global.System.Data.DataColumn("SupporterName", GetType(String), Nothing, Global.System.Data.MappingType.Element)
4524             MyBase.Columns.Add(Me.columnSupporterName)
4525             Me.columnS_ContactNo = New Global.System.Data.DataColumn("S_ContactNo", GetType(String), Nothing, Global.System.Data.MappingType.Element)
4526             MyBase.Columns.Add(Me.columnS_ContactNo)
4527             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnBusNo}, true))
4528             Me.columnBusNo.AllowDBNull = false
4529             Me.columnBusNo.Unique = true
4530             Me.columnBusNo.MaxLength = 100
4531             Me.columnDriverName.AllowDBNull = false
4532             Me.columnDriverName.MaxLength = 150
4533             Me.columnContactNo.AllowDBNull = false
4534             Me.columnContactNo.MaxLength = 100
4535             Me.columnSupporterName.MaxLength = 150
4536             Me.columnS_ContactNo.MaxLength = 100
4537         End Sub
4538         
4539         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4540          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4541         Public Function NewBusInfoRow() As BusInfoRow
4542             Return CType(Me.NewRow,BusInfoRow)
4543         End Function
4544         
4545         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4546          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4547         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
4548             Return New BusInfoRow(builder)
4549         End Function
4550         
4551         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4552          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4553         Protected Overrides Function GetRowType() As Global.System.Type
4554             Return GetType(BusInfoRow)
4555         End Function
4556         
4557         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4558          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4559         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
4560             MyBase.OnRowChanged(e)
4561             If (Not (Me.BusInfoRowChangedEvent) Is Nothing) Then
4562                 RaiseEvent BusInfoRowChanged(Me, New BusInfoRowChangeEvent(CType(e.Row,BusInfoRow), e.Action))
4563             End If
4564         End Sub
4565         
4566         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4567          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4568         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
4569             MyBase.OnRowChanging(e)
4570             If (Not (Me.BusInfoRowChangingEvent) Is Nothing) Then
4571                 RaiseEvent BusInfoRowChanging(Me, New BusInfoRowChangeEvent(CType(e.Row,BusInfoRow), e.Action))
4572             End If
4573         End Sub
4574         
4575         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4576          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4577         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
4578             MyBase.OnRowDeleted(e)
4579             If (Not (Me.BusInfoRowDeletedEvent) Is Nothing) Then
4580                 RaiseEvent BusInfoRowDeleted(Me, New BusInfoRowChangeEvent(CType(e.Row,BusInfoRow), e.Action))
4581             End If
4582         End Sub
4583         
4584         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4585          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4586         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
4587             MyBase.OnRowDeleting(e)
4588             If (Not (Me.BusInfoRowDeletingEvent) Is Nothing) Then
4589                 RaiseEvent BusInfoRowDeleting(Me, New BusInfoRowChangeEvent(CType(e.Row,BusInfoRow), e.Action))
4590             End If
4591         End Sub
4592         
4593         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4594          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4595         Public Sub RemoveBusInfoRow(ByVal row As BusInfoRow)
4596             Me.Rows.Remove(row)
4597         End Sub
4598         
4599         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4600          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4601         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
4602             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
4603             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
4604             Dim ds As ERPS_DBDataSet1 = New ERPS_DBDataSet1()
4605             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
4606             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
4607             any1.MinOccurs = New Decimal(0)
4608             any1.MaxOccurs = Decimal.MaxValue
4609             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
4610             sequence.Items.Add(any1)
4611             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
4612             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
4613             any2.MinOccurs = New Decimal(1)
4614             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
4615             sequence.Items.Add(any2)
4616             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
4617             attribute1.Name = "namespace"
4618             attribute1.FixedValue = ds.Namespace
4619             type.Attributes.Add(attribute1)
4620             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
4621             attribute2.Name = "tableTypeName"
4622             attribute2.FixedValue = "BusInfoDataTable"
4623             type.Attributes.Add(attribute2)
4624             type.Particle = sequence
4625             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
4626             If xs.Contains(dsSchema.TargetNamespace) Then
4627                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
4628                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
4629                 Try
4630                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
4631                     dsSchema.Write(s1)
4632                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
4633                     Do While schemas.MoveNext
4634                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
4635                         s2.SetLength(0)
4636                         schema.Write(s2)
4637                         If (s1.Length = s2.Length) Then
4638                             s1.Position = 0
4639                             s2.Position = 0
4640                             
4641                             Do While ((s1.Position <> s1.Length) _
4642                                         AndAlso (s1.ReadByte = s2.ReadByte))
4643                                 
4644                                 
4645                             Loop
4646                             If (s1.Position = s1.Length) Then
4647                                 Return type
4648                             End If
4649                         End If
4650                         
4651                     Loop
4652                 Finally
4653                     If (Not (s1) Is Nothing) Then
4654                         s1.Close
4655                     End If
4656                     If (Not (s2) Is Nothing) Then
4657                         s2.Close
4658                     End If
4659                 End Try
4660             End If
4661             xs.Add(dsSchema)
4662             Return type
4663         End Function
4664     End Class
4665     
4666     '''<summary>
4667     '''Represents the strongly named DataTable class.
4668     '''</summary>
4669     <Global.System.Serializable(), _
4670      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
4671     Partial Public Class Cards_StaffDataTable
4672         Inherits Global.System.Data.TypedTableBase(Of Cards_StaffRow)
4673         
4674         Private columnStaffID As Global.System.Data.DataColumn
4675         
4676         Private columnStatus As Global.System.Data.DataColumn
4677         
4678         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4679          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4680         Public Sub New()
4681             MyBase.New
4682             Me.TableName = "Cards_Staff"
4683             Me.BeginInit
4684             Me.InitClass
4685             Me.EndInit
4686         End Sub
4687         
4688         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4689          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4690         Friend Sub New(ByVal table As Global.System.Data.DataTable)
4691             MyBase.New
4692             Me.TableName = table.TableName
4693             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
4694                 Me.CaseSensitive = table.CaseSensitive
4695             End If
4696             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
4697                 Me.Locale = table.Locale
4698             End If
4699             If (table.Namespace <> table.DataSet.Namespace) Then
4700                 Me.Namespace = table.Namespace
4701             End If
4702             Me.Prefix = table.Prefix
4703             Me.MinimumCapacity = table.MinimumCapacity
4704         End Sub
4705         
4706         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4707          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4708         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
4709             MyBase.New(info, context)
4710             Me.InitVars
4711         End Sub
4712         
4713         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4714          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4715         Public ReadOnly Property StaffIDColumn() As Global.System.Data.DataColumn
4716             Get
4717                 Return Me.columnStaffID
4718             End Get
4719         End Property
4720         
4721         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4722          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4723         Public ReadOnly Property StatusColumn() As Global.System.Data.DataColumn
4724             Get
4725                 Return Me.columnStatus
4726             End Get
4727         End Property
4728         
4729         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4730          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
4731          Global.System.ComponentModel.Browsable(false)> _
4732         Public ReadOnly Property Count() As Integer
4733             Get
4734                 Return Me.Rows.Count
4735             End Get
4736         End Property
4737         
4738         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4739          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4740         Public Default ReadOnly Property Item(ByVal index As Integer) As Cards_StaffRow
4741             Get
4742                 Return CType(Me.Rows(index),Cards_StaffRow)
4743             End Get
4744         End Property
4745         
4746         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4747         Public Event Cards_StaffRowChanging As Cards_StaffRowChangeEventHandler
4748         
4749         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4750         Public Event Cards_StaffRowChanged As Cards_StaffRowChangeEventHandler
4751         
4752         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4753         Public Event Cards_StaffRowDeleting As Cards_StaffRowChangeEventHandler
4754         
4755         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4756         Public Event Cards_StaffRowDeleted As Cards_StaffRowChangeEventHandler
4757         
4758         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4759          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4760         Public Overloads Sub AddCards_StaffRow(ByVal row As Cards_StaffRow)
4761             Me.Rows.Add(row)
4762         End Sub
4763         
4764         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4765          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4766         Public Overloads Function AddCards_StaffRow(ByVal parentStaffRowByFK_Cards_Staff_Staff As StaffRow, ByVal Status As String) As Cards_StaffRow
4767             Dim rowCards_StaffRow As Cards_StaffRow = CType(Me.NewRow,Cards_StaffRow)
4768             Dim columnValuesArray() As Object = New Object() {Nothing, Status}
4769             If (Not (parentStaffRowByFK_Cards_Staff_Staff) Is Nothing) Then
4770                 columnValuesArray(0) = parentStaffRowByFK_Cards_Staff_Staff(0)
4771             End If
4772             rowCards_StaffRow.ItemArray = columnValuesArray
4773             Me.Rows.Add(rowCards_StaffRow)
4774             Return rowCards_StaffRow
4775         End Function
4776         
4777         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4778          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4779         Public Function FindByStaffID(ByVal StaffID As Integer) As Cards_StaffRow
4780             Return CType(Me.Rows.Find(New Object() {StaffID}),Cards_StaffRow)
4781         End Function
4782         
4783         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4784          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4785         Public Overrides Function Clone() As Global.System.Data.DataTable
4786             Dim cln As Cards_StaffDataTable = CType(MyBase.Clone,Cards_StaffDataTable)
4787             cln.InitVars
4788             Return cln
4789         End Function
4790         
4791         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4792          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4793         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
4794             Return New Cards_StaffDataTable()
4795         End Function
4796         
4797         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4798          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4799         Friend Sub InitVars()
4800             Me.columnStaffID = MyBase.Columns("StaffID")
4801             Me.columnStatus = MyBase.Columns("Status")
4802         End Sub
4803         
4804         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4805          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4806         Private Sub InitClass()
4807             Me.columnStaffID = New Global.System.Data.DataColumn("StaffID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
4808             MyBase.Columns.Add(Me.columnStaffID)
4809             Me.columnStatus = New Global.System.Data.DataColumn("Status", GetType(String), Nothing, Global.System.Data.MappingType.Element)
4810             MyBase.Columns.Add(Me.columnStatus)
4811             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnStaffID}, true))
4812             Me.columnStaffID.AllowDBNull = false
4813             Me.columnStaffID.Unique = true
4814             Me.columnStatus.MaxLength = 50
4815         End Sub
4816         
4817         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4818          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4819         Public Function NewCards_StaffRow() As Cards_StaffRow
4820             Return CType(Me.NewRow,Cards_StaffRow)
4821         End Function
4822         
4823         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4824          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4825         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
4826             Return New Cards_StaffRow(builder)
4827         End Function
4828         
4829         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4830          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4831         Protected Overrides Function GetRowType() As Global.System.Type
4832             Return GetType(Cards_StaffRow)
4833         End Function
4834         
4835         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4836          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4837         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
4838             MyBase.OnRowChanged(e)
4839             If (Not (Me.Cards_StaffRowChangedEvent) Is Nothing) Then
4840                 RaiseEvent Cards_StaffRowChanged(Me, New Cards_StaffRowChangeEvent(CType(e.Row,Cards_StaffRow), e.Action))
4841             End If
4842         End Sub
4843         
4844         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4845          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4846         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
4847             MyBase.OnRowChanging(e)
4848             If (Not (Me.Cards_StaffRowChangingEvent) Is Nothing) Then
4849                 RaiseEvent Cards_StaffRowChanging(Me, New Cards_StaffRowChangeEvent(CType(e.Row,Cards_StaffRow), e.Action))
4850             End If
4851         End Sub
4852         
4853         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4854          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4855         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
4856             MyBase.OnRowDeleted(e)
4857             If (Not (Me.Cards_StaffRowDeletedEvent) Is Nothing) Then
4858                 RaiseEvent Cards_StaffRowDeleted(Me, New Cards_StaffRowChangeEvent(CType(e.Row,Cards_StaffRow), e.Action))
4859             End If
4860         End Sub
4861         
4862         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4863          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4864         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
4865             MyBase.OnRowDeleting(e)
4866             If (Not (Me.Cards_StaffRowDeletingEvent) Is Nothing) Then
4867                 RaiseEvent Cards_StaffRowDeleting(Me, New Cards_StaffRowChangeEvent(CType(e.Row,Cards_StaffRow), e.Action))
4868             End If
4869         End Sub
4870         
4871         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4872          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4873         Public Sub RemoveCards_StaffRow(ByVal row As Cards_StaffRow)
4874             Me.Rows.Remove(row)
4875         End Sub
4876         
4877         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4878          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4879         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
4880             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
4881             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
4882             Dim ds As ERPS_DBDataSet1 = New ERPS_DBDataSet1()
4883             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
4884             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
4885             any1.MinOccurs = New Decimal(0)
4886             any1.MaxOccurs = Decimal.MaxValue
4887             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
4888             sequence.Items.Add(any1)
4889             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
4890             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
4891             any2.MinOccurs = New Decimal(1)
4892             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
4893             sequence.Items.Add(any2)
4894             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
4895             attribute1.Name = "namespace"
4896             attribute1.FixedValue = ds.Namespace
4897             type.Attributes.Add(attribute1)
4898             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
4899             attribute2.Name = "tableTypeName"
4900             attribute2.FixedValue = "Cards_StaffDataTable"
4901             type.Attributes.Add(attribute2)
4902             type.Particle = sequence
4903             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
4904             If xs.Contains(dsSchema.TargetNamespace) Then
4905                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
4906                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
4907                 Try
4908                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
4909                     dsSchema.Write(s1)
4910                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
4911                     Do While schemas.MoveNext
4912                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
4913                         s2.SetLength(0)
4914                         schema.Write(s2)
4915                         If (s1.Length = s2.Length) Then
4916                             s1.Position = 0
4917                             s2.Position = 0
4918                             
4919                             Do While ((s1.Position <> s1.Length) _
4920                                         AndAlso (s1.ReadByte = s2.ReadByte))
4921                                 
4922                                 
4923                             Loop
4924                             If (s1.Position = s1.Length) Then
4925                                 Return type
4926                             End If
4927                         End If
4928                         
4929                     Loop
4930                 Finally
4931                     If (Not (s1) Is Nothing) Then
4932                         s1.Close
4933                     End If
4934                     If (Not (s2) Is Nothing) Then
4935                         s2.Close
4936                     End If
4937                 End Try
4938             End If
4939             xs.Add(dsSchema)
4940             Return type
4941         End Function
4942     End Class
4943     
4944     '''<summary>
4945     '''Represents the strongly named DataTable class.
4946     '''</summary>
4947     <Global.System.Serializable(), _
4948      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
4949     Partial Public Class Cards_StudentDataTable
4950         Inherits Global.System.Data.TypedTableBase(Of Cards_StudentRow)
4951         
4952         Private columnAdmissionNo As Global.System.Data.DataColumn
4953         
4954         Private columnStatus As Global.System.Data.DataColumn
4955         
4956         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4957          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4958         Public Sub New()
4959             MyBase.New
4960             Me.TableName = "Cards_Student"
4961             Me.BeginInit
4962             Me.InitClass
4963             Me.EndInit
4964         End Sub
4965         
4966         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4967          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4968         Friend Sub New(ByVal table As Global.System.Data.DataTable)
4969             MyBase.New
4970             Me.TableName = table.TableName
4971             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
4972                 Me.CaseSensitive = table.CaseSensitive
4973             End If
4974             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
4975                 Me.Locale = table.Locale
4976             End If
4977             If (table.Namespace <> table.DataSet.Namespace) Then
4978                 Me.Namespace = table.Namespace
4979             End If
4980             Me.Prefix = table.Prefix
4981             Me.MinimumCapacity = table.MinimumCapacity
4982         End Sub
4983         
4984         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4985          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4986         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
4987             MyBase.New(info, context)
4988             Me.InitVars
4989         End Sub
4990         
4991         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4992          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4993         Public ReadOnly Property AdmissionNoColumn() As Global.System.Data.DataColumn
4994             Get
4995                 Return Me.columnAdmissionNo
4996             End Get
4997         End Property
4998         
4999         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5000          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5001         Public ReadOnly Property StatusColumn() As Global.System.Data.DataColumn
5002             Get
5003                 Return Me.columnStatus
5004             End Get
5005         End Property
5006         
5007         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5008          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
5009          Global.System.ComponentModel.Browsable(false)> _
5010         Public ReadOnly Property Count() As Integer
5011             Get
5012                 Return Me.Rows.Count
5013             End Get
5014         End Property
5015         
5016         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5017          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5018         Public Default ReadOnly Property Item(ByVal index As Integer) As Cards_StudentRow
5019             Get
5020                 Return CType(Me.Rows(index),Cards_StudentRow)
5021             End Get
5022         End Property
5023         
5024         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5025         Public Event Cards_StudentRowChanging As Cards_StudentRowChangeEventHandler
5026         
5027         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5028         Public Event Cards_StudentRowChanged As Cards_StudentRowChangeEventHandler
5029         
5030         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5031         Public Event Cards_StudentRowDeleting As Cards_StudentRowChangeEventHandler
5032         
5033         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5034         Public Event Cards_StudentRowDeleted As Cards_StudentRowChangeEventHandler
5035         
5036         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5037          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5038         Public Overloads Sub AddCards_StudentRow(ByVal row As Cards_StudentRow)
5039             Me.Rows.Add(row)
5040         End Sub
5041         
5042         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5043          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5044         Public Overloads Function AddCards_StudentRow(ByVal parentStudentRowByFK_Cards_Student_Student As StudentRow, ByVal Status As String) As Cards_StudentRow
5045             Dim rowCards_StudentRow As Cards_StudentRow = CType(Me.NewRow,Cards_StudentRow)
5046             Dim columnValuesArray() As Object = New Object() {Nothing, Status}
5047             If (Not (parentStudentRowByFK_Cards_Student_Student) Is Nothing) Then
5048                 columnValuesArray(0) = parentStudentRowByFK_Cards_Student_Student(0)
5049             End If
5050             rowCards_StudentRow.ItemArray = columnValuesArray
5051             Me.Rows.Add(rowCards_StudentRow)
5052             Return rowCards_StudentRow
5053         End Function
5054         
5055         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5056          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5057         Public Function FindByAdmissionNo(ByVal AdmissionNo As String) As Cards_StudentRow
5058             Return CType(Me.Rows.Find(New Object() {AdmissionNo}),Cards_StudentRow)
5059         End Function
5060         
5061         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5062          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5063         Public Overrides Function Clone() As Global.System.Data.DataTable
5064             Dim cln As Cards_StudentDataTable = CType(MyBase.Clone,Cards_StudentDataTable)
5065             cln.InitVars
5066             Return cln
5067         End Function
5068         
5069         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5070          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5071         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
5072             Return New Cards_StudentDataTable()
5073         End Function
5074         
5075         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5076          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5077         Friend Sub InitVars()
5078             Me.columnAdmissionNo = MyBase.Columns("AdmissionNo")
5079             Me.columnStatus = MyBase.Columns("Status")
5080         End Sub
5081         
5082         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5083          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5084         Private Sub InitClass()
5085             Me.columnAdmissionNo = New Global.System.Data.DataColumn("AdmissionNo", GetType(String), Nothing, Global.System.Data.MappingType.Element)
5086             MyBase.Columns.Add(Me.columnAdmissionNo)
5087             Me.columnStatus = New Global.System.Data.DataColumn("Status", GetType(String), Nothing, Global.System.Data.MappingType.Element)
5088             MyBase.Columns.Add(Me.columnStatus)
5089             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnAdmissionNo}, true))
5090             Me.columnAdmissionNo.AllowDBNull = false
5091             Me.columnAdmissionNo.Unique = true
5092             Me.columnAdmissionNo.MaxLength = 15
5093             Me.columnStatus.MaxLength = 50
5094         End Sub
5095         
5096         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5097          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5098         Public Function NewCards_StudentRow() As Cards_StudentRow
5099             Return CType(Me.NewRow,Cards_StudentRow)
5100         End Function
5101         
5102         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5103          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5104         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
5105             Return New Cards_StudentRow(builder)
5106         End Function
5107         
5108         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5109          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5110         Protected Overrides Function GetRowType() As Global.System.Type
5111             Return GetType(Cards_StudentRow)
5112         End Function
5113         
5114         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5115          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5116         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
5117             MyBase.OnRowChanged(e)
5118             If (Not (Me.Cards_StudentRowChangedEvent) Is Nothing) Then
5119                 RaiseEvent Cards_StudentRowChanged(Me, New Cards_StudentRowChangeEvent(CType(e.Row,Cards_StudentRow), e.Action))
5120             End If
5121         End Sub
5122         
5123         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5124          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5125         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
5126             MyBase.OnRowChanging(e)
5127             If (Not (Me.Cards_StudentRowChangingEvent) Is Nothing) Then
5128                 RaiseEvent Cards_StudentRowChanging(Me, New Cards_StudentRowChangeEvent(CType(e.Row,Cards_StudentRow), e.Action))
5129             End If
5130         End Sub
5131         
5132         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5133          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5134         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
5135             MyBase.OnRowDeleted(e)
5136             If (Not (Me.Cards_StudentRowDeletedEvent) Is Nothing) Then
5137                 RaiseEvent Cards_StudentRowDeleted(Me, New Cards_StudentRowChangeEvent(CType(e.Row,Cards_StudentRow), e.Action))
5138             End If
5139         End Sub
5140         
5141         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5142          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5143         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
5144             MyBase.OnRowDeleting(e)
5145             If (Not (Me.Cards_StudentRowDeletingEvent) Is Nothing) Then
5146                 RaiseEvent Cards_StudentRowDeleting(Me, New Cards_StudentRowChangeEvent(CType(e.Row,Cards_StudentRow), e.Action))
5147             End If
5148         End Sub
5149         
5150         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5151          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5152         Public Sub RemoveCards_StudentRow(ByVal row As Cards_StudentRow)
5153             Me.Rows.Remove(row)
5154         End Sub
5155         
5156         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5157          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5158         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
5159             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
5160             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
5161             Dim ds As ERPS_DBDataSet1 = New ERPS_DBDataSet1()
5162             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
5163             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
5164             any1.MinOccurs = New Decimal(0)
5165             any1.MaxOccurs = Decimal.MaxValue
5166             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
5167             sequence.Items.Add(any1)
5168             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
5169             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
5170             any2.MinOccurs = New Decimal(1)
5171             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
5172             sequence.Items.Add(any2)
5173             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
5174             attribute1.Name = "namespace"
5175             attribute1.FixedValue = ds.Namespace
5176             type.Attributes.Add(attribute1)
5177             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
5178             attribute2.Name = "tableTypeName"
5179             attribute2.FixedValue = "Cards_StudentDataTable"
5180             type.Attributes.Add(attribute2)
5181             type.Particle = sequence
5182             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
5183             If xs.Contains(dsSchema.TargetNamespace) Then
5184                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
5185                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
5186                 Try
5187                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
5188                     dsSchema.Write(s1)
5189                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
5190                     Do While schemas.MoveNext
5191                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
5192                         s2.SetLength(0)
5193                         schema.Write(s2)
5194                         If (s1.Length = s2.Length) Then
5195                             s1.Position = 0
5196                             s2.Position = 0
5197                             
5198                             Do While ((s1.Position <> s1.Length) _
5199                                         AndAlso (s1.ReadByte = s2.ReadByte))
5200                                 
5201                                 
5202                             Loop
5203                             If (s1.Position = s1.Length) Then
5204                                 Return type
5205                             End If
5206                         End If
5207                         
5208                     Loop
5209                 Finally
5210                     If (Not (s1) Is Nothing) Then
5211                         s1.Close
5212                     End If
5213                     If (Not (s2) Is Nothing) Then
5214                         s2.Close
5215                     End If
5216                 End Try
5217             End If
5218             xs.Add(dsSchema)
5219             Return type
5220         End Function
5221     End Class
5222     
5223     '''<summary>
5224     '''Represents the strongly named DataTable class.
5225     '''</summary>
5226     <Global.System.Serializable(), _
5227      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
5228     Partial Public Class ClassDataTable
5229         Inherits Global.System.Data.TypedTableBase(Of ClassRow)
5230         
5231         Private columnClassName As Global.System.Data.DataColumn
5232         
5233         Private columnClassType As Global.System.Data.DataColumn
5234         
5235         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5236          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5237         Public Sub New()
5238             MyBase.New
5239             Me.TableName = "Class"
5240             Me.BeginInit
5241             Me.InitClass
5242             Me.EndInit
5243         End Sub
5244         
5245         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5246          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5247         Friend Sub New(ByVal table As Global.System.Data.DataTable)
5248             MyBase.New
5249             Me.TableName = table.TableName
5250             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
5251                 Me.CaseSensitive = table.CaseSensitive
5252             End If
5253             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
5254                 Me.Locale = table.Locale
5255             End If
5256             If (table.Namespace <> table.DataSet.Namespace) Then
5257                 Me.Namespace = table.Namespace
5258             End If
5259             Me.Prefix = table.Prefix
5260             Me.MinimumCapacity = table.MinimumCapacity
5261         End Sub
5262         
5263         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5264          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5265         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
5266             MyBase.New(info, context)
5267             Me.InitVars
5268         End Sub
5269         
5270         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5271          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5272         Public ReadOnly Property ClassNameColumn() As Global.System.Data.DataColumn
5273             Get
5274                 Return Me.columnClassName
5275             End Get
5276         End Property
5277         
5278         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5279          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5280         Public ReadOnly Property ClassTypeColumn() As Global.System.Data.DataColumn
5281             Get
5282                 Return Me.columnClassType
5283             End Get
5284         End Property
5285         
5286         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5287          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
5288          Global.System.ComponentModel.Browsable(false)> _
5289         Public ReadOnly Property Count() As Integer
5290             Get
5291                 Return Me.Rows.Count
5292             End Get
5293         End Property
5294         
5295         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5296          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5297         Public Default ReadOnly Property Item(ByVal index As Integer) As ClassRow
5298             Get
5299                 Return CType(Me.Rows(index),ClassRow)
5300             End Get
5301         End Property
5302         
5303         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5304         Public Event ClassRowChanging As ClassRowChangeEventHandler
5305         
5306         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5307         Public Event ClassRowChanged As ClassRowChangeEventHandler
5308         
5309         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5310         Public Event ClassRowDeleting As ClassRowChangeEventHandler
5311         
5312         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5313         Public Event ClassRowDeleted As ClassRowChangeEventHandler
5314         
5315         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5316          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5317         Public Overloads Sub AddClassRow(ByVal row As ClassRow)
5318             Me.Rows.Add(row)
5319         End Sub
5320         
5321         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5322          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5323         Public Overloads Function AddClassRow(ByVal ClassName As String, ByVal parentClassTypeRowByFK_Class_ClassType As ClassTypeRow) As ClassRow
5324             Dim rowClassRow As ClassRow = CType(Me.NewRow,ClassRow)
5325             Dim columnValuesArray() As Object = New Object() {ClassName, Nothing}
5326             If (Not (parentClassTypeRowByFK_Class_ClassType) Is Nothing) Then
5327                 columnValuesArray(1) = parentClassTypeRowByFK_Class_ClassType(0)
5328             End If
5329             rowClassRow.ItemArray = columnValuesArray
5330             Me.Rows.Add(rowClassRow)
5331             Return rowClassRow
5332         End Function
5333         
5334         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5335          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5336         Public Function FindByClassName(ByVal ClassName As String) As ClassRow
5337             Return CType(Me.Rows.Find(New Object() {ClassName}),ClassRow)
5338         End Function
5339         
5340         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5341          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5342         Public Overrides Function Clone() As Global.System.Data.DataTable
5343             Dim cln As ClassDataTable = CType(MyBase.Clone,ClassDataTable)
5344             cln.InitVars
5345             Return cln
5346         End Function
5347         
5348         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5349          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5350         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
5351             Return New ClassDataTable()
5352         End Function
5353         
5354         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5355          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5356         Friend Sub InitVars()
5357             Me.columnClassName = MyBase.Columns("ClassName")
5358             Me.columnClassType = MyBase.Columns("ClassType")
5359         End Sub
5360         
5361         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5362          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5363         Private Sub InitClass()
5364             Me.columnClassName = New Global.System.Data.DataColumn("ClassName", GetType(String), Nothing, Global.System.Data.MappingType.Element)
5365             MyBase.Columns.Add(Me.columnClassName)
5366             Me.columnClassType = New Global.System.Data.DataColumn("ClassType", GetType(String), Nothing, Global.System.Data.MappingType.Element)
5367             MyBase.Columns.Add(Me.columnClassType)
5368             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnClassName}, true))
5369             Me.columnClassName.AllowDBNull = false
5370             Me.columnClassName.Unique = true
5371             Me.columnClassName.MaxLength = 100
5372             Me.columnClassType.AllowDBNull = false
5373             Me.columnClassType.MaxLength = 150
5374             Me.ExtendedProperties.Add("Generator_RowClassName", "ClassRow")
5375             Me.ExtendedProperties.Add("Generator_RowEvArgName", "ClassRowChangeEvent")
5376             Me.ExtendedProperties.Add("Generator_RowEvHandlerName", "ClassRowChangeEventHandler")
5377             Me.ExtendedProperties.Add("Generator_TableClassName", "ClassDataTable")
5378             Me.ExtendedProperties.Add("Generator_TableVarName", "tableClass")
5379             Me.ExtendedProperties.Add("Generator_UserTableName", "Class")
5380         End Sub
5381         
5382         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5383          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5384         Public Function NewClassRow() As ClassRow
5385             Return CType(Me.NewRow,ClassRow)
5386         End Function
5387         
5388         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5389          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5390         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
5391             Return New ClassRow(builder)
5392         End Function
5393         
5394         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5395          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5396         Protected Overrides Function GetRowType() As Global.System.Type
5397             Return GetType(ClassRow)
5398         End Function
5399         
5400         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5401          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5402         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
5403             MyBase.OnRowChanged(e)
5404             If (Not (Me.ClassRowChangedEvent) Is Nothing) Then
5405                 RaiseEvent ClassRowChanged(Me, New ClassRowChangeEvent(CType(e.Row,ClassRow), e.Action))
5406             End If
5407         End Sub
5408         
5409         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5410          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5411         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
5412             MyBase.OnRowChanging(e)
5413             If (Not (Me.ClassRowChangingEvent) Is Nothing) Then
5414                 RaiseEvent ClassRowChanging(Me, New ClassRowChangeEvent(CType(e.Row,ClassRow), e.Action))
5415             End If
5416         End Sub
5417         
5418         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5419          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5420         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
5421             MyBase.OnRowDeleted(e)
5422             If (Not (Me.ClassRowDeletedEvent) Is Nothing) Then
5423                 RaiseEvent ClassRowDeleted(Me, New ClassRowChangeEvent(CType(e.Row,ClassRow), e.Action))
5424             End If
5425         End Sub
5426         
5427         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5428          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5429         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
5430             MyBase.OnRowDeleting(e)
5431             If (Not (Me.ClassRowDeletingEvent) Is Nothing) Then
5432                 RaiseEvent ClassRowDeleting(Me, New ClassRowChangeEvent(CType(e.Row,ClassRow), e.Action))
5433             End If
5434         End Sub
5435         
5436         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5437          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5438         Public Sub RemoveClassRow(ByVal row As ClassRow)
5439             Me.Rows.Remove(row)
5440         End Sub
5441         
5442         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5443          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5444         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
5445             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
5446             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
5447             Dim ds As ERPS_DBDataSet1 = New ERPS_DBDataSet1()
5448             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
5449             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
5450             any1.MinOccurs = New Decimal(0)
5451             any1.MaxOccurs = Decimal.MaxValue
5452             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
5453             sequence.Items.Add(any1)
5454             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
5455             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
5456             any2.MinOccurs = New Decimal(1)
5457             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
5458             sequence.Items.Add(any2)
5459             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
5460             attribute1.Name = "namespace"
5461             attribute1.FixedValue = ds.Namespace
5462             type.Attributes.Add(attribute1)
5463             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
5464             attribute2.Name = "tableTypeName"
5465             attribute2.FixedValue = "ClassDataTable"
5466             type.Attributes.Add(attribute2)
5467             type.Particle = sequence
5468             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
5469             If xs.Contains(dsSchema.TargetNamespace) Then
5470                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
5471                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
5472                 Try
5473                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
5474                     dsSchema.Write(s1)
5475                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
5476                     Do While schemas.MoveNext
5477                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
5478                         s2.SetLength(0)
5479                         schema.Write(s2)
5480                         If (s1.Length = s2.Length) Then
5481                             s1.Position = 0
5482                             s2.Position = 0
5483                             
5484                             Do While ((s1.Position <> s1.Length) _
5485                                         AndAlso (s1.ReadByte = s2.ReadByte))
5486                                 
5487                                 
5488                             Loop
5489                             If (s1.Position = s1.Length) Then
5490                                 Return type
5491                             End If
5492                         End If
5493                         
5494                     Loop
5495                 Finally
5496                     If (Not (s1) Is Nothing) Then
5497                         s1.Close
5498                     End If
5499                     If (Not (s2) Is Nothing) Then
5500                         s2.Close
5501                     End If
5502                 End Try
5503             End If
5504             xs.Add(dsSchema)
5505             Return type
5506         End Function
5507     End Class
5508     
5509     '''<summary>
5510     '''Represents the strongly named DataTable class.
5511     '''</summary>
5512     <Global.System.Serializable(), _
5513      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
5514     Partial Public Class ClassTypeDataTable
5515         Inherits Global.System.Data.TypedTableBase(Of ClassTypeRow)
5516         
5517         Private columnType As Global.System.Data.DataColumn
5518         
5519         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5520          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5521         Public Sub New()
5522             MyBase.New
5523             Me.TableName = "ClassType"
5524             Me.BeginInit
5525             Me.InitClass
5526             Me.EndInit
5527         End Sub
5528         
5529         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5530          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5531         Friend Sub New(ByVal table As Global.System.Data.DataTable)
5532             MyBase.New
5533             Me.TableName = table.TableName
5534             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
5535                 Me.CaseSensitive = table.CaseSensitive
5536             End If
5537             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
5538                 Me.Locale = table.Locale
5539             End If
5540             If (table.Namespace <> table.DataSet.Namespace) Then
5541                 Me.Namespace = table.Namespace
5542             End If
5543             Me.Prefix = table.Prefix
5544             Me.MinimumCapacity = table.MinimumCapacity
5545         End Sub
5546         
5547         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5548          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5549         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
5550             MyBase.New(info, context)
5551             Me.InitVars
5552         End Sub
5553         
5554         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5555          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5556         Public ReadOnly Property TypeColumn() As Global.System.Data.DataColumn
5557             Get
5558                 Return Me.columnType
5559             End Get
5560         End Property
5561         
5562         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5563          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
5564          Global.System.ComponentModel.Browsable(false)> _
5565         Public ReadOnly Property Count() As Integer
5566             Get
5567                 Return Me.Rows.Count
5568             End Get
5569         End Property
5570         
5571         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5572          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5573         Public Default ReadOnly Property Item(ByVal index As Integer) As ClassTypeRow
5574             Get
5575                 Return CType(Me.Rows(index),ClassTypeRow)
5576             End Get
5577         End Property
5578         
5579         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5580         Public Event ClassTypeRowChanging As ClassTypeRowChangeEventHandler
5581         
5582         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5583         Public Event ClassTypeRowChanged As ClassTypeRowChangeEventHandler
5584         
5585         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5586         Public Event ClassTypeRowDeleting As ClassTypeRowChangeEventHandler
5587         
5588         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5589         Public Event ClassTypeRowDeleted As ClassTypeRowChangeEventHandler
5590         
5591         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5592          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5593         Public Overloads Sub AddClassTypeRow(ByVal row As ClassTypeRow)
5594             Me.Rows.Add(row)
5595         End Sub
5596         
5597         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5598          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5599         Public Overloads Function AddClassTypeRow(ByVal Type As String) As ClassTypeRow
5600             Dim rowClassTypeRow As ClassTypeRow = CType(Me.NewRow,ClassTypeRow)
5601             Dim columnValuesArray() As Object = New Object() {Type}
5602             rowClassTypeRow.ItemArray = columnValuesArray
5603             Me.Rows.Add(rowClassTypeRow)
5604             Return rowClassTypeRow
5605         End Function
5606         
5607         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5608          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5609         Public Function FindByType(ByVal Type As String) As ClassTypeRow
5610             Return CType(Me.Rows.Find(New Object() {Type}),ClassTypeRow)
5611         End Function
5612         
5613         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5614          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5615         Public Overrides Function Clone() As Global.System.Data.DataTable
5616             Dim cln As ClassTypeDataTable = CType(MyBase.Clone,ClassTypeDataTable)
5617             cln.InitVars
5618             Return cln
5619         End Function
5620         
5621         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5622          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5623         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
5624             Return New ClassTypeDataTable()
5625         End Function
5626         
5627         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5628          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5629         Friend Sub InitVars()
5630             Me.columnType = MyBase.Columns("Type")
5631         End Sub
5632         
5633         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5634          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5635         Private Sub InitClass()
5636             Me.columnType = New Global.System.Data.DataColumn("Type", GetType(String), Nothing, Global.System.Data.MappingType.Element)
5637             MyBase.Columns.Add(Me.columnType)
5638             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnType}, true))
5639             Me.columnType.AllowDBNull = false
5640             Me.columnType.Unique = true
5641             Me.columnType.MaxLength = 150
5642         End Sub
5643         
5644         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5645          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5646         Public Function NewClassTypeRow() As ClassTypeRow
5647             Return CType(Me.NewRow,ClassTypeRow)
5648         End Function
5649         
5650         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5651          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5652         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
5653             Return New ClassTypeRow(builder)
5654         End Function
5655         
5656         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5657          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5658         Protected Overrides Function GetRowType() As Global.System.Type
5659             Return GetType(ClassTypeRow)
5660         End Function
5661         
5662         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5663          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5664         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
5665             MyBase.OnRowChanged(e)
5666             If (Not (Me.ClassTypeRowChangedEvent) Is Nothing) Then
5667                 RaiseEvent ClassTypeRowChanged(Me, New ClassTypeRowChangeEvent(CType(e.Row,ClassTypeRow), e.Action))
5668             End If
5669         End Sub
5670         
5671         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5672          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5673         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
5674             MyBase.OnRowChanging(e)
5675             If (Not (Me.ClassTypeRowChangingEvent) Is Nothing) Then
5676                 RaiseEvent ClassTypeRowChanging(Me, New ClassTypeRowChangeEvent(CType(e.Row,ClassTypeRow), e.Action))
5677             End If
5678         End Sub
5679         
5680         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5681          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5682         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
5683             MyBase.OnRowDeleted(e)
5684             If (Not (Me.ClassTypeRowDeletedEvent) Is Nothing) Then
5685                 RaiseEvent ClassTypeRowDeleted(Me, New ClassTypeRowChangeEvent(CType(e.Row,ClassTypeRow), e.Action))
5686             End If
5687         End Sub
5688         
5689         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5690          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5691         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
5692             MyBase.OnRowDeleting(e)
5693             If (Not (Me.ClassTypeRowDeletingEvent) Is Nothing) Then
5694                 RaiseEvent ClassTypeRowDeleting(Me, New ClassTypeRowChangeEvent(CType(e.Row,ClassTypeRow), e.Action))
5695             End If
5696         End Sub
5697         
5698         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5699          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5700         Public Sub RemoveClassTypeRow(ByVal row As ClassTypeRow)
5701             Me.Rows.Remove(row)
5702         End Sub
5703         
5704         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5705          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5706         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
5707             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
5708             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
5709             Dim ds As ERPS_DBDataSet1 = New ERPS_DBDataSet1()
5710             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
5711             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
5712             any1.MinOccurs = New Decimal(0)
5713             any1.MaxOccurs = Decimal.MaxValue
5714             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
5715             sequence.Items.Add(any1)
5716             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
5717             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
5718             any2.MinOccurs = New Decimal(1)
5719             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
5720             sequence.Items.Add(any2)
5721             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
5722             attribute1.Name = "namespace"
5723             attribute1.FixedValue = ds.Namespace
5724             type.Attributes.Add(attribute1)
5725             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
5726             attribute2.Name = "tableTypeName"
5727             attribute2.FixedValue = "ClassTypeDataTable"
5728             type.Attributes.Add(attribute2)
5729             type.Particle = sequence
5730             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
5731             If xs.Contains(dsSchema.TargetNamespace) Then
5732                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
5733                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
5734                 Try
5735                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
5736                     dsSchema.Write(s1)
5737                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
5738                     Do While schemas.MoveNext
5739                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
5740                         s2.SetLength(0)
5741                         schema.Write(s2)
5742                         If (s1.Length = s2.Length) Then
5743                             s1.Position = 0
5744                             s2.Position = 0
5745                             
5746                             Do While ((s1.Position <> s1.Length) _
5747                                         AndAlso (s1.ReadByte = s2.ReadByte))
5748                                 
5749                                 
5750                             Loop
5751                             If (s1.Position = s1.Length) Then
5752                                 Return type
5753                             End If
5754                         End If
5755                         
5756                     Loop
5757                 Finally
5758                     If (Not (s1) Is Nothing) Then
5759                         s1.Close
5760                     End If
5761                     If (Not (s2) Is Nothing) Then
5762                         s2.Close
5763                     End If
5764                 End Try
5765             End If
5766             xs.Add(dsSchema)
5767             Return type
5768         End Function
5769     End Class
5770     
5771     '''<summary>
5772     '''Represents the strongly named DataTable class.
5773     '''</summary>
5774     <Global.System.Serializable(), _
5775      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
5776     Partial Public Class CourseFeeDataTable
5777         Inherits Global.System.Data.TypedTableBase(Of CourseFeeRow)
5778         
5779         Private columnC_ID As Global.System.Data.DataColumn
5780         
5781         Private columnSchoolID As Global.System.Data.DataColumn
5782         
5783         Private columnClass As Global.System.Data.DataColumn
5784         
5785         Private columnFeeName As Global.System.Data.DataColumn
5786         
5787         Private columnSemester As Global.System.Data.DataColumn
5788         
5789         Private columnFee As Global.System.Data.DataColumn
5790         
5791         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5792          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5793         Public Sub New()
5794             MyBase.New
5795             Me.TableName = "CourseFee"
5796             Me.BeginInit
5797             Me.InitClass
5798             Me.EndInit
5799         End Sub
5800         
5801         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5802          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5803         Friend Sub New(ByVal table As Global.System.Data.DataTable)
5804             MyBase.New
5805             Me.TableName = table.TableName
5806             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
5807                 Me.CaseSensitive = table.CaseSensitive
5808             End If
5809             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
5810                 Me.Locale = table.Locale
5811             End If
5812             If (table.Namespace <> table.DataSet.Namespace) Then
5813                 Me.Namespace = table.Namespace
5814             End If
5815             Me.Prefix = table.Prefix
5816             Me.MinimumCapacity = table.MinimumCapacity
5817         End Sub
5818         
5819         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5820          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5821         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
5822             MyBase.New(info, context)
5823             Me.InitVars
5824         End Sub
5825         
5826         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5827          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5828         Public ReadOnly Property C_IDColumn() As Global.System.Data.DataColumn
5829             Get
5830                 Return Me.columnC_ID
5831             End Get
5832         End Property
5833         
5834         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5835          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5836         Public ReadOnly Property SchoolIDColumn() As Global.System.Data.DataColumn
5837             Get
5838                 Return Me.columnSchoolID
5839             End Get
5840         End Property
5841         
5842         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5843          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5844         Public ReadOnly Property ClassColumn() As Global.System.Data.DataColumn
5845             Get
5846                 Return Me.columnClass
5847             End Get
5848         End Property
5849         
5850         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5851          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5852         Public ReadOnly Property FeeNameColumn() As Global.System.Data.DataColumn
5853             Get
5854                 Return Me.columnFeeName
5855             End Get
5856         End Property
5857         
5858         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5859          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5860         Public ReadOnly Property SemesterColumn() As Global.System.Data.DataColumn
5861             Get
5862                 Return Me.columnSemester
5863             End Get
5864         End Property
5865         
5866         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5867          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5868         Public ReadOnly Property FeeColumn() As Global.System.Data.DataColumn
5869             Get
5870                 Return Me.columnFee
5871             End Get
5872         End Property
5873         
5874         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5875          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
5876          Global.System.ComponentModel.Browsable(false)> _
5877         Public ReadOnly Property Count() As Integer
5878             Get
5879                 Return Me.Rows.Count
5880             End Get
5881         End Property
5882         
5883         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5884          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5885         Public Default ReadOnly Property Item(ByVal index As Integer) As CourseFeeRow
5886             Get
5887                 Return CType(Me.Rows(index),CourseFeeRow)
5888             End Get
5889         End Property
5890         
5891         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5892         Public Event CourseFeeRowChanging As CourseFeeRowChangeEventHandler
5893         
5894         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5895         Public Event CourseFeeRowChanged As CourseFeeRowChangeEventHandler
5896         
5897         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5898         Public Event CourseFeeRowDeleting As CourseFeeRowChangeEventHandler
5899         
5900         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5901         Public Event CourseFeeRowDeleted As CourseFeeRowChangeEventHandler
5902         
5903         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5904          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5905         Public Overloads Sub AddCourseFeeRow(ByVal row As CourseFeeRow)
5906             Me.Rows.Add(row)
5907         End Sub
5908         
5909         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5910          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5911         Public Overloads Function AddCourseFeeRow(ByVal C_ID As Integer, ByVal parentSchoolInfoRowByFK_CourseFee_SchoolInfo As SchoolInfoRow, ByVal parentClassRowByFK_CourseFee_CourseFee As ClassRow, ByVal parentFeeRowByFK_CourseFee_Fee As FeeRow, ByVal Semester As String, ByVal Fee As Decimal) As CourseFeeRow
5912             Dim rowCourseFeeRow As CourseFeeRow = CType(Me.NewRow,CourseFeeRow)
5913             Dim columnValuesArray() As Object = New Object() {C_ID, Nothing, Nothing, Nothing, Semester, Fee}
5914             If (Not (parentSchoolInfoRowByFK_CourseFee_SchoolInfo) Is Nothing) Then
5915                 columnValuesArray(1) = parentSchoolInfoRowByFK_CourseFee_SchoolInfo(0)
5916             End If
5917             If (Not (parentClassRowByFK_CourseFee_CourseFee) Is Nothing) Then
5918                 columnValuesArray(2) = parentClassRowByFK_CourseFee_CourseFee(0)
5919             End If
5920             If (Not (parentFeeRowByFK_CourseFee_Fee) Is Nothing) Then
5921                 columnValuesArray(3) = parentFeeRowByFK_CourseFee_Fee(0)
5922             End If
5923             rowCourseFeeRow.ItemArray = columnValuesArray
5924             Me.Rows.Add(rowCourseFeeRow)
5925             Return rowCourseFeeRow
5926         End Function
5927         
5928         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5929          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5930         Public Function FindByC_ID(ByVal C_ID As Integer) As CourseFeeRow
5931             Return CType(Me.Rows.Find(New Object() {C_ID}),CourseFeeRow)
5932         End Function
5933         
5934         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5935          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5936         Public Overrides Function Clone() As Global.System.Data.DataTable
5937             Dim cln As CourseFeeDataTable = CType(MyBase.Clone,CourseFeeDataTable)
5938             cln.InitVars
5939             Return cln
5940         End Function
5941         
5942         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5943          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5944         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
5945             Return New CourseFeeDataTable()
5946         End Function
5947         
5948         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5949          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5950         Friend Sub InitVars()
5951             Me.columnC_ID = MyBase.Columns("C_ID")
5952             Me.columnSchoolID = MyBase.Columns("SchoolID")
5953             Me.columnClass = MyBase.Columns("Class")
5954             Me.columnFeeName = MyBase.Columns("FeeName")
5955             Me.columnSemester = MyBase.Columns("Semester")
5956             Me.columnFee = MyBase.Columns("Fee")
5957         End Sub
5958         
5959         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5960          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5961         Private Sub InitClass()
5962             Me.columnC_ID = New Global.System.Data.DataColumn("C_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
5963             MyBase.Columns.Add(Me.columnC_ID)
5964             Me.columnSchoolID = New Global.System.Data.DataColumn("SchoolID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
5965             MyBase.Columns.Add(Me.columnSchoolID)
5966             Me.columnClass = New Global.System.Data.DataColumn("Class", GetType(String), Nothing, Global.System.Data.MappingType.Element)
5967             Me.columnClass.ExtendedProperties.Add("Generator_ColumnPropNameInTable", "ClassColumn")
5968             Me.columnClass.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "columnClass")
5969             Me.columnClass.ExtendedProperties.Add("Generator_UserColumnName", "Class")
5970             MyBase.Columns.Add(Me.columnClass)
5971             Me.columnFeeName = New Global.System.Data.DataColumn("FeeName", GetType(String), Nothing, Global.System.Data.MappingType.Element)
5972             MyBase.Columns.Add(Me.columnFeeName)
5973             Me.columnSemester = New Global.System.Data.DataColumn("Semester", GetType(String), Nothing, Global.System.Data.MappingType.Element)
5974             MyBase.Columns.Add(Me.columnSemester)
5975             Me.columnFee = New Global.System.Data.DataColumn("Fee", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
5976             MyBase.Columns.Add(Me.columnFee)
5977             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnC_ID}, true))
5978             Me.columnC_ID.AllowDBNull = false
5979             Me.columnC_ID.Unique = true
5980             Me.columnSchoolID.AllowDBNull = false
5981             Me.columnClass.AllowDBNull = false
5982             Me.columnClass.MaxLength = 100
5983             Me.columnFeeName.AllowDBNull = false
5984             Me.columnFeeName.MaxLength = 250
5985             Me.columnSemester.AllowDBNull = false
5986             Me.columnSemester.MaxLength = 30
5987             Me.columnFee.AllowDBNull = false
5988         End Sub
5989         
5990         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5991          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5992         Public Function NewCourseFeeRow() As CourseFeeRow
5993             Return CType(Me.NewRow,CourseFeeRow)
5994         End Function
5995         
5996         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5997          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5998         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
5999             Return New CourseFeeRow(builder)
6000         End Function
6001         
6002         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6003          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6004         Protected Overrides Function GetRowType() As Global.System.Type
6005             Return GetType(CourseFeeRow)
6006         End Function
6007         
6008         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6009          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6010         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
6011             MyBase.OnRowChanged(e)
6012             If (Not (Me.CourseFeeRowChangedEvent) Is Nothing) Then
6013                 RaiseEvent CourseFeeRowChanged(Me, New CourseFeeRowChangeEvent(CType(e.Row,CourseFeeRow), e.Action))
6014             End If
6015         End Sub
6016         
6017         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6018          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6019         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
6020             MyBase.OnRowChanging(e)
6021             If (Not (Me.CourseFeeRowChangingEvent) Is Nothing) Then
6022                 RaiseEvent CourseFeeRowChanging(Me, New CourseFeeRowChangeEvent(CType(e.Row,CourseFeeRow), e.Action))
6023             End If
6024         End Sub
6025         
6026         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6027          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6028         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
6029             MyBase.OnRowDeleted(e)
6030             If (Not (Me.CourseFeeRowDeletedEvent) Is Nothing) Then
6031                 RaiseEvent CourseFeeRowDeleted(Me, New CourseFeeRowChangeEvent(CType(e.Row,CourseFeeRow), e.Action))
6032             End If
6033         End Sub
6034         
6035         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6036          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6037         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
6038             MyBase.OnRowDeleting(e)
6039             If (Not (Me.CourseFeeRowDeletingEvent) Is Nothing) Then
6040                 RaiseEvent CourseFeeRowDeleting(Me, New CourseFeeRowChangeEvent(CType(e.Row,CourseFeeRow), e.Action))
6041             End If
6042         End Sub
6043         
6044         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6045          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6046         Public Sub RemoveCourseFeeRow(ByVal row As CourseFeeRow)
6047             Me.Rows.Remove(row)
6048         End Sub
6049         
6050         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6051          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6052         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
6053             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
6054             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
6055             Dim ds As ERPS_DBDataSet1 = New ERPS_DBDataSet1()
6056             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
6057             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
6058             any1.MinOccurs = New Decimal(0)
6059             any1.MaxOccurs = Decimal.MaxValue
6060             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
6061             sequence.Items.Add(any1)
6062             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
6063             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
6064             any2.MinOccurs = New Decimal(1)
6065             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
6066             sequence.Items.Add(any2)
6067             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
6068             attribute1.Name = "namespace"
6069             attribute1.FixedValue = ds.Namespace
6070             type.Attributes.Add(attribute1)
6071             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
6072             attribute2.Name = "tableTypeName"
6073             attribute2.FixedValue = "CourseFeeDataTable"
6074             type.Attributes.Add(attribute2)
6075             type.Particle = sequence
6076             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
6077             If xs.Contains(dsSchema.TargetNamespace) Then
6078                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
6079                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
6080                 Try
6081                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
6082                     dsSchema.Write(s1)
6083                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
6084                     Do While schemas.MoveNext
6085                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
6086                         s2.SetLength(0)
6087                         schema.Write(s2)
6088                         If (s1.Length = s2.Length) Then
6089                             s1.Position = 0
6090                             s2.Position = 0
6091                             
6092                             Do While ((s1.Position <> s1.Length) _
6093                                         AndAlso (s1.ReadByte = s2.ReadByte))
6094                                 
6095                                 
6096                             Loop
6097                             If (s1.Position = s1.Length) Then
6098                                 Return type
6099                             End If
6100                         End If
6101                         
6102                     Loop
6103                 Finally
6104                     If (Not (s1) Is Nothing) Then
6105                         s1.Close
6106                     End If
6107                     If (Not (s2) Is Nothing) Then
6108                         s2.Close
6109                     End If
6110                 End Try
6111             End If
6112             xs.Add(dsSchema)
6113             Return type
6114         End Function
6115     End Class
6116     
6117     '''<summary>
6118     '''Represents the strongly named DataTable class.
6119     '''</summary>
6120     <Global.System.Serializable(), _
6121      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
6122     Partial Public Class CourseFeePaymentDataTable
6123         Inherits Global.System.Data.TypedTableBase(Of CourseFeePaymentRow)
6124         
6125         Private columnId As Global.System.Data.DataColumn
6126         
6127         Private columnCFP_ID As Global.System.Data.DataColumn
6128         
6129         Private columnPaymentID As Global.System.Data.DataColumn
6130         
6131         Private columnAdmissionNo As Global.System.Data.DataColumn
6132         
6133         Private columnSession As Global.System.Data.DataColumn
6134         
6135         Private columnSemester As Global.System.Data.DataColumn
6136         
6137         Private columnTotalFee As Global.System.Data.DataColumn
6138         
6139         Private columnDiscountPer As Global.System.Data.DataColumn
6140         
6141         Private columnDiscountAmt As Global.System.Data.DataColumn
6142         
6143         Private columnPreviousDue As Global.System.Data.DataColumn
6144         
6145         Private columnFine As Global.System.Data.DataColumn
6146         
6147         Private columnGrandTotal As Global.System.Data.DataColumn
6148         
6149         Private columnTotalPaid As Global.System.Data.DataColumn
6150         
6151         Private columnModeOfPayment As Global.System.Data.DataColumn
6152         
6153         Private columnPaymentModeDetails As Global.System.Data.DataColumn
6154         
6155         Private columnPaymentDate As Global.System.Data.DataColumn
6156         
6157         Private columnPaymentDue As Global.System.Data.DataColumn
6158         
6159         Private columnClassType As Global.System.Data.DataColumn
6160         
6161         Private columnSchoolType As Global.System.Data.DataColumn
6162         
6163         Private columnClass As Global.System.Data.DataColumn
6164         
6165         Private columnSection As Global.System.Data.DataColumn
6166         
6167         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6168          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6169         Public Sub New()
6170             MyBase.New
6171             Me.TableName = "CourseFeePayment"
6172             Me.BeginInit
6173             Me.InitClass
6174             Me.EndInit
6175         End Sub
6176         
6177         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6178          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6179         Friend Sub New(ByVal table As Global.System.Data.DataTable)
6180             MyBase.New
6181             Me.TableName = table.TableName
6182             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
6183                 Me.CaseSensitive = table.CaseSensitive
6184             End If
6185             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
6186                 Me.Locale = table.Locale
6187             End If
6188             If (table.Namespace <> table.DataSet.Namespace) Then
6189                 Me.Namespace = table.Namespace
6190             End If
6191             Me.Prefix = table.Prefix
6192             Me.MinimumCapacity = table.MinimumCapacity
6193         End Sub
6194         
6195         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6196          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6197         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
6198             MyBase.New(info, context)
6199             Me.InitVars
6200         End Sub
6201         
6202         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6203          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6204         Public ReadOnly Property IdColumn() As Global.System.Data.DataColumn
6205             Get
6206                 Return Me.columnId
6207             End Get
6208         End Property
6209         
6210         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6211          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6212         Public ReadOnly Property CFP_IDColumn() As Global.System.Data.DataColumn
6213             Get
6214                 Return Me.columnCFP_ID
6215             End Get
6216         End Property
6217         
6218         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6219          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6220         Public ReadOnly Property PaymentIDColumn() As Global.System.Data.DataColumn
6221             Get
6222                 Return Me.columnPaymentID
6223             End Get
6224         End Property
6225         
6226         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6227          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6228         Public ReadOnly Property AdmissionNoColumn() As Global.System.Data.DataColumn
6229             Get
6230                 Return Me.columnAdmissionNo
6231             End Get
6232         End Property
6233         
6234         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6235          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6236         Public ReadOnly Property SessionColumn() As Global.System.Data.DataColumn
6237             Get
6238                 Return Me.columnSession
6239             End Get
6240         End Property
6241         
6242         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6243          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6244         Public ReadOnly Property SemesterColumn() As Global.System.Data.DataColumn
6245             Get
6246                 Return Me.columnSemester
6247             End Get
6248         End Property
6249         
6250         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6251          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6252         Public ReadOnly Property TotalFeeColumn() As Global.System.Data.DataColumn
6253             Get
6254                 Return Me.columnTotalFee
6255             End Get
6256         End Property
6257         
6258         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6259          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6260         Public ReadOnly Property DiscountPerColumn() As Global.System.Data.DataColumn
6261             Get
6262                 Return Me.columnDiscountPer
6263             End Get
6264         End Property
6265         
6266         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6267          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6268         Public ReadOnly Property DiscountAmtColumn() As Global.System.Data.DataColumn
6269             Get
6270                 Return Me.columnDiscountAmt
6271             End Get
6272         End Property
6273         
6274         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6275          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6276         Public ReadOnly Property PreviousDueColumn() As Global.System.Data.DataColumn
6277             Get
6278                 Return Me.columnPreviousDue
6279             End Get
6280         End Property
6281         
6282         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6283          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6284         Public ReadOnly Property FineColumn() As Global.System.Data.DataColumn
6285             Get
6286                 Return Me.columnFine
6287             End Get
6288         End Property
6289         
6290         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6291          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6292         Public ReadOnly Property GrandTotalColumn() As Global.System.Data.DataColumn
6293             Get
6294                 Return Me.columnGrandTotal
6295             End Get
6296         End Property
6297         
6298         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6299          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6300         Public ReadOnly Property TotalPaidColumn() As Global.System.Data.DataColumn
6301             Get
6302                 Return Me.columnTotalPaid
6303             End Get
6304         End Property
6305         
6306         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6307          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6308         Public ReadOnly Property ModeOfPaymentColumn() As Global.System.Data.DataColumn
6309             Get
6310                 Return Me.columnModeOfPayment
6311             End Get
6312         End Property
6313         
6314         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6315          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6316         Public ReadOnly Property PaymentModeDetailsColumn() As Global.System.Data.DataColumn
6317             Get
6318                 Return Me.columnPaymentModeDetails
6319             End Get
6320         End Property
6321         
6322         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6323          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6324         Public ReadOnly Property PaymentDateColumn() As Global.System.Data.DataColumn
6325             Get
6326                 Return Me.columnPaymentDate
6327             End Get
6328         End Property
6329         
6330         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6331          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6332         Public ReadOnly Property PaymentDueColumn() As Global.System.Data.DataColumn
6333             Get
6334                 Return Me.columnPaymentDue
6335             End Get
6336         End Property
6337         
6338         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6339          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6340         Public ReadOnly Property ClassTypeColumn() As Global.System.Data.DataColumn
6341             Get
6342                 Return Me.columnClassType
6343             End Get
6344         End Property
6345         
6346         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6347          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6348         Public ReadOnly Property SchoolTypeColumn() As Global.System.Data.DataColumn
6349             Get
6350                 Return Me.columnSchoolType
6351             End Get
6352         End Property
6353         
6354         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6355          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6356         Public ReadOnly Property ClassColumn() As Global.System.Data.DataColumn
6357             Get
6358                 Return Me.columnClass
6359             End Get
6360         End Property
6361         
6362         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6363          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6364         Public ReadOnly Property SectionColumn() As Global.System.Data.DataColumn
6365             Get
6366                 Return Me.columnSection
6367             End Get
6368         End Property
6369         
6370         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6371          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
6372          Global.System.ComponentModel.Browsable(false)> _
6373         Public ReadOnly Property Count() As Integer
6374             Get
6375                 Return Me.Rows.Count
6376             End Get
6377         End Property
6378         
6379         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6380          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6381         Public Default ReadOnly Property Item(ByVal index As Integer) As CourseFeePaymentRow
6382             Get
6383                 Return CType(Me.Rows(index),CourseFeePaymentRow)
6384             End Get
6385         End Property
6386         
6387         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6388         Public Event CourseFeePaymentRowChanging As CourseFeePaymentRowChangeEventHandler
6389         
6390         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6391         Public Event CourseFeePaymentRowChanged As CourseFeePaymentRowChangeEventHandler
6392         
6393         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6394         Public Event CourseFeePaymentRowDeleting As CourseFeePaymentRowChangeEventHandler
6395         
6396         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6397         Public Event CourseFeePaymentRowDeleted As CourseFeePaymentRowChangeEventHandler
6398         
6399         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6400          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6401         Public Overloads Sub AddCourseFeePaymentRow(ByVal row As CourseFeePaymentRow)
6402             Me.Rows.Add(row)
6403         End Sub
6404         
6405         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6406          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6407         Public Overloads Function AddCourseFeePaymentRow( _
6408                     ByVal CFP_ID As Integer, _
6409                     ByVal PaymentID As String, _
6410                     ByVal parentStudentRowByFK_CourseFeePayment_Student As StudentRow, _
6411                     ByVal Session As String, _
6412                     ByVal Semester As String, _
6413                     ByVal TotalFee As Decimal, _
6414                     ByVal DiscountPer As Decimal, _
6415                     ByVal DiscountAmt As Decimal, _
6416                     ByVal PreviousDue As Decimal, _
6417                     ByVal Fine As Decimal, _
6418                     ByVal GrandTotal As Decimal, _
6419                     ByVal TotalPaid As Decimal, _
6420                     ByVal ModeOfPayment As String, _
6421                     ByVal PaymentModeDetails As String, _
6422                     ByVal PaymentDate As Date, _
6423                     ByVal PaymentDue As Decimal, _
6424                     ByVal ClassType As String, _
6425                     ByVal SchoolType As String, _
6426                     ByVal _Class As String, _
6427                     ByVal Section As String) As CourseFeePaymentRow
6428             Dim rowCourseFeePaymentRow As CourseFeePaymentRow = CType(Me.NewRow,CourseFeePaymentRow)
6429             Dim columnValuesArray() As Object = New Object() {Nothing, CFP_ID, PaymentID, Nothing, Session, Semester, TotalFee, DiscountPer, DiscountAmt, PreviousDue, Fine, GrandTotal, TotalPaid, ModeOfPayment, PaymentModeDetails, PaymentDate, PaymentDue, ClassType, SchoolType, _Class, Section}
6430             If (Not (parentStudentRowByFK_CourseFeePayment_Student) Is Nothing) Then
6431                 columnValuesArray(3) = parentStudentRowByFK_CourseFeePayment_Student(0)
6432             End If
6433             rowCourseFeePaymentRow.ItemArray = columnValuesArray
6434             Me.Rows.Add(rowCourseFeePaymentRow)
6435             Return rowCourseFeePaymentRow
6436         End Function
6437         
6438         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6439          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6440         Public Function FindById(ByVal Id As Integer) As CourseFeePaymentRow
6441             Return CType(Me.Rows.Find(New Object() {Id}),CourseFeePaymentRow)
6442         End Function
6443         
6444         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6445          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6446         Public Overrides Function Clone() As Global.System.Data.DataTable
6447             Dim cln As CourseFeePaymentDataTable = CType(MyBase.Clone,CourseFeePaymentDataTable)
6448             cln.InitVars
6449             Return cln
6450         End Function
6451         
6452         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6453          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6454         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
6455             Return New CourseFeePaymentDataTable()
6456         End Function
6457         
6458         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6459          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6460         Friend Sub InitVars()
6461             Me.columnId = MyBase.Columns("Id")
6462             Me.columnCFP_ID = MyBase.Columns("CFP_ID")
6463             Me.columnPaymentID = MyBase.Columns("PaymentID")
6464             Me.columnAdmissionNo = MyBase.Columns("AdmissionNo")
6465             Me.columnSession = MyBase.Columns("Session")
6466             Me.columnSemester = MyBase.Columns("Semester")
6467             Me.columnTotalFee = MyBase.Columns("TotalFee")
6468             Me.columnDiscountPer = MyBase.Columns("DiscountPer")
6469             Me.columnDiscountAmt = MyBase.Columns("DiscountAmt")
6470             Me.columnPreviousDue = MyBase.Columns("PreviousDue")
6471             Me.columnFine = MyBase.Columns("Fine")
6472             Me.columnGrandTotal = MyBase.Columns("GrandTotal")
6473             Me.columnTotalPaid = MyBase.Columns("TotalPaid")
6474             Me.columnModeOfPayment = MyBase.Columns("ModeOfPayment")
6475             Me.columnPaymentModeDetails = MyBase.Columns("PaymentModeDetails")
6476             Me.columnPaymentDate = MyBase.Columns("PaymentDate")
6477             Me.columnPaymentDue = MyBase.Columns("PaymentDue")
6478             Me.columnClassType = MyBase.Columns("ClassType")
6479             Me.columnSchoolType = MyBase.Columns("SchoolType")
6480             Me.columnClass = MyBase.Columns("Class")
6481             Me.columnSection = MyBase.Columns("Section")
6482         End Sub
6483         
6484         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6485          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6486         Private Sub InitClass()
6487             Me.columnId = New Global.System.Data.DataColumn("Id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
6488             MyBase.Columns.Add(Me.columnId)
6489             Me.columnCFP_ID = New Global.System.Data.DataColumn("CFP_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
6490             MyBase.Columns.Add(Me.columnCFP_ID)
6491             Me.columnPaymentID = New Global.System.Data.DataColumn("PaymentID", GetType(String), Nothing, Global.System.Data.MappingType.Element)
6492             MyBase.Columns.Add(Me.columnPaymentID)
6493             Me.columnAdmissionNo = New Global.System.Data.DataColumn("AdmissionNo", GetType(String), Nothing, Global.System.Data.MappingType.Element)
6494             MyBase.Columns.Add(Me.columnAdmissionNo)
6495             Me.columnSession = New Global.System.Data.DataColumn("Session", GetType(String), Nothing, Global.System.Data.MappingType.Element)
6496             MyBase.Columns.Add(Me.columnSession)
6497             Me.columnSemester = New Global.System.Data.DataColumn("Semester", GetType(String), Nothing, Global.System.Data.MappingType.Element)
6498             MyBase.Columns.Add(Me.columnSemester)
6499             Me.columnTotalFee = New Global.System.Data.DataColumn("TotalFee", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
6500             MyBase.Columns.Add(Me.columnTotalFee)
6501             Me.columnDiscountPer = New Global.System.Data.DataColumn("DiscountPer", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
6502             MyBase.Columns.Add(Me.columnDiscountPer)
6503             Me.columnDiscountAmt = New Global.System.Data.DataColumn("DiscountAmt", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
6504             MyBase.Columns.Add(Me.columnDiscountAmt)
6505             Me.columnPreviousDue = New Global.System.Data.DataColumn("PreviousDue", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
6506             MyBase.Columns.Add(Me.columnPreviousDue)
6507             Me.columnFine = New Global.System.Data.DataColumn("Fine", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
6508             MyBase.Columns.Add(Me.columnFine)
6509             Me.columnGrandTotal = New Global.System.Data.DataColumn("GrandTotal", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
6510             MyBase.Columns.Add(Me.columnGrandTotal)
6511             Me.columnTotalPaid = New Global.System.Data.DataColumn("TotalPaid", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
6512             MyBase.Columns.Add(Me.columnTotalPaid)
6513             Me.columnModeOfPayment = New Global.System.Data.DataColumn("ModeOfPayment", GetType(String), Nothing, Global.System.Data.MappingType.Element)
6514             MyBase.Columns.Add(Me.columnModeOfPayment)
6515             Me.columnPaymentModeDetails = New Global.System.Data.DataColumn("PaymentModeDetails", GetType(String), Nothing, Global.System.Data.MappingType.Element)
6516             MyBase.Columns.Add(Me.columnPaymentModeDetails)
6517             Me.columnPaymentDate = New Global.System.Data.DataColumn("PaymentDate", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
6518             MyBase.Columns.Add(Me.columnPaymentDate)
6519             Me.columnPaymentDue = New Global.System.Data.DataColumn("PaymentDue", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
6520             MyBase.Columns.Add(Me.columnPaymentDue)
6521             Me.columnClassType = New Global.System.Data.DataColumn("ClassType", GetType(String), Nothing, Global.System.Data.MappingType.Element)
6522             MyBase.Columns.Add(Me.columnClassType)
6523             Me.columnSchoolType = New Global.System.Data.DataColumn("SchoolType", GetType(String), Nothing, Global.System.Data.MappingType.Element)
6524             MyBase.Columns.Add(Me.columnSchoolType)
6525             Me.columnClass = New Global.System.Data.DataColumn("Class", GetType(String), Nothing, Global.System.Data.MappingType.Element)
6526             Me.columnClass.ExtendedProperties.Add("Generator_ColumnPropNameInTable", "ClassColumn")
6527             Me.columnClass.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "columnClass")
6528             Me.columnClass.ExtendedProperties.Add("Generator_UserColumnName", "Class")
6529             MyBase.Columns.Add(Me.columnClass)
6530             Me.columnSection = New Global.System.Data.DataColumn("Section", GetType(String), Nothing, Global.System.Data.MappingType.Element)
6531             MyBase.Columns.Add(Me.columnSection)
6532             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnId}, true))
6533             Me.columnId.AutoIncrement = true
6534             Me.columnId.AutoIncrementSeed = -1
6535             Me.columnId.AutoIncrementStep = -1
6536             Me.columnId.AllowDBNull = false
6537             Me.columnId.ReadOnly = true
6538             Me.columnId.Unique = true
6539             Me.columnCFP_ID.AllowDBNull = false
6540             Me.columnPaymentID.AllowDBNull = false
6541             Me.columnPaymentID.MaxLength = 30
6542             Me.columnAdmissionNo.AllowDBNull = false
6543             Me.columnAdmissionNo.MaxLength = 15
6544             Me.columnSession.AllowDBNull = false
6545             Me.columnSession.MaxLength = 15
6546             Me.columnSemester.AllowDBNull = false
6547             Me.columnSemester.MaxLength = 10
6548             Me.columnTotalFee.AllowDBNull = false
6549             Me.columnDiscountPer.AllowDBNull = false
6550             Me.columnDiscountAmt.AllowDBNull = false
6551             Me.columnPreviousDue.AllowDBNull = false
6552             Me.columnFine.AllowDBNull = false
6553             Me.columnGrandTotal.AllowDBNull = false
6554             Me.columnTotalPaid.AllowDBNull = false
6555             Me.columnModeOfPayment.AllowDBNull = false
6556             Me.columnModeOfPayment.MaxLength = 100
6557             Me.columnPaymentModeDetails.MaxLength = 250
6558             Me.columnPaymentDate.AllowDBNull = false
6559             Me.columnPaymentDue.AllowDBNull = false
6560             Me.columnClassType.AllowDBNull = false
6561             Me.columnClassType.MaxLength = 150
6562             Me.columnSchoolType.AllowDBNull = false
6563             Me.columnSchoolType.MaxLength = 150
6564             Me.columnClass.AllowDBNull = false
6565             Me.columnClass.MaxLength = 100
6566             Me.columnSection.AllowDBNull = false
6567             Me.columnSection.MaxLength = 15
6568         End Sub
6569         
6570         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6571          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6572         Public Function NewCourseFeePaymentRow() As CourseFeePaymentRow
6573             Return CType(Me.NewRow,CourseFeePaymentRow)
6574         End Function
6575         
6576         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6577          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6578         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
6579             Return New CourseFeePaymentRow(builder)
6580         End Function
6581         
6582         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6583          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6584         Protected Overrides Function GetRowType() As Global.System.Type
6585             Return GetType(CourseFeePaymentRow)
6586         End Function
6587         
6588         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6589          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6590         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
6591             MyBase.OnRowChanged(e)
6592             If (Not (Me.CourseFeePaymentRowChangedEvent) Is Nothing) Then
6593                 RaiseEvent CourseFeePaymentRowChanged(Me, New CourseFeePaymentRowChangeEvent(CType(e.Row,CourseFeePaymentRow), e.Action))
6594             End If
6595         End Sub
6596         
6597         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6598          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6599         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
6600             MyBase.OnRowChanging(e)
6601             If (Not (Me.CourseFeePaymentRowChangingEvent) Is Nothing) Then
6602                 RaiseEvent CourseFeePaymentRowChanging(Me, New CourseFeePaymentRowChangeEvent(CType(e.Row,CourseFeePaymentRow), e.Action))
6603             End If
6604         End Sub
6605         
6606         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6607          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6608         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
6609             MyBase.OnRowDeleted(e)
6610             If (Not (Me.CourseFeePaymentRowDeletedEvent) Is Nothing) Then
6611                 RaiseEvent CourseFeePaymentRowDeleted(Me, New CourseFeePaymentRowChangeEvent(CType(e.Row,CourseFeePaymentRow), e.Action))
6612             End If
6613         End Sub
6614         
6615         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6616          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6617         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
6618             MyBase.OnRowDeleting(e)
6619             If (Not (Me.CourseFeePaymentRowDeletingEvent) Is Nothing) Then
6620                 RaiseEvent CourseFeePaymentRowDeleting(Me, New CourseFeePaymentRowChangeEvent(CType(e.Row,CourseFeePaymentRow), e.Action))
6621             End If
6622         End Sub
6623         
6624         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6625          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6626         Public Sub RemoveCourseFeePaymentRow(ByVal row As CourseFeePaymentRow)
6627             Me.Rows.Remove(row)
6628         End Sub
6629         
6630         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6631          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6632         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
6633             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
6634             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
6635             Dim ds As ERPS_DBDataSet1 = New ERPS_DBDataSet1()
6636             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
6637             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
6638             any1.MinOccurs = New Decimal(0)
6639             any1.MaxOccurs = Decimal.MaxValue
6640             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
6641             sequence.Items.Add(any1)
6642             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
6643             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
6644             any2.MinOccurs = New Decimal(1)
6645             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
6646             sequence.Items.Add(any2)
6647             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
6648             attribute1.Name = "namespace"
6649             attribute1.FixedValue = ds.Namespace
6650             type.Attributes.Add(attribute1)
6651             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
6652             attribute2.Name = "tableTypeName"
6653             attribute2.FixedValue = "CourseFeePaymentDataTable"
6654             type.Attributes.Add(attribute2)
6655             type.Particle = sequence
6656             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
6657             If xs.Contains(dsSchema.TargetNamespace) Then
6658                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
6659                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
6660                 Try
6661                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
6662                     dsSchema.Write(s1)
6663                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
6664                     Do While schemas.MoveNext
6665                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
6666                         s2.SetLength(0)
6667                         schema.Write(s2)
6668                         If (s1.Length = s2.Length) Then
6669                             s1.Position = 0
6670                             s2.Position = 0
6671                             
6672                             Do While ((s1.Position <> s1.Length) _
6673                                         AndAlso (s1.ReadByte = s2.ReadByte))
6674                                 
6675                                 
6676                             Loop
6677                             If (s1.Position = s1.Length) Then
6678                                 Return type
6679                             End If
6680                         End If
6681                         
6682                     Loop
6683                 Finally
6684                     If (Not (s1) Is Nothing) Then
6685                         s1.Close
6686                     End If
6687                     If (Not (s2) Is Nothing) Then
6688                         s2.Close
6689                     End If
6690                 End Try
6691             End If
6692             xs.Add(dsSchema)
6693             Return type
6694         End Function
6695     End Class
6696     
6697     '''<summary>
6698     '''Represents the strongly named DataTable class.
6699     '''</summary>
6700     <Global.System.Serializable(), _
6701      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
6702     Partial Public Class CourseFeePayment_JoinDataTable
6703         Inherits Global.System.Data.TypedTableBase(Of CourseFeePayment_JoinRow)
6704         
6705         Private columnCFPJ_Id As Global.System.Data.DataColumn
6706         
6707         Private columnC_PaymentID As Global.System.Data.DataColumn
6708         
6709         Private columnFeeName As Global.System.Data.DataColumn
6710         
6711         Private columnFee As Global.System.Data.DataColumn
6712         
6713         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6714          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6715         Public Sub New()
6716             MyBase.New
6717             Me.TableName = "CourseFeePayment_Join"
6718             Me.BeginInit
6719             Me.InitClass
6720             Me.EndInit
6721         End Sub
6722         
6723         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6724          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6725         Friend Sub New(ByVal table As Global.System.Data.DataTable)
6726             MyBase.New
6727             Me.TableName = table.TableName
6728             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
6729                 Me.CaseSensitive = table.CaseSensitive
6730             End If
6731             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
6732                 Me.Locale = table.Locale
6733             End If
6734             If (table.Namespace <> table.DataSet.Namespace) Then
6735                 Me.Namespace = table.Namespace
6736             End If
6737             Me.Prefix = table.Prefix
6738             Me.MinimumCapacity = table.MinimumCapacity
6739         End Sub
6740         
6741         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6742          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6743         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
6744             MyBase.New(info, context)
6745             Me.InitVars
6746         End Sub
6747         
6748         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6749          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6750         Public ReadOnly Property CFPJ_IdColumn() As Global.System.Data.DataColumn
6751             Get
6752                 Return Me.columnCFPJ_Id
6753             End Get
6754         End Property
6755         
6756         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6757          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6758         Public ReadOnly Property C_PaymentIDColumn() As Global.System.Data.DataColumn
6759             Get
6760                 Return Me.columnC_PaymentID
6761             End Get
6762         End Property
6763         
6764         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6765          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6766         Public ReadOnly Property FeeNameColumn() As Global.System.Data.DataColumn
6767             Get
6768                 Return Me.columnFeeName
6769             End Get
6770         End Property
6771         
6772         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6773          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6774         Public ReadOnly Property FeeColumn() As Global.System.Data.DataColumn
6775             Get
6776                 Return Me.columnFee
6777             End Get
6778         End Property
6779         
6780         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6781          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
6782          Global.System.ComponentModel.Browsable(false)> _
6783         Public ReadOnly Property Count() As Integer
6784             Get
6785                 Return Me.Rows.Count
6786             End Get
6787         End Property
6788         
6789         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6790          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6791         Public Default ReadOnly Property Item(ByVal index As Integer) As CourseFeePayment_JoinRow
6792             Get
6793                 Return CType(Me.Rows(index),CourseFeePayment_JoinRow)
6794             End Get
6795         End Property
6796         
6797         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6798         Public Event CourseFeePayment_JoinRowChanging As CourseFeePayment_JoinRowChangeEventHandler
6799         
6800         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6801         Public Event CourseFeePayment_JoinRowChanged As CourseFeePayment_JoinRowChangeEventHandler
6802         
6803         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6804         Public Event CourseFeePayment_JoinRowDeleting As CourseFeePayment_JoinRowChangeEventHandler
6805         
6806         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6807         Public Event CourseFeePayment_JoinRowDeleted As CourseFeePayment_JoinRowChangeEventHandler
6808         
6809         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6810          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6811         Public Overloads Sub AddCourseFeePayment_JoinRow(ByVal row As CourseFeePayment_JoinRow)
6812             Me.Rows.Add(row)
6813         End Sub
6814         
6815         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6816          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6817         Public Overloads Function AddCourseFeePayment_JoinRow(ByVal parentCourseFeePaymentRowByFK_CourseFeePayment_Join_CourseFeePayment As CourseFeePaymentRow, ByVal FeeName As String, ByVal Fee As Decimal) As CourseFeePayment_JoinRow
6818             Dim rowCourseFeePayment_JoinRow As CourseFeePayment_JoinRow = CType(Me.NewRow,CourseFeePayment_JoinRow)
6819             Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, FeeName, Fee}
6820             If (Not (parentCourseFeePaymentRowByFK_CourseFeePayment_Join_CourseFeePayment) Is Nothing) Then
6821                 columnValuesArray(1) = parentCourseFeePaymentRowByFK_CourseFeePayment_Join_CourseFeePayment(0)
6822             End If
6823             rowCourseFeePayment_JoinRow.ItemArray = columnValuesArray
6824             Me.Rows.Add(rowCourseFeePayment_JoinRow)
6825             Return rowCourseFeePayment_JoinRow
6826         End Function
6827         
6828         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6829          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6830         Public Function FindByCFPJ_Id(ByVal CFPJ_Id As Integer) As CourseFeePayment_JoinRow
6831             Return CType(Me.Rows.Find(New Object() {CFPJ_Id}),CourseFeePayment_JoinRow)
6832         End Function
6833         
6834         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6835          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6836         Public Overrides Function Clone() As Global.System.Data.DataTable
6837             Dim cln As CourseFeePayment_JoinDataTable = CType(MyBase.Clone,CourseFeePayment_JoinDataTable)
6838             cln.InitVars
6839             Return cln
6840         End Function
6841         
6842         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6843          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6844         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
6845             Return New CourseFeePayment_JoinDataTable()
6846         End Function
6847         
6848         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6849          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6850         Friend Sub InitVars()
6851             Me.columnCFPJ_Id = MyBase.Columns("CFPJ_Id")
6852             Me.columnC_PaymentID = MyBase.Columns("C_PaymentID")
6853             Me.columnFeeName = MyBase.Columns("FeeName")
6854             Me.columnFee = MyBase.Columns("Fee")
6855         End Sub
6856         
6857         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6858          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6859         Private Sub InitClass()
6860             Me.columnCFPJ_Id = New Global.System.Data.DataColumn("CFPJ_Id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
6861             MyBase.Columns.Add(Me.columnCFPJ_Id)
6862             Me.columnC_PaymentID = New Global.System.Data.DataColumn("C_PaymentID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
6863             MyBase.Columns.Add(Me.columnC_PaymentID)
6864             Me.columnFeeName = New Global.System.Data.DataColumn("FeeName", GetType(String), Nothing, Global.System.Data.MappingType.Element)
6865             MyBase.Columns.Add(Me.columnFeeName)
6866             Me.columnFee = New Global.System.Data.DataColumn("Fee", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
6867             MyBase.Columns.Add(Me.columnFee)
6868             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnCFPJ_Id}, true))
6869             Me.columnCFPJ_Id.AutoIncrement = true
6870             Me.columnCFPJ_Id.AutoIncrementSeed = -1
6871             Me.columnCFPJ_Id.AutoIncrementStep = -1
6872             Me.columnCFPJ_Id.AllowDBNull = false
6873             Me.columnCFPJ_Id.ReadOnly = true
6874             Me.columnCFPJ_Id.Unique = true
6875             Me.columnC_PaymentID.AllowDBNull = false
6876             Me.columnFeeName.AllowDBNull = false
6877             Me.columnFeeName.MaxLength = 250
6878             Me.columnFee.AllowDBNull = false
6879         End Sub
6880         
6881         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6882          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6883         Public Function NewCourseFeePayment_JoinRow() As CourseFeePayment_JoinRow
6884             Return CType(Me.NewRow,CourseFeePayment_JoinRow)
6885         End Function
6886         
6887         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6888          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6889         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
6890             Return New CourseFeePayment_JoinRow(builder)
6891         End Function
6892         
6893         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6894          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6895         Protected Overrides Function GetRowType() As Global.System.Type
6896             Return GetType(CourseFeePayment_JoinRow)
6897         End Function
6898         
6899         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6900          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6901         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
6902             MyBase.OnRowChanged(e)
6903             If (Not (Me.CourseFeePayment_JoinRowChangedEvent) Is Nothing) Then
6904                 RaiseEvent CourseFeePayment_JoinRowChanged(Me, New CourseFeePayment_JoinRowChangeEvent(CType(e.Row,CourseFeePayment_JoinRow), e.Action))
6905             End If
6906         End Sub
6907         
6908         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6909          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6910         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
6911             MyBase.OnRowChanging(e)
6912             If (Not (Me.CourseFeePayment_JoinRowChangingEvent) Is Nothing) Then
6913                 RaiseEvent CourseFeePayment_JoinRowChanging(Me, New CourseFeePayment_JoinRowChangeEvent(CType(e.Row,CourseFeePayment_JoinRow), e.Action))
6914             End If
6915         End Sub
6916         
6917         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6918          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6919         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
6920             MyBase.OnRowDeleted(e)
6921             If (Not (Me.CourseFeePayment_JoinRowDeletedEvent) Is Nothing) Then
6922                 RaiseEvent CourseFeePayment_JoinRowDeleted(Me, New CourseFeePayment_JoinRowChangeEvent(CType(e.Row,CourseFeePayment_JoinRow), e.Action))
6923             End If
6924         End Sub
6925         
6926         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6927          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6928         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
6929             MyBase.OnRowDeleting(e)
6930             If (Not (Me.CourseFeePayment_JoinRowDeletingEvent) Is Nothing) Then
6931                 RaiseEvent CourseFeePayment_JoinRowDeleting(Me, New CourseFeePayment_JoinRowChangeEvent(CType(e.Row,CourseFeePayment_JoinRow), e.Action))
6932             End If
6933         End Sub
6934         
6935         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6936          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6937         Public Sub RemoveCourseFeePayment_JoinRow(ByVal row As CourseFeePayment_JoinRow)
6938             Me.Rows.Remove(row)
6939         End Sub
6940         
6941         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6942          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6943         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
6944             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
6945             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
6946             Dim ds As ERPS_DBDataSet1 = New ERPS_DBDataSet1()
6947             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
6948             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
6949             any1.MinOccurs = New Decimal(0)
6950             any1.MaxOccurs = Decimal.MaxValue
6951             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
6952             sequence.Items.Add(any1)
6953             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
6954             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
6955             any2.MinOccurs = New Decimal(1)
6956             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
6957             sequence.Items.Add(any2)
6958             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
6959             attribute1.Name = "namespace"
6960             attribute1.FixedValue = ds.Namespace
6961             type.Attributes.Add(attribute1)
6962             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
6963             attribute2.Name = "tableTypeName"
6964             attribute2.FixedValue = "CourseFeePayment_JoinDataTable"
6965             type.Attributes.Add(attribute2)
6966             type.Particle = sequence
6967             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
6968             If xs.Contains(dsSchema.TargetNamespace) Then
6969                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
6970                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
6971                 Try
6972                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
6973                     dsSchema.Write(s1)
6974                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
6975                     Do While schemas.MoveNext
6976                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
6977                         s2.SetLength(0)
6978                         schema.Write(s2)
6979                         If (s1.Length = s2.Length) Then
6980                             s1.Position = 0
6981                             s2.Position = 0
6982                             
6983                             Do While ((s1.Position <> s1.Length) _
6984                                         AndAlso (s1.ReadByte = s2.ReadByte))
6985                                 
6986                                 
6987                             Loop
6988                             If (s1.Position = s1.Length) Then
6989                                 Return type
6990                             End If
6991                         End If
6992                         
6993                     Loop
6994                 Finally
6995                     If (Not (s1) Is Nothing) Then
6996                         s1.Close
6997                     End If
6998                     If (Not (s2) Is Nothing) Then
6999                         s2.Close
7000                     End If
7001                 End Try
7002             End If
7003             xs.Add(dsSchema)
7004             Return type
7005         End Function
7006     End Class
7007     
7008     '''<summary>
7009     '''Represents the strongly named DataTable class.
7010     '''</summary>
7011     <Global.System.Serializable(), _
7012      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
7013     Partial Public Class DepartmentDataTable
7014         Inherits Global.System.Data.TypedTableBase(Of DepartmentRow)
7015         
7016         Private columnid As Global.System.Data.DataColumn
7017         
7018         Private columnDepartmentName As Global.System.Data.DataColumn
7019         
7020         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7021          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7022         Public Sub New()
7023             MyBase.New
7024             Me.TableName = "Department"
7025             Me.BeginInit
7026             Me.InitClass
7027             Me.EndInit
7028         End Sub
7029         
7030         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7031          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7032         Friend Sub New(ByVal table As Global.System.Data.DataTable)
7033             MyBase.New
7034             Me.TableName = table.TableName
7035             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
7036                 Me.CaseSensitive = table.CaseSensitive
7037             End If
7038             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
7039                 Me.Locale = table.Locale
7040             End If
7041             If (table.Namespace <> table.DataSet.Namespace) Then
7042                 Me.Namespace = table.Namespace
7043             End If
7044             Me.Prefix = table.Prefix
7045             Me.MinimumCapacity = table.MinimumCapacity
7046         End Sub
7047         
7048         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7049          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7050         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
7051             MyBase.New(info, context)
7052             Me.InitVars
7053         End Sub
7054         
7055         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7056          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7057         Public ReadOnly Property idColumn() As Global.System.Data.DataColumn
7058             Get
7059                 Return Me.columnid
7060             End Get
7061         End Property
7062         
7063         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7064          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7065         Public ReadOnly Property DepartmentNameColumn() As Global.System.Data.DataColumn
7066             Get
7067                 Return Me.columnDepartmentName
7068             End Get
7069         End Property
7070         
7071         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7072          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
7073          Global.System.ComponentModel.Browsable(false)> _
7074         Public ReadOnly Property Count() As Integer
7075             Get
7076                 Return Me.Rows.Count
7077             End Get
7078         End Property
7079         
7080         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7081          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7082         Public Default ReadOnly Property Item(ByVal index As Integer) As DepartmentRow
7083             Get
7084                 Return CType(Me.Rows(index),DepartmentRow)
7085             End Get
7086         End Property
7087         
7088         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7089         Public Event DepartmentRowChanging As DepartmentRowChangeEventHandler
7090         
7091         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7092         Public Event DepartmentRowChanged As DepartmentRowChangeEventHandler
7093         
7094         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7095         Public Event DepartmentRowDeleting As DepartmentRowChangeEventHandler
7096         
7097         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7098         Public Event DepartmentRowDeleted As DepartmentRowChangeEventHandler
7099         
7100         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7101          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7102         Public Overloads Sub AddDepartmentRow(ByVal row As DepartmentRow)
7103             Me.Rows.Add(row)
7104         End Sub
7105         
7106         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7107          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7108         Public Overloads Function AddDepartmentRow(ByVal id As Integer, ByVal DepartmentName As String) As DepartmentRow
7109             Dim rowDepartmentRow As DepartmentRow = CType(Me.NewRow,DepartmentRow)
7110             Dim columnValuesArray() As Object = New Object() {id, DepartmentName}
7111             rowDepartmentRow.ItemArray = columnValuesArray
7112             Me.Rows.Add(rowDepartmentRow)
7113             Return rowDepartmentRow
7114         End Function
7115         
7116         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7117          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7118         Public Function FindByid(ByVal id As Integer) As DepartmentRow
7119             Return CType(Me.Rows.Find(New Object() {id}),DepartmentRow)
7120         End Function
7121         
7122         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7123          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7124         Public Overrides Function Clone() As Global.System.Data.DataTable
7125             Dim cln As DepartmentDataTable = CType(MyBase.Clone,DepartmentDataTable)
7126             cln.InitVars
7127             Return cln
7128         End Function
7129         
7130         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7131          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7132         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
7133             Return New DepartmentDataTable()
7134         End Function
7135         
7136         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7137          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7138         Friend Sub InitVars()
7139             Me.columnid = MyBase.Columns("id")
7140             Me.columnDepartmentName = MyBase.Columns("DepartmentName")
7141         End Sub
7142         
7143         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7144          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7145         Private Sub InitClass()
7146             Me.columnid = New Global.System.Data.DataColumn("id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
7147             MyBase.Columns.Add(Me.columnid)
7148             Me.columnDepartmentName = New Global.System.Data.DataColumn("DepartmentName", GetType(String), Nothing, Global.System.Data.MappingType.Element)
7149             MyBase.Columns.Add(Me.columnDepartmentName)
7150             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnid}, true))
7151             Me.columnid.AllowDBNull = false
7152             Me.columnid.Unique = true
7153             Me.columnDepartmentName.AllowDBNull = false
7154             Me.columnDepartmentName.MaxLength = 250
7155         End Sub
7156         
7157         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7158          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7159         Public Function NewDepartmentRow() As DepartmentRow
7160             Return CType(Me.NewRow,DepartmentRow)
7161         End Function
7162         
7163         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7164          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7165         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
7166             Return New DepartmentRow(builder)
7167         End Function
7168         
7169         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7170          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7171         Protected Overrides Function GetRowType() As Global.System.Type
7172             Return GetType(DepartmentRow)
7173         End Function
7174         
7175         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7176          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7177         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
7178             MyBase.OnRowChanged(e)
7179             If (Not (Me.DepartmentRowChangedEvent) Is Nothing) Then
7180                 RaiseEvent DepartmentRowChanged(Me, New DepartmentRowChangeEvent(CType(e.Row,DepartmentRow), e.Action))
7181             End If
7182         End Sub
7183         
7184         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7185          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7186         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
7187             MyBase.OnRowChanging(e)
7188             If (Not (Me.DepartmentRowChangingEvent) Is Nothing) Then
7189                 RaiseEvent DepartmentRowChanging(Me, New DepartmentRowChangeEvent(CType(e.Row,DepartmentRow), e.Action))
7190             End If
7191         End Sub
7192         
7193         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7194          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7195         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
7196             MyBase.OnRowDeleted(e)
7197             If (Not (Me.DepartmentRowDeletedEvent) Is Nothing) Then
7198                 RaiseEvent DepartmentRowDeleted(Me, New DepartmentRowChangeEvent(CType(e.Row,DepartmentRow), e.Action))
7199             End If
7200         End Sub
7201         
7202         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7203          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7204         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
7205             MyBase.OnRowDeleting(e)
7206             If (Not (Me.DepartmentRowDeletingEvent) Is Nothing) Then
7207                 RaiseEvent DepartmentRowDeleting(Me, New DepartmentRowChangeEvent(CType(e.Row,DepartmentRow), e.Action))
7208             End If
7209         End Sub
7210         
7211         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7212          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7213         Public Sub RemoveDepartmentRow(ByVal row As DepartmentRow)
7214             Me.Rows.Remove(row)
7215         End Sub
7216         
7217         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7218          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7219         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
7220             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
7221             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
7222             Dim ds As ERPS_DBDataSet1 = New ERPS_DBDataSet1()
7223             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
7224             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
7225             any1.MinOccurs = New Decimal(0)
7226             any1.MaxOccurs = Decimal.MaxValue
7227             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
7228             sequence.Items.Add(any1)
7229             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
7230             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
7231             any2.MinOccurs = New Decimal(1)
7232             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
7233             sequence.Items.Add(any2)
7234             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
7235             attribute1.Name = "namespace"
7236             attribute1.FixedValue = ds.Namespace
7237             type.Attributes.Add(attribute1)
7238             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
7239             attribute2.Name = "tableTypeName"
7240             attribute2.FixedValue = "DepartmentDataTable"
7241             type.Attributes.Add(attribute2)
7242             type.Particle = sequence
7243             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
7244             If xs.Contains(dsSchema.TargetNamespace) Then
7245                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
7246                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
7247                 Try
7248                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
7249                     dsSchema.Write(s1)
7250                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
7251                     Do While schemas.MoveNext
7252                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
7253                         s2.SetLength(0)
7254                         schema.Write(s2)
7255                         If (s1.Length = s2.Length) Then
7256                             s1.Position = 0
7257                             s2.Position = 0
7258                             
7259                             Do While ((s1.Position <> s1.Length) _
7260                                         AndAlso (s1.ReadByte = s2.ReadByte))
7261                                 
7262                                 
7263                             Loop
7264                             If (s1.Position = s1.Length) Then
7265                                 Return type
7266                             End If
7267                         End If
7268                         
7269                     Loop
7270                 Finally
7271                     If (Not (s1) Is Nothing) Then
7272                         s1.Close
7273                     End If
7274                     If (Not (s2) Is Nothing) Then
7275                         s2.Close
7276                     End If
7277                 End Try
7278             End If
7279             xs.Add(dsSchema)
7280             Return type
7281         End Function
7282     End Class
7283     
7284     '''<summary>
7285     '''Represents the strongly named DataTable class.
7286     '''</summary>
7287     <Global.System.Serializable(), _
7288      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
7289     Partial Public Class DesignationDataTable
7290         Inherits Global.System.Data.TypedTableBase(Of DesignationRow)
7291         
7292         Private columnDesignation As Global.System.Data.DataColumn
7293         
7294         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7295          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7296         Public Sub New()
7297             MyBase.New
7298             Me.TableName = "Designation"
7299             Me.BeginInit
7300             Me.InitClass
7301             Me.EndInit
7302         End Sub
7303         
7304         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7305          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7306         Friend Sub New(ByVal table As Global.System.Data.DataTable)
7307             MyBase.New
7308             Me.TableName = table.TableName
7309             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
7310                 Me.CaseSensitive = table.CaseSensitive
7311             End If
7312             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
7313                 Me.Locale = table.Locale
7314             End If
7315             If (table.Namespace <> table.DataSet.Namespace) Then
7316                 Me.Namespace = table.Namespace
7317             End If
7318             Me.Prefix = table.Prefix
7319             Me.MinimumCapacity = table.MinimumCapacity
7320         End Sub
7321         
7322         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7323          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7324         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
7325             MyBase.New(info, context)
7326             Me.InitVars
7327         End Sub
7328         
7329         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7330          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7331         Public ReadOnly Property DesignationColumn() As Global.System.Data.DataColumn
7332             Get
7333                 Return Me.columnDesignation
7334             End Get
7335         End Property
7336         
7337         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7338          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
7339          Global.System.ComponentModel.Browsable(false)> _
7340         Public ReadOnly Property Count() As Integer
7341             Get
7342                 Return Me.Rows.Count
7343             End Get
7344         End Property
7345         
7346         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7347          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7348         Public Default ReadOnly Property Item(ByVal index As Integer) As DesignationRow
7349             Get
7350                 Return CType(Me.Rows(index),DesignationRow)
7351             End Get
7352         End Property
7353         
7354         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7355         Public Event DesignationRowChanging As DesignationRowChangeEventHandler
7356         
7357         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7358         Public Event DesignationRowChanged As DesignationRowChangeEventHandler
7359         
7360         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7361         Public Event DesignationRowDeleting As DesignationRowChangeEventHandler
7362         
7363         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7364         Public Event DesignationRowDeleted As DesignationRowChangeEventHandler
7365         
7366         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7367          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7368         Public Overloads Sub AddDesignationRow(ByVal row As DesignationRow)
7369             Me.Rows.Add(row)
7370         End Sub
7371         
7372         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7373          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7374         Public Overloads Function AddDesignationRow(ByVal Designation As String) As DesignationRow
7375             Dim rowDesignationRow As DesignationRow = CType(Me.NewRow,DesignationRow)
7376             Dim columnValuesArray() As Object = New Object() {Designation}
7377             rowDesignationRow.ItemArray = columnValuesArray
7378             Me.Rows.Add(rowDesignationRow)
7379             Return rowDesignationRow
7380         End Function
7381         
7382         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7383          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7384         Public Function FindByDesignation(ByVal Designation As String) As DesignationRow
7385             Return CType(Me.Rows.Find(New Object() {Designation}),DesignationRow)
7386         End Function
7387         
7388         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7389          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7390         Public Overrides Function Clone() As Global.System.Data.DataTable
7391             Dim cln As DesignationDataTable = CType(MyBase.Clone,DesignationDataTable)
7392             cln.InitVars
7393             Return cln
7394         End Function
7395         
7396         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7397          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7398         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
7399             Return New DesignationDataTable()
7400         End Function
7401         
7402         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7403          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7404         Friend Sub InitVars()
7405             Me.columnDesignation = MyBase.Columns("Designation")
7406         End Sub
7407         
7408         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7409          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7410         Private Sub InitClass()
7411             Me.columnDesignation = New Global.System.Data.DataColumn("Designation", GetType(String), Nothing, Global.System.Data.MappingType.Element)
7412             MyBase.Columns.Add(Me.columnDesignation)
7413             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnDesignation}, true))
7414             Me.columnDesignation.AllowDBNull = false
7415             Me.columnDesignation.Unique = true
7416             Me.columnDesignation.MaxLength = 150
7417         End Sub
7418         
7419         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7420          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7421         Public Function NewDesignationRow() As DesignationRow
7422             Return CType(Me.NewRow,DesignationRow)
7423         End Function
7424         
7425         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7426          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7427         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
7428             Return New DesignationRow(builder)
7429         End Function
7430         
7431         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7432          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7433         Protected Overrides Function GetRowType() As Global.System.Type
7434             Return GetType(DesignationRow)
7435         End Function
7436         
7437         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7438          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7439         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
7440             MyBase.OnRowChanged(e)
7441             If (Not (Me.DesignationRowChangedEvent) Is Nothing) Then
7442                 RaiseEvent DesignationRowChanged(Me, New DesignationRowChangeEvent(CType(e.Row,DesignationRow), e.Action))
7443             End If
7444         End Sub
7445         
7446         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7447          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7448         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
7449             MyBase.OnRowChanging(e)
7450             If (Not (Me.DesignationRowChangingEvent) Is Nothing) Then
7451                 RaiseEvent DesignationRowChanging(Me, New DesignationRowChangeEvent(CType(e.Row,DesignationRow), e.Action))
7452             End If
7453         End Sub
7454         
7455         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7456          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7457         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
7458             MyBase.OnRowDeleted(e)
7459             If (Not (Me.DesignationRowDeletedEvent) Is Nothing) Then
7460                 RaiseEvent DesignationRowDeleted(Me, New DesignationRowChangeEvent(CType(e.Row,DesignationRow), e.Action))
7461             End If
7462         End Sub
7463         
7464         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7465          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7466         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
7467             MyBase.OnRowDeleting(e)
7468             If (Not (Me.DesignationRowDeletingEvent) Is Nothing) Then
7469                 RaiseEvent DesignationRowDeleting(Me, New DesignationRowChangeEvent(CType(e.Row,DesignationRow), e.Action))
7470             End If
7471         End Sub
7472         
7473         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7474          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7475         Public Sub RemoveDesignationRow(ByVal row As DesignationRow)
7476             Me.Rows.Remove(row)
7477         End Sub
7478         
7479         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7480          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7481         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
7482             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
7483             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
7484             Dim ds As ERPS_DBDataSet1 = New ERPS_DBDataSet1()
7485             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
7486             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
7487             any1.MinOccurs = New Decimal(0)
7488             any1.MaxOccurs = Decimal.MaxValue
7489             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
7490             sequence.Items.Add(any1)
7491             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
7492             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
7493             any2.MinOccurs = New Decimal(1)
7494             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
7495             sequence.Items.Add(any2)
7496             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
7497             attribute1.Name = "namespace"
7498             attribute1.FixedValue = ds.Namespace
7499             type.Attributes.Add(attribute1)
7500             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
7501             attribute2.Name = "tableTypeName"
7502             attribute2.FixedValue = "DesignationDataTable"
7503             type.Attributes.Add(attribute2)
7504             type.Particle = sequence
7505             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
7506             If xs.Contains(dsSchema.TargetNamespace) Then
7507                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
7508                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
7509                 Try
7510                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
7511                     dsSchema.Write(s1)
7512                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
7513                     Do While schemas.MoveNext
7514                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
7515                         s2.SetLength(0)
7516                         schema.Write(s2)
7517                         If (s1.Length = s2.Length) Then
7518                             s1.Position = 0
7519                             s2.Position = 0
7520                             
7521                             Do While ((s1.Position <> s1.Length) _
7522                                         AndAlso (s1.ReadByte = s2.ReadByte))
7523                                 
7524                                 
7525                             Loop
7526                             If (s1.Position = s1.Length) Then
7527                                 Return type
7528                             End If
7529                         End If
7530                         
7531                     Loop
7532                 Finally
7533                     If (Not (s1) Is Nothing) Then
7534                         s1.Close
7535                     End If
7536                     If (Not (s2) Is Nothing) Then
7537                         s2.Close
7538                     End If
7539                 End Try
7540             End If
7541             xs.Add(dsSchema)
7542             Return type
7543         End Function
7544     End Class
7545     
7546     '''<summary>
7547     '''Represents the strongly named DataTable class.
7548     '''</summary>
7549     <Global.System.Serializable(), _
7550      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
7551     Partial Public Class DiscountDataTable
7552         Inherits Global.System.Data.TypedTableBase(Of DiscountRow)
7553         
7554         Private columnId As Global.System.Data.DataColumn
7555         
7556         Private columnAdmissionNo As Global.System.Data.DataColumn
7557         
7558         Private columnFeetype As Global.System.Data.DataColumn
7559         
7560         Private columnDiscount As Global.System.Data.DataColumn
7561         
7562         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7563          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7564         Public Sub New()
7565             MyBase.New
7566             Me.TableName = "Discount"
7567             Me.BeginInit
7568             Me.InitClass
7569             Me.EndInit
7570         End Sub
7571         
7572         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7573          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7574         Friend Sub New(ByVal table As Global.System.Data.DataTable)
7575             MyBase.New
7576             Me.TableName = table.TableName
7577             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
7578                 Me.CaseSensitive = table.CaseSensitive
7579             End If
7580             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
7581                 Me.Locale = table.Locale
7582             End If
7583             If (table.Namespace <> table.DataSet.Namespace) Then
7584                 Me.Namespace = table.Namespace
7585             End If
7586             Me.Prefix = table.Prefix
7587             Me.MinimumCapacity = table.MinimumCapacity
7588         End Sub
7589         
7590         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7591          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7592         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
7593             MyBase.New(info, context)
7594             Me.InitVars
7595         End Sub
7596         
7597         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7598          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7599         Public ReadOnly Property IdColumn() As Global.System.Data.DataColumn
7600             Get
7601                 Return Me.columnId
7602             End Get
7603         End Property
7604         
7605         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7606          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7607         Public ReadOnly Property AdmissionNoColumn() As Global.System.Data.DataColumn
7608             Get
7609                 Return Me.columnAdmissionNo
7610             End Get
7611         End Property
7612         
7613         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7614          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7615         Public ReadOnly Property FeetypeColumn() As Global.System.Data.DataColumn
7616             Get
7617                 Return Me.columnFeetype
7618             End Get
7619         End Property
7620         
7621         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7622          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7623         Public ReadOnly Property DiscountColumn() As Global.System.Data.DataColumn
7624             Get
7625                 Return Me.columnDiscount
7626             End Get
7627         End Property
7628         
7629         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7630          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
7631          Global.System.ComponentModel.Browsable(false)> _
7632         Public ReadOnly Property Count() As Integer
7633             Get
7634                 Return Me.Rows.Count
7635             End Get
7636         End Property
7637         
7638         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7639          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7640         Public Default ReadOnly Property Item(ByVal index As Integer) As DiscountRow
7641             Get
7642                 Return CType(Me.Rows(index),DiscountRow)
7643             End Get
7644         End Property
7645         
7646         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7647         Public Event DiscountRowChanging As DiscountRowChangeEventHandler
7648         
7649         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7650         Public Event DiscountRowChanged As DiscountRowChangeEventHandler
7651         
7652         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7653         Public Event DiscountRowDeleting As DiscountRowChangeEventHandler
7654         
7655         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7656         Public Event DiscountRowDeleted As DiscountRowChangeEventHandler
7657         
7658         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7659          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7660         Public Overloads Sub AddDiscountRow(ByVal row As DiscountRow)
7661             Me.Rows.Add(row)
7662         End Sub
7663         
7664         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7665          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7666         Public Overloads Function AddDiscountRow(ByVal parentStudentRowByFK_Discount_Student As StudentRow, ByVal Feetype As String, ByVal Discount As Decimal) As DiscountRow
7667             Dim rowDiscountRow As DiscountRow = CType(Me.NewRow,DiscountRow)
7668             Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, Feetype, Discount}
7669             If (Not (parentStudentRowByFK_Discount_Student) Is Nothing) Then
7670                 columnValuesArray(1) = parentStudentRowByFK_Discount_Student(0)
7671             End If
7672             rowDiscountRow.ItemArray = columnValuesArray
7673             Me.Rows.Add(rowDiscountRow)
7674             Return rowDiscountRow
7675         End Function
7676         
7677         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7678          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7679         Public Function FindById(ByVal Id As Integer) As DiscountRow
7680             Return CType(Me.Rows.Find(New Object() {Id}),DiscountRow)
7681         End Function
7682         
7683         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7684          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7685         Public Overrides Function Clone() As Global.System.Data.DataTable
7686             Dim cln As DiscountDataTable = CType(MyBase.Clone,DiscountDataTable)
7687             cln.InitVars
7688             Return cln
7689         End Function
7690         
7691         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7692          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7693         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
7694             Return New DiscountDataTable()
7695         End Function
7696         
7697         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7698          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7699         Friend Sub InitVars()
7700             Me.columnId = MyBase.Columns("Id")
7701             Me.columnAdmissionNo = MyBase.Columns("AdmissionNo")
7702             Me.columnFeetype = MyBase.Columns("Feetype")
7703             Me.columnDiscount = MyBase.Columns("Discount")
7704         End Sub
7705         
7706         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7707          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7708         Private Sub InitClass()
7709             Me.columnId = New Global.System.Data.DataColumn("Id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
7710             MyBase.Columns.Add(Me.columnId)
7711             Me.columnAdmissionNo = New Global.System.Data.DataColumn("AdmissionNo", GetType(String), Nothing, Global.System.Data.MappingType.Element)
7712             MyBase.Columns.Add(Me.columnAdmissionNo)
7713             Me.columnFeetype = New Global.System.Data.DataColumn("Feetype", GetType(String), Nothing, Global.System.Data.MappingType.Element)
7714             MyBase.Columns.Add(Me.columnFeetype)
7715             Me.columnDiscount = New Global.System.Data.DataColumn("Discount", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
7716             MyBase.Columns.Add(Me.columnDiscount)
7717             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnId}, true))
7718             Me.columnId.AutoIncrement = true
7719             Me.columnId.AutoIncrementSeed = -1
7720             Me.columnId.AutoIncrementStep = -1
7721             Me.columnId.AllowDBNull = false
7722             Me.columnId.ReadOnly = true
7723             Me.columnId.Unique = true
7724             Me.columnAdmissionNo.AllowDBNull = false
7725             Me.columnAdmissionNo.MaxLength = 15
7726             Me.columnFeetype.AllowDBNull = false
7727             Me.columnFeetype.MaxLength = 50
7728             Me.columnDiscount.AllowDBNull = false
7729         End Sub
7730         
7731         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7732          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7733         Public Function NewDiscountRow() As DiscountRow
7734             Return CType(Me.NewRow,DiscountRow)
7735         End Function
7736         
7737         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7738          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7739         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
7740             Return New DiscountRow(builder)
7741         End Function
7742         
7743         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7744          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7745         Protected Overrides Function GetRowType() As Global.System.Type
7746             Return GetType(DiscountRow)
7747         End Function
7748         
7749         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7750          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7751         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
7752             MyBase.OnRowChanged(e)
7753             If (Not (Me.DiscountRowChangedEvent) Is Nothing) Then
7754                 RaiseEvent DiscountRowChanged(Me, New DiscountRowChangeEvent(CType(e.Row,DiscountRow), e.Action))
7755             End If
7756         End Sub
7757         
7758         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7759          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7760         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
7761             MyBase.OnRowChanging(e)
7762             If (Not (Me.DiscountRowChangingEvent) Is Nothing) Then
7763                 RaiseEvent DiscountRowChanging(Me, New DiscountRowChangeEvent(CType(e.Row,DiscountRow), e.Action))
7764             End If
7765         End Sub
7766         
7767         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7768          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7769         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
7770             MyBase.OnRowDeleted(e)
7771             If (Not (Me.DiscountRowDeletedEvent) Is Nothing) Then
7772                 RaiseEvent DiscountRowDeleted(Me, New DiscountRowChangeEvent(CType(e.Row,DiscountRow), e.Action))
7773             End If
7774         End Sub
7775         
7776         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7777          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7778         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
7779             MyBase.OnRowDeleting(e)
7780             If (Not (Me.DiscountRowDeletingEvent) Is Nothing) Then
7781                 RaiseEvent DiscountRowDeleting(Me, New DiscountRowChangeEvent(CType(e.Row,DiscountRow), e.Action))
7782             End If
7783         End Sub
7784         
7785         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7786          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7787         Public Sub RemoveDiscountRow(ByVal row As DiscountRow)
7788             Me.Rows.Remove(row)
7789         End Sub
7790         
7791         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7792          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7793         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
7794             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
7795             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
7796             Dim ds As ERPS_DBDataSet1 = New ERPS_DBDataSet1()
7797             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
7798             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
7799             any1.MinOccurs = New Decimal(0)
7800             any1.MaxOccurs = Decimal.MaxValue
7801             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
7802             sequence.Items.Add(any1)
7803             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
7804             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
7805             any2.MinOccurs = New Decimal(1)
7806             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
7807             sequence.Items.Add(any2)
7808             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
7809             attribute1.Name = "namespace"
7810             attribute1.FixedValue = ds.Namespace
7811             type.Attributes.Add(attribute1)
7812             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
7813             attribute2.Name = "tableTypeName"
7814             attribute2.FixedValue = "DiscountDataTable"
7815             type.Attributes.Add(attribute2)
7816             type.Particle = sequence
7817             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
7818             If xs.Contains(dsSchema.TargetNamespace) Then
7819                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
7820                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
7821                 Try
7822                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
7823                     dsSchema.Write(s1)
7824                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
7825                     Do While schemas.MoveNext
7826                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
7827                         s2.SetLength(0)
7828                         schema.Write(s2)
7829                         If (s1.Length = s2.Length) Then
7830                             s1.Position = 0
7831                             s2.Position = 0
7832                             
7833                             Do While ((s1.Position <> s1.Length) _
7834                                         AndAlso (s1.ReadByte = s2.ReadByte))
7835                                 
7836                                 
7837                             Loop
7838                             If (s1.Position = s1.Length) Then
7839                                 Return type
7840                             End If
7841                         End If
7842                         
7843                     Loop
7844                 Finally
7845                     If (Not (s1) Is Nothing) Then
7846                         s1.Close
7847                     End If
7848                     If (Not (s2) Is Nothing) Then
7849                         s2.Close
7850                     End If
7851                 End Try
7852             End If
7853             xs.Add(dsSchema)
7854             Return type
7855         End Function
7856     End Class
7857     
7858     '''<summary>
7859     '''Represents the strongly named DataTable class.
7860     '''</summary>
7861     <Global.System.Serializable(), _
7862      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
7863     Partial Public Class Discount_StaffDataTable
7864         Inherits Global.System.Data.TypedTableBase(Of Discount_StaffRow)
7865         
7866         Private columnId As Global.System.Data.DataColumn
7867         
7868         Private columnStaffID As Global.System.Data.DataColumn
7869         
7870         Private columnDiscount As Global.System.Data.DataColumn
7871         
7872         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7873          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7874         Public Sub New()
7875             MyBase.New
7876             Me.TableName = "Discount_Staff"
7877             Me.BeginInit
7878             Me.InitClass
7879             Me.EndInit
7880         End Sub
7881         
7882         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7883          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7884         Friend Sub New(ByVal table As Global.System.Data.DataTable)
7885             MyBase.New
7886             Me.TableName = table.TableName
7887             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
7888                 Me.CaseSensitive = table.CaseSensitive
7889             End If
7890             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
7891                 Me.Locale = table.Locale
7892             End If
7893             If (table.Namespace <> table.DataSet.Namespace) Then
7894                 Me.Namespace = table.Namespace
7895             End If
7896             Me.Prefix = table.Prefix
7897             Me.MinimumCapacity = table.MinimumCapacity
7898         End Sub
7899         
7900         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7901          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7902         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
7903             MyBase.New(info, context)
7904             Me.InitVars
7905         End Sub
7906         
7907         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7908          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7909         Public ReadOnly Property IdColumn() As Global.System.Data.DataColumn
7910             Get
7911                 Return Me.columnId
7912             End Get
7913         End Property
7914         
7915         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7916          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7917         Public ReadOnly Property StaffIDColumn() As Global.System.Data.DataColumn
7918             Get
7919                 Return Me.columnStaffID
7920             End Get
7921         End Property
7922         
7923         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7924          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7925         Public ReadOnly Property DiscountColumn() As Global.System.Data.DataColumn
7926             Get
7927                 Return Me.columnDiscount
7928             End Get
7929         End Property
7930         
7931         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7932          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
7933          Global.System.ComponentModel.Browsable(false)> _
7934         Public ReadOnly Property Count() As Integer
7935             Get
7936                 Return Me.Rows.Count
7937             End Get
7938         End Property
7939         
7940         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7941          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7942         Public Default ReadOnly Property Item(ByVal index As Integer) As Discount_StaffRow
7943             Get
7944                 Return CType(Me.Rows(index),Discount_StaffRow)
7945             End Get
7946         End Property
7947         
7948         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7949         Public Event Discount_StaffRowChanging As Discount_StaffRowChangeEventHandler
7950         
7951         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7952         Public Event Discount_StaffRowChanged As Discount_StaffRowChangeEventHandler
7953         
7954         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7955         Public Event Discount_StaffRowDeleting As Discount_StaffRowChangeEventHandler
7956         
7957         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7958         Public Event Discount_StaffRowDeleted As Discount_StaffRowChangeEventHandler
7959         
7960         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7961          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7962         Public Overloads Sub AddDiscount_StaffRow(ByVal row As Discount_StaffRow)
7963             Me.Rows.Add(row)
7964         End Sub
7965         
7966         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7967          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7968         Public Overloads Function AddDiscount_StaffRow(ByVal parentStaffRowByFK_Discount_Staff_Staff As StaffRow, ByVal Discount As Decimal) As Discount_StaffRow
7969             Dim rowDiscount_StaffRow As Discount_StaffRow = CType(Me.NewRow,Discount_StaffRow)
7970             Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, Discount}
7971             If (Not (parentStaffRowByFK_Discount_Staff_Staff) Is Nothing) Then
7972                 columnValuesArray(1) = parentStaffRowByFK_Discount_Staff_Staff(0)
7973             End If
7974             rowDiscount_StaffRow.ItemArray = columnValuesArray
7975             Me.Rows.Add(rowDiscount_StaffRow)
7976             Return rowDiscount_StaffRow
7977         End Function
7978         
7979         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7980          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7981         Public Function FindById(ByVal Id As Integer) As Discount_StaffRow
7982             Return CType(Me.Rows.Find(New Object() {Id}),Discount_StaffRow)
7983         End Function
7984         
7985         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7986          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7987         Public Overrides Function Clone() As Global.System.Data.DataTable
7988             Dim cln As Discount_StaffDataTable = CType(MyBase.Clone,Discount_StaffDataTable)
7989             cln.InitVars
7990             Return cln
7991         End Function
7992         
7993         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7994          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7995         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
7996             Return New Discount_StaffDataTable()
7997         End Function
7998         
7999         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8000          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8001         Friend Sub InitVars()
8002             Me.columnId = MyBase.Columns("Id")
8003             Me.columnStaffID = MyBase.Columns("StaffID")
8004             Me.columnDiscount = MyBase.Columns("Discount")
8005         End Sub
8006         
8007         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8008          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8009         Private Sub InitClass()
8010             Me.columnId = New Global.System.Data.DataColumn("Id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
8011             MyBase.Columns.Add(Me.columnId)
8012             Me.columnStaffID = New Global.System.Data.DataColumn("StaffID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
8013             MyBase.Columns.Add(Me.columnStaffID)
8014             Me.columnDiscount = New Global.System.Data.DataColumn("Discount", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
8015             MyBase.Columns.Add(Me.columnDiscount)
8016             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnId}, true))
8017             Me.columnId.AutoIncrement = true
8018             Me.columnId.AutoIncrementSeed = -1
8019             Me.columnId.AutoIncrementStep = -1
8020             Me.columnId.AllowDBNull = false
8021             Me.columnId.ReadOnly = true
8022             Me.columnId.Unique = true
8023             Me.columnStaffID.AllowDBNull = false
8024             Me.columnDiscount.AllowDBNull = false
8025         End Sub
8026         
8027         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8028          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8029         Public Function NewDiscount_StaffRow() As Discount_StaffRow
8030             Return CType(Me.NewRow,Discount_StaffRow)
8031         End Function
8032         
8033         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8034          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8035         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
8036             Return New Discount_StaffRow(builder)
8037         End Function
8038         
8039         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8040          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8041         Protected Overrides Function GetRowType() As Global.System.Type
8042             Return GetType(Discount_StaffRow)
8043         End Function
8044         
8045         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8046          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8047         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
8048             MyBase.OnRowChanged(e)
8049             If (Not (Me.Discount_StaffRowChangedEvent) Is Nothing) Then
8050                 RaiseEvent Discount_StaffRowChanged(Me, New Discount_StaffRowChangeEvent(CType(e.Row,Discount_StaffRow), e.Action))
8051             End If
8052         End Sub
8053         
8054         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8055          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8056         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
8057             MyBase.OnRowChanging(e)
8058             If (Not (Me.Discount_StaffRowChangingEvent) Is Nothing) Then
8059                 RaiseEvent Discount_StaffRowChanging(Me, New Discount_StaffRowChangeEvent(CType(e.Row,Discount_StaffRow), e.Action))
8060             End If
8061         End Sub
8062         
8063         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8064          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8065         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
8066             MyBase.OnRowDeleted(e)
8067             If (Not (Me.Discount_StaffRowDeletedEvent) Is Nothing) Then
8068                 RaiseEvent Discount_StaffRowDeleted(Me, New Discount_StaffRowChangeEvent(CType(e.Row,Discount_StaffRow), e.Action))
8069             End If
8070         End Sub
8071         
8072         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8073          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8074         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
8075             MyBase.OnRowDeleting(e)
8076             If (Not (Me.Discount_StaffRowDeletingEvent) Is Nothing) Then
8077                 RaiseEvent Discount_StaffRowDeleting(Me, New Discount_StaffRowChangeEvent(CType(e.Row,Discount_StaffRow), e.Action))
8078             End If
8079         End Sub
8080         
8081         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8082          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8083         Public Sub RemoveDiscount_StaffRow(ByVal row As Discount_StaffRow)
8084             Me.Rows.Remove(row)
8085         End Sub
8086         
8087         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8088          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8089         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
8090             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
8091             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
8092             Dim ds As ERPS_DBDataSet1 = New ERPS_DBDataSet1()
8093             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
8094             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
8095             any1.MinOccurs = New Decimal(0)
8096             any1.MaxOccurs = Decimal.MaxValue
8097             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
8098             sequence.Items.Add(any1)
8099             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
8100             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
8101             any2.MinOccurs = New Decimal(1)
8102             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
8103             sequence.Items.Add(any2)
8104             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
8105             attribute1.Name = "namespace"
8106             attribute1.FixedValue = ds.Namespace
8107             type.Attributes.Add(attribute1)
8108             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
8109             attribute2.Name = "tableTypeName"
8110             attribute2.FixedValue = "Discount_StaffDataTable"
8111             type.Attributes.Add(attribute2)
8112             type.Particle = sequence
8113             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
8114             If xs.Contains(dsSchema.TargetNamespace) Then
8115                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
8116                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
8117                 Try
8118                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
8119                     dsSchema.Write(s1)
8120                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
8121                     Do While schemas.MoveNext
8122                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
8123                         s2.SetLength(0)
8124                         schema.Write(s2)
8125                         If (s1.Length = s2.Length) Then
8126                             s1.Position = 0
8127                             s2.Position = 0
8128                             
8129                             Do While ((s1.Position <> s1.Length) _
8130                                         AndAlso (s1.ReadByte = s2.ReadByte))
8131                                 
8132                                 
8133                             Loop
8134                             If (s1.Position = s1.Length) Then
8135                                 Return type
8136                             End If
8137                         End If
8138                         
8139                     Loop
8140                 Finally
8141                     If (Not (s1) Is Nothing) Then
8142                         s1.Close
8143                     End If
8144                     If (Not (s2) Is Nothing) Then
8145                         s2.Close
8146                     End If
8147                 End Try
8148             End If
8149             xs.Add(dsSchema)
8150             Return type
8151         End Function
8152     End Class
8153     
8154     '''<summary>
8155     '''Represents the strongly named DataTable class.
8156     '''</summary>
8157     <Global.System.Serializable(), _
8158      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
8159     Partial Public Class DocumentDataTable
8160         Inherits Global.System.Data.TypedTableBase(Of DocumentRow)
8161         
8162         Private columnDoc_Id As Global.System.Data.DataColumn
8163         
8164         Private columnDocName As Global.System.Data.DataColumn
8165         
8166         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8167          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8168         Public Sub New()
8169             MyBase.New
8170             Me.TableName = "Document"
8171             Me.BeginInit
8172             Me.InitClass
8173             Me.EndInit
8174         End Sub
8175         
8176         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8177          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8178         Friend Sub New(ByVal table As Global.System.Data.DataTable)
8179             MyBase.New
8180             Me.TableName = table.TableName
8181             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
8182                 Me.CaseSensitive = table.CaseSensitive
8183             End If
8184             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
8185                 Me.Locale = table.Locale
8186             End If
8187             If (table.Namespace <> table.DataSet.Namespace) Then
8188                 Me.Namespace = table.Namespace
8189             End If
8190             Me.Prefix = table.Prefix
8191             Me.MinimumCapacity = table.MinimumCapacity
8192         End Sub
8193         
8194         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8195          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8196         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
8197             MyBase.New(info, context)
8198             Me.InitVars
8199         End Sub
8200         
8201         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8202          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8203         Public ReadOnly Property Doc_IdColumn() As Global.System.Data.DataColumn
8204             Get
8205                 Return Me.columnDoc_Id
8206             End Get
8207         End Property
8208         
8209         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8210          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8211         Public ReadOnly Property DocNameColumn() As Global.System.Data.DataColumn
8212             Get
8213                 Return Me.columnDocName
8214             End Get
8215         End Property
8216         
8217         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8218          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
8219          Global.System.ComponentModel.Browsable(false)> _
8220         Public ReadOnly Property Count() As Integer
8221             Get
8222                 Return Me.Rows.Count
8223             End Get
8224         End Property
8225         
8226         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8227          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8228         Public Default ReadOnly Property Item(ByVal index As Integer) As DocumentRow
8229             Get
8230                 Return CType(Me.Rows(index),DocumentRow)
8231             End Get
8232         End Property
8233         
8234         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8235         Public Event DocumentRowChanging As DocumentRowChangeEventHandler
8236         
8237         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8238         Public Event DocumentRowChanged As DocumentRowChangeEventHandler
8239         
8240         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8241         Public Event DocumentRowDeleting As DocumentRowChangeEventHandler
8242         
8243         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8244         Public Event DocumentRowDeleted As DocumentRowChangeEventHandler
8245         
8246         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8247          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8248         Public Overloads Sub AddDocumentRow(ByVal row As DocumentRow)
8249             Me.Rows.Add(row)
8250         End Sub
8251         
8252         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8253          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8254         Public Overloads Function AddDocumentRow(ByVal Doc_Id As Integer, ByVal DocName As String) As DocumentRow
8255             Dim rowDocumentRow As DocumentRow = CType(Me.NewRow,DocumentRow)
8256             Dim columnValuesArray() As Object = New Object() {Doc_Id, DocName}
8257             rowDocumentRow.ItemArray = columnValuesArray
8258             Me.Rows.Add(rowDocumentRow)
8259             Return rowDocumentRow
8260         End Function
8261         
8262         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8263          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8264         Public Function FindByDoc_Id(ByVal Doc_Id As Integer) As DocumentRow
8265             Return CType(Me.Rows.Find(New Object() {Doc_Id}),DocumentRow)
8266         End Function
8267         
8268         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8269          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8270         Public Overrides Function Clone() As Global.System.Data.DataTable
8271             Dim cln As DocumentDataTable = CType(MyBase.Clone,DocumentDataTable)
8272             cln.InitVars
8273             Return cln
8274         End Function
8275         
8276         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8277          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8278         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
8279             Return New DocumentDataTable()
8280         End Function
8281         
8282         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8283          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8284         Friend Sub InitVars()
8285             Me.columnDoc_Id = MyBase.Columns("Doc_Id")
8286             Me.columnDocName = MyBase.Columns("DocName")
8287         End Sub
8288         
8289         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8290          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8291         Private Sub InitClass()
8292             Me.columnDoc_Id = New Global.System.Data.DataColumn("Doc_Id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
8293             MyBase.Columns.Add(Me.columnDoc_Id)
8294             Me.columnDocName = New Global.System.Data.DataColumn("DocName", GetType(String), Nothing, Global.System.Data.MappingType.Element)
8295             MyBase.Columns.Add(Me.columnDocName)
8296             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnDoc_Id}, true))
8297             Me.columnDoc_Id.AllowDBNull = false
8298             Me.columnDoc_Id.Unique = true
8299             Me.columnDocName.AllowDBNull = false
8300             Me.columnDocName.MaxLength = 100
8301         End Sub
8302         
8303         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8304          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8305         Public Function NewDocumentRow() As DocumentRow
8306             Return CType(Me.NewRow,DocumentRow)
8307         End Function
8308         
8309         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8310          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8311         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
8312             Return New DocumentRow(builder)
8313         End Function
8314         
8315         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8316          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8317         Protected Overrides Function GetRowType() As Global.System.Type
8318             Return GetType(DocumentRow)
8319         End Function
8320         
8321         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8322          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8323         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
8324             MyBase.OnRowChanged(e)
8325             If (Not (Me.DocumentRowChangedEvent) Is Nothing) Then
8326                 RaiseEvent DocumentRowChanged(Me, New DocumentRowChangeEvent(CType(e.Row,DocumentRow), e.Action))
8327             End If
8328         End Sub
8329         
8330         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8331          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8332         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
8333             MyBase.OnRowChanging(e)
8334             If (Not (Me.DocumentRowChangingEvent) Is Nothing) Then
8335                 RaiseEvent DocumentRowChanging(Me, New DocumentRowChangeEvent(CType(e.Row,DocumentRow), e.Action))
8336             End If
8337         End Sub
8338         
8339         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8340          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8341         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
8342             MyBase.OnRowDeleted(e)
8343             If (Not (Me.DocumentRowDeletedEvent) Is Nothing) Then
8344                 RaiseEvent DocumentRowDeleted(Me, New DocumentRowChangeEvent(CType(e.Row,DocumentRow), e.Action))
8345             End If
8346         End Sub
8347         
8348         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8349          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8350         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
8351             MyBase.OnRowDeleting(e)
8352             If (Not (Me.DocumentRowDeletingEvent) Is Nothing) Then
8353                 RaiseEvent DocumentRowDeleting(Me, New DocumentRowChangeEvent(CType(e.Row,DocumentRow), e.Action))
8354             End If
8355         End Sub
8356         
8357         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8358          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8359         Public Sub RemoveDocumentRow(ByVal row As DocumentRow)
8360             Me.Rows.Remove(row)
8361         End Sub
8362         
8363         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8364          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8365         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
8366             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
8367             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
8368             Dim ds As ERPS_DBDataSet1 = New ERPS_DBDataSet1()
8369             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
8370             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
8371             any1.MinOccurs = New Decimal(0)
8372             any1.MaxOccurs = Decimal.MaxValue
8373             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
8374             sequence.Items.Add(any1)
8375             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
8376             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
8377             any2.MinOccurs = New Decimal(1)
8378             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
8379             sequence.Items.Add(any2)
8380             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
8381             attribute1.Name = "namespace"
8382             attribute1.FixedValue = ds.Namespace
8383             type.Attributes.Add(attribute1)
8384             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
8385             attribute2.Name = "tableTypeName"
8386             attribute2.FixedValue = "DocumentDataTable"
8387             type.Attributes.Add(attribute2)
8388             type.Particle = sequence
8389             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
8390             If xs.Contains(dsSchema.TargetNamespace) Then
8391                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
8392                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
8393                 Try
8394                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
8395                     dsSchema.Write(s1)
8396                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
8397                     Do While schemas.MoveNext
8398                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
8399                         s2.SetLength(0)
8400                         schema.Write(s2)
8401                         If (s1.Length = s2.Length) Then
8402                             s1.Position = 0
8403                             s2.Position = 0
8404                             
8405                             Do While ((s1.Position <> s1.Length) _
8406                                         AndAlso (s1.ReadByte = s2.ReadByte))
8407                                 
8408                                 
8409                             Loop
8410                             If (s1.Position = s1.Length) Then
8411                                 Return type
8412                             End If
8413                         End If
8414                         
8415                     Loop
8416                 Finally
8417                     If (Not (s1) Is Nothing) Then
8418                         s1.Close
8419                     End If
8420                     If (Not (s2) Is Nothing) Then
8421                         s2.Close
8422                     End If
8423                 End Try
8424             End If
8425             xs.Add(dsSchema)
8426             Return type
8427         End Function
8428     End Class
8429     
8430     '''<summary>
8431     '''Represents the strongly named DataTable class.
8432     '''</summary>
8433     <Global.System.Serializable(), _
8434      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
8435     Partial Public Class FeeDataTable
8436         Inherits Global.System.Data.TypedTableBase(Of FeeRow)
8437         
8438         Private columnFeename As Global.System.Data.DataColumn
8439         
8440         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8441          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8442         Public Sub New()
8443             MyBase.New
8444             Me.TableName = "Fee"
8445             Me.BeginInit
8446             Me.InitClass
8447             Me.EndInit
8448         End Sub
8449         
8450         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8451          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8452         Friend Sub New(ByVal table As Global.System.Data.DataTable)
8453             MyBase.New
8454             Me.TableName = table.TableName
8455             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
8456                 Me.CaseSensitive = table.CaseSensitive
8457             End If
8458             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
8459                 Me.Locale = table.Locale
8460             End If
8461             If (table.Namespace <> table.DataSet.Namespace) Then
8462                 Me.Namespace = table.Namespace
8463             End If
8464             Me.Prefix = table.Prefix
8465             Me.MinimumCapacity = table.MinimumCapacity
8466         End Sub
8467         
8468         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8469          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8470         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
8471             MyBase.New(info, context)
8472             Me.InitVars
8473         End Sub
8474         
8475         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8476          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8477         Public ReadOnly Property FeenameColumn() As Global.System.Data.DataColumn
8478             Get
8479                 Return Me.columnFeename
8480             End Get
8481         End Property
8482         
8483         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8484          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
8485          Global.System.ComponentModel.Browsable(false)> _
8486         Public ReadOnly Property Count() As Integer
8487             Get
8488                 Return Me.Rows.Count
8489             End Get
8490         End Property
8491         
8492         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8493          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8494         Public Default ReadOnly Property Item(ByVal index As Integer) As FeeRow
8495             Get
8496                 Return CType(Me.Rows(index),FeeRow)
8497             End Get
8498         End Property
8499         
8500         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8501         Public Event FeeRowChanging As FeeRowChangeEventHandler
8502         
8503         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8504         Public Event FeeRowChanged As FeeRowChangeEventHandler
8505         
8506         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8507         Public Event FeeRowDeleting As FeeRowChangeEventHandler
8508         
8509         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8510         Public Event FeeRowDeleted As FeeRowChangeEventHandler
8511         
8512         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8513          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8514         Public Overloads Sub AddFeeRow(ByVal row As FeeRow)
8515             Me.Rows.Add(row)
8516         End Sub
8517         
8518         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8519          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8520         Public Overloads Function AddFeeRow(ByVal Feename As String) As FeeRow
8521             Dim rowFeeRow As FeeRow = CType(Me.NewRow,FeeRow)
8522             Dim columnValuesArray() As Object = New Object() {Feename}
8523             rowFeeRow.ItemArray = columnValuesArray
8524             Me.Rows.Add(rowFeeRow)
8525             Return rowFeeRow
8526         End Function
8527         
8528         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8529          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8530         Public Function FindByFeename(ByVal Feename As String) As FeeRow
8531             Return CType(Me.Rows.Find(New Object() {Feename}),FeeRow)
8532         End Function
8533         
8534         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8535          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8536         Public Overrides Function Clone() As Global.System.Data.DataTable
8537             Dim cln As FeeDataTable = CType(MyBase.Clone,FeeDataTable)
8538             cln.InitVars
8539             Return cln
8540         End Function
8541         
8542         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8543          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8544         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
8545             Return New FeeDataTable()
8546         End Function
8547         
8548         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8549          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8550         Friend Sub InitVars()
8551             Me.columnFeename = MyBase.Columns("Feename")
8552         End Sub
8553         
8554         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8555          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8556         Private Sub InitClass()
8557             Me.columnFeename = New Global.System.Data.DataColumn("Feename", GetType(String), Nothing, Global.System.Data.MappingType.Element)
8558             MyBase.Columns.Add(Me.columnFeename)
8559             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnFeename}, true))
8560             Me.columnFeename.AllowDBNull = false
8561             Me.columnFeename.Unique = true
8562             Me.columnFeename.MaxLength = 250
8563         End Sub
8564         
8565         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8566          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8567         Public Function NewFeeRow() As FeeRow
8568             Return CType(Me.NewRow,FeeRow)
8569         End Function
8570         
8571         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8572          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8573         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
8574             Return New FeeRow(builder)
8575         End Function
8576         
8577         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8578          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8579         Protected Overrides Function GetRowType() As Global.System.Type
8580             Return GetType(FeeRow)
8581         End Function
8582         
8583         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8584          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8585         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
8586             MyBase.OnRowChanged(e)
8587             If (Not (Me.FeeRowChangedEvent) Is Nothing) Then
8588                 RaiseEvent FeeRowChanged(Me, New FeeRowChangeEvent(CType(e.Row,FeeRow), e.Action))
8589             End If
8590         End Sub
8591         
8592         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8593          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8594         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
8595             MyBase.OnRowChanging(e)
8596             If (Not (Me.FeeRowChangingEvent) Is Nothing) Then
8597                 RaiseEvent FeeRowChanging(Me, New FeeRowChangeEvent(CType(e.Row,FeeRow), e.Action))
8598             End If
8599         End Sub
8600         
8601         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8602          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8603         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
8604             MyBase.OnRowDeleted(e)
8605             If (Not (Me.FeeRowDeletedEvent) Is Nothing) Then
8606                 RaiseEvent FeeRowDeleted(Me, New FeeRowChangeEvent(CType(e.Row,FeeRow), e.Action))
8607             End If
8608         End Sub
8609         
8610         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8611          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8612         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
8613             MyBase.OnRowDeleting(e)
8614             If (Not (Me.FeeRowDeletingEvent) Is Nothing) Then
8615                 RaiseEvent FeeRowDeleting(Me, New FeeRowChangeEvent(CType(e.Row,FeeRow), e.Action))
8616             End If
8617         End Sub
8618         
8619         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8620          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8621         Public Sub RemoveFeeRow(ByVal row As FeeRow)
8622             Me.Rows.Remove(row)
8623         End Sub
8624         
8625         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8626          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8627         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
8628             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
8629             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
8630             Dim ds As ERPS_DBDataSet1 = New ERPS_DBDataSet1()
8631             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
8632             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
8633             any1.MinOccurs = New Decimal(0)
8634             any1.MaxOccurs = Decimal.MaxValue
8635             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
8636             sequence.Items.Add(any1)
8637             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
8638             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
8639             any2.MinOccurs = New Decimal(1)
8640             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
8641             sequence.Items.Add(any2)
8642             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
8643             attribute1.Name = "namespace"
8644             attribute1.FixedValue = ds.Namespace
8645             type.Attributes.Add(attribute1)
8646             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
8647             attribute2.Name = "tableTypeName"
8648             attribute2.FixedValue = "FeeDataTable"
8649             type.Attributes.Add(attribute2)
8650             type.Particle = sequence
8651             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
8652             If xs.Contains(dsSchema.TargetNamespace) Then
8653                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
8654                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
8655                 Try
8656                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
8657                     dsSchema.Write(s1)
8658                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
8659                     Do While schemas.MoveNext
8660                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
8661                         s2.SetLength(0)
8662                         schema.Write(s2)
8663                         If (s1.Length = s2.Length) Then
8664                             s1.Position = 0
8665                             s2.Position = 0
8666                             
8667                             Do While ((s1.Position <> s1.Length) _
8668                                         AndAlso (s1.ReadByte = s2.ReadByte))
8669                                 
8670                                 
8671                             Loop
8672                             If (s1.Position = s1.Length) Then
8673                                 Return type
8674                             End If
8675                         End If
8676                         
8677                     Loop
8678                 Finally
8679                     If (Not (s1) Is Nothing) Then
8680                         s1.Close
8681                     End If
8682                     If (Not (s2) Is Nothing) Then
8683                         s2.Close
8684                     End If
8685                 End Try
8686             End If
8687             xs.Add(dsSchema)
8688             Return type
8689         End Function
8690     End Class
8691     
8692     '''<summary>
8693     '''Represents the strongly named DataTable class.
8694     '''</summary>
8695     <Global.System.Serializable(), _
8696      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
8697     Partial Public Class HostelerDataTable
8698         Inherits Global.System.Data.TypedTableBase(Of HostelerRow)
8699         
8700         Private columnH_Id As Global.System.Data.DataColumn
8701         
8702         Private columnAdmissionNo As Global.System.Data.DataColumn
8703         
8704         Private columnHostelID As Global.System.Data.DataColumn
8705         
8706         Private columnJoiningDate As Global.System.Data.DataColumn
8707         
8708         Private columnStatus As Global.System.Data.DataColumn
8709         
8710         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8711          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8712         Public Sub New()
8713             MyBase.New
8714             Me.TableName = "Hosteler"
8715             Me.BeginInit
8716             Me.InitClass
8717             Me.EndInit
8718         End Sub
8719         
8720         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8721          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8722         Friend Sub New(ByVal table As Global.System.Data.DataTable)
8723             MyBase.New
8724             Me.TableName = table.TableName
8725             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
8726                 Me.CaseSensitive = table.CaseSensitive
8727             End If
8728             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
8729                 Me.Locale = table.Locale
8730             End If
8731             If (table.Namespace <> table.DataSet.Namespace) Then
8732                 Me.Namespace = table.Namespace
8733             End If
8734             Me.Prefix = table.Prefix
8735             Me.MinimumCapacity = table.MinimumCapacity
8736         End Sub
8737         
8738         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8739          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8740         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
8741             MyBase.New(info, context)
8742             Me.InitVars
8743         End Sub
8744         
8745         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8746          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8747         Public ReadOnly Property H_IdColumn() As Global.System.Data.DataColumn
8748             Get
8749                 Return Me.columnH_Id
8750             End Get
8751         End Property
8752         
8753         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8754          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8755         Public ReadOnly Property AdmissionNoColumn() As Global.System.Data.DataColumn
8756             Get
8757                 Return Me.columnAdmissionNo
8758             End Get
8759         End Property
8760         
8761         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8762          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8763         Public ReadOnly Property HostelIDColumn() As Global.System.Data.DataColumn
8764             Get
8765                 Return Me.columnHostelID
8766             End Get
8767         End Property
8768         
8769         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8770          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8771         Public ReadOnly Property JoiningDateColumn() As Global.System.Data.DataColumn
8772             Get
8773                 Return Me.columnJoiningDate
8774             End Get
8775         End Property
8776         
8777         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8778          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8779         Public ReadOnly Property StatusColumn() As Global.System.Data.DataColumn
8780             Get
8781                 Return Me.columnStatus
8782             End Get
8783         End Property
8784         
8785         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8786          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
8787          Global.System.ComponentModel.Browsable(false)> _
8788         Public ReadOnly Property Count() As Integer
8789             Get
8790                 Return Me.Rows.Count
8791             End Get
8792         End Property
8793         
8794         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8795          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8796         Public Default ReadOnly Property Item(ByVal index As Integer) As HostelerRow
8797             Get
8798                 Return CType(Me.Rows(index),HostelerRow)
8799             End Get
8800         End Property
8801         
8802         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8803         Public Event HostelerRowChanging As HostelerRowChangeEventHandler
8804         
8805         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8806         Public Event HostelerRowChanged As HostelerRowChangeEventHandler
8807         
8808         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8809         Public Event HostelerRowDeleting As HostelerRowChangeEventHandler
8810         
8811         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8812         Public Event HostelerRowDeleted As HostelerRowChangeEventHandler
8813         
8814         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8815          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8816         Public Overloads Sub AddHostelerRow(ByVal row As HostelerRow)
8817             Me.Rows.Add(row)
8818         End Sub
8819         
8820         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8821          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8822         Public Overloads Function AddHostelerRow(ByVal H_Id As Integer, ByVal parentStudentRowByFK_Hosteler_Student As StudentRow, ByVal parentHostelInfoRowByFK_Hosteler_HostelInfo As HostelInfoRow, ByVal JoiningDate As Date, ByVal Status As String) As HostelerRow
8823             Dim rowHostelerRow As HostelerRow = CType(Me.NewRow,HostelerRow)
8824             Dim columnValuesArray() As Object = New Object() {H_Id, Nothing, Nothing, JoiningDate, Status}
8825             If (Not (parentStudentRowByFK_Hosteler_Student) Is Nothing) Then
8826                 columnValuesArray(1) = parentStudentRowByFK_Hosteler_Student(0)
8827             End If
8828             If (Not (parentHostelInfoRowByFK_Hosteler_HostelInfo) Is Nothing) Then
8829                 columnValuesArray(2) = parentHostelInfoRowByFK_Hosteler_HostelInfo(0)
8830             End If
8831             rowHostelerRow.ItemArray = columnValuesArray
8832             Me.Rows.Add(rowHostelerRow)
8833             Return rowHostelerRow
8834         End Function
8835         
8836         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8837          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8838         Public Function FindByH_Id(ByVal H_Id As Integer) As HostelerRow
8839             Return CType(Me.Rows.Find(New Object() {H_Id}),HostelerRow)
8840         End Function
8841         
8842         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8843          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8844         Public Overrides Function Clone() As Global.System.Data.DataTable
8845             Dim cln As HostelerDataTable = CType(MyBase.Clone,HostelerDataTable)
8846             cln.InitVars
8847             Return cln
8848         End Function
8849         
8850         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8851          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8852         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
8853             Return New HostelerDataTable()
8854         End Function
8855         
8856         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8857          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8858         Friend Sub InitVars()
8859             Me.columnH_Id = MyBase.Columns("H_Id")
8860             Me.columnAdmissionNo = MyBase.Columns("AdmissionNo")
8861             Me.columnHostelID = MyBase.Columns("HostelID")
8862             Me.columnJoiningDate = MyBase.Columns("JoiningDate")
8863             Me.columnStatus = MyBase.Columns("Status")
8864         End Sub
8865         
8866         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8867          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8868         Private Sub InitClass()
8869             Me.columnH_Id = New Global.System.Data.DataColumn("H_Id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
8870             MyBase.Columns.Add(Me.columnH_Id)
8871             Me.columnAdmissionNo = New Global.System.Data.DataColumn("AdmissionNo", GetType(String), Nothing, Global.System.Data.MappingType.Element)
8872             MyBase.Columns.Add(Me.columnAdmissionNo)
8873             Me.columnHostelID = New Global.System.Data.DataColumn("HostelID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
8874             MyBase.Columns.Add(Me.columnHostelID)
8875             Me.columnJoiningDate = New Global.System.Data.DataColumn("JoiningDate", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
8876             MyBase.Columns.Add(Me.columnJoiningDate)
8877             Me.columnStatus = New Global.System.Data.DataColumn("Status", GetType(String), Nothing, Global.System.Data.MappingType.Element)
8878             MyBase.Columns.Add(Me.columnStatus)
8879             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnH_Id}, true))
8880             Me.columnH_Id.AllowDBNull = false
8881             Me.columnH_Id.Unique = true
8882             Me.columnAdmissionNo.AllowDBNull = false
8883             Me.columnAdmissionNo.MaxLength = 15
8884             Me.columnHostelID.AllowDBNull = false
8885             Me.columnJoiningDate.AllowDBNull = false
8886             Me.columnStatus.AllowDBNull = false
8887             Me.columnStatus.MaxLength = 10
8888         End Sub
8889         
8890         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8891          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8892         Public Function NewHostelerRow() As HostelerRow
8893             Return CType(Me.NewRow,HostelerRow)
8894         End Function
8895         
8896         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8897          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8898         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
8899             Return New HostelerRow(builder)
8900         End Function
8901         
8902         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8903          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8904         Protected Overrides Function GetRowType() As Global.System.Type
8905             Return GetType(HostelerRow)
8906         End Function
8907         
8908         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8909          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8910         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
8911             MyBase.OnRowChanged(e)
8912             If (Not (Me.HostelerRowChangedEvent) Is Nothing) Then
8913                 RaiseEvent HostelerRowChanged(Me, New HostelerRowChangeEvent(CType(e.Row,HostelerRow), e.Action))
8914             End If
8915         End Sub
8916         
8917         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8918          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8919         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
8920             MyBase.OnRowChanging(e)
8921             If (Not (Me.HostelerRowChangingEvent) Is Nothing) Then
8922                 RaiseEvent HostelerRowChanging(Me, New HostelerRowChangeEvent(CType(e.Row,HostelerRow), e.Action))
8923             End If
8924         End Sub
8925         
8926         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8927          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8928         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
8929             MyBase.OnRowDeleted(e)
8930             If (Not (Me.HostelerRowDeletedEvent) Is Nothing) Then
8931                 RaiseEvent HostelerRowDeleted(Me, New HostelerRowChangeEvent(CType(e.Row,HostelerRow), e.Action))
8932             End If
8933         End Sub
8934         
8935         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8936          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8937         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
8938             MyBase.OnRowDeleting(e)
8939             If (Not (Me.HostelerRowDeletingEvent) Is Nothing) Then
8940                 RaiseEvent HostelerRowDeleting(Me, New HostelerRowChangeEvent(CType(e.Row,HostelerRow), e.Action))
8941             End If
8942         End Sub
8943         
8944         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8945          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8946         Public Sub RemoveHostelerRow(ByVal row As HostelerRow)
8947             Me.Rows.Remove(row)
8948         End Sub
8949         
8950         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8951          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8952         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
8953             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
8954             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
8955             Dim ds As ERPS_DBDataSet1 = New ERPS_DBDataSet1()
8956             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
8957             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
8958             any1.MinOccurs = New Decimal(0)
8959             any1.MaxOccurs = Decimal.MaxValue
8960             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
8961             sequence.Items.Add(any1)
8962             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
8963             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
8964             any2.MinOccurs = New Decimal(1)
8965             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
8966             sequence.Items.Add(any2)
8967             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
8968             attribute1.Name = "namespace"
8969             attribute1.FixedValue = ds.Namespace
8970             type.Attributes.Add(attribute1)
8971             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
8972             attribute2.Name = "tableTypeName"
8973             attribute2.FixedValue = "HostelerDataTable"
8974             type.Attributes.Add(attribute2)
8975             type.Particle = sequence
8976             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
8977             If xs.Contains(dsSchema.TargetNamespace) Then
8978                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
8979                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
8980                 Try
8981                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
8982                     dsSchema.Write(s1)
8983                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
8984                     Do While schemas.MoveNext
8985                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
8986                         s2.SetLength(0)
8987                         schema.Write(s2)
8988                         If (s1.Length = s2.Length) Then
8989                             s1.Position = 0
8990                             s2.Position = 0
8991                             
8992                             Do While ((s1.Position <> s1.Length) _
8993                                         AndAlso (s1.ReadByte = s2.ReadByte))
8994                                 
8995                                 
8996                             Loop
8997                             If (s1.Position = s1.Length) Then
8998                                 Return type
8999                             End If
9000                         End If
9001                         
9002                     Loop
9003                 Finally
9004                     If (Not (s1) Is Nothing) Then
9005                         s1.Close
9006                     End If
9007                     If (Not (s2) Is Nothing) Then
9008                         s2.Close
9009                     End If
9010                 End Try
9011             End If
9012             xs.Add(dsSchema)
9013             Return type
9014         End Function
9015     End Class
9016     
9017     '''<summary>
9018     '''Represents the strongly named DataTable class.
9019     '''</summary>
9020     <Global.System.Serializable(), _
9021      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
9022     Partial Public Class HostelFeePaymentDataTable
9023         Inherits Global.System.Data.TypedTableBase(Of HostelFeePaymentRow)
9024         
9025         Private columnId As Global.System.Data.DataColumn
9026         
9027         Private columnHFP_Id As Global.System.Data.DataColumn
9028         
9029         Private columnPaymentID As Global.System.Data.DataColumn
9030         
9031         Private columnHostelerID As Global.System.Data.DataColumn
9032         
9033         Private columnSession As Global.System.Data.DataColumn
9034         
9035         Private columnInstallment As Global.System.Data.DataColumn
9036         
9037         Private columnTotalFee As Global.System.Data.DataColumn
9038         
9039         Private columnDiscountPer As Global.System.Data.DataColumn
9040         
9041         Private columnDiscountAmt As Global.System.Data.DataColumn
9042         
9043         Private columnPreviousDue As Global.System.Data.DataColumn
9044         
9045         Private columnFine As Global.System.Data.DataColumn
9046         
9047         Private columnGrandTotal As Global.System.Data.DataColumn
9048         
9049         Private columnTotalPaid As Global.System.Data.DataColumn
9050         
9051         Private columnModeOfPayment As Global.System.Data.DataColumn
9052         
9053         Private columnPaymentModeDetails As Global.System.Data.DataColumn
9054         
9055         Private columnPaymentdate As Global.System.Data.DataColumn
9056         
9057         Private columnPaymentDue As Global.System.Data.DataColumn
9058         
9059         Private columnClassType As Global.System.Data.DataColumn
9060         
9061         Private columnSchoolType As Global.System.Data.DataColumn
9062         
9063         Private columnClass As Global.System.Data.DataColumn
9064         
9065         Private columnSection As Global.System.Data.DataColumn
9066         
9067         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9068          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9069         Public Sub New()
9070             MyBase.New
9071             Me.TableName = "HostelFeePayment"
9072             Me.BeginInit
9073             Me.InitClass
9074             Me.EndInit
9075         End Sub
9076         
9077         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9078          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9079         Friend Sub New(ByVal table As Global.System.Data.DataTable)
9080             MyBase.New
9081             Me.TableName = table.TableName
9082             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
9083                 Me.CaseSensitive = table.CaseSensitive
9084             End If
9085             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
9086                 Me.Locale = table.Locale
9087             End If
9088             If (table.Namespace <> table.DataSet.Namespace) Then
9089                 Me.Namespace = table.Namespace
9090             End If
9091             Me.Prefix = table.Prefix
9092             Me.MinimumCapacity = table.MinimumCapacity
9093         End Sub
9094         
9095         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9096          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9097         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
9098             MyBase.New(info, context)
9099             Me.InitVars
9100         End Sub
9101         
9102         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9103          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9104         Public ReadOnly Property IdColumn() As Global.System.Data.DataColumn
9105             Get
9106                 Return Me.columnId
9107             End Get
9108         End Property
9109         
9110         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9111          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9112         Public ReadOnly Property HFP_IdColumn() As Global.System.Data.DataColumn
9113             Get
9114                 Return Me.columnHFP_Id
9115             End Get
9116         End Property
9117         
9118         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9119          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9120         Public ReadOnly Property PaymentIDColumn() As Global.System.Data.DataColumn
9121             Get
9122                 Return Me.columnPaymentID
9123             End Get
9124         End Property
9125         
9126         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9127          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9128         Public ReadOnly Property HostelerIDColumn() As Global.System.Data.DataColumn
9129             Get
9130                 Return Me.columnHostelerID
9131             End Get
9132         End Property
9133         
9134         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9135          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9136         Public ReadOnly Property SessionColumn() As Global.System.Data.DataColumn
9137             Get
9138                 Return Me.columnSession
9139             End Get
9140         End Property
9141         
9142         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9143          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9144         Public ReadOnly Property InstallmentColumn() As Global.System.Data.DataColumn
9145             Get
9146                 Return Me.columnInstallment
9147             End Get
9148         End Property
9149         
9150         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9151          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9152         Public ReadOnly Property TotalFeeColumn() As Global.System.Data.DataColumn
9153             Get
9154                 Return Me.columnTotalFee
9155             End Get
9156         End Property
9157         
9158         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9159          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9160         Public ReadOnly Property DiscountPerColumn() As Global.System.Data.DataColumn
9161             Get
9162                 Return Me.columnDiscountPer
9163             End Get
9164         End Property
9165         
9166         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9167          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9168         Public ReadOnly Property DiscountAmtColumn() As Global.System.Data.DataColumn
9169             Get
9170                 Return Me.columnDiscountAmt
9171             End Get
9172         End Property
9173         
9174         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9175          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9176         Public ReadOnly Property PreviousDueColumn() As Global.System.Data.DataColumn
9177             Get
9178                 Return Me.columnPreviousDue
9179             End Get
9180         End Property
9181         
9182         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9183          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9184         Public ReadOnly Property FineColumn() As Global.System.Data.DataColumn
9185             Get
9186                 Return Me.columnFine
9187             End Get
9188         End Property
9189         
9190         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9191          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9192         Public ReadOnly Property GrandTotalColumn() As Global.System.Data.DataColumn
9193             Get
9194                 Return Me.columnGrandTotal
9195             End Get
9196         End Property
9197         
9198         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9199          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9200         Public ReadOnly Property TotalPaidColumn() As Global.System.Data.DataColumn
9201             Get
9202                 Return Me.columnTotalPaid
9203             End Get
9204         End Property
9205         
9206         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9207          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9208         Public ReadOnly Property ModeOfPaymentColumn() As Global.System.Data.DataColumn
9209             Get
9210                 Return Me.columnModeOfPayment
9211             End Get
9212         End Property
9213         
9214         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9215          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9216         Public ReadOnly Property PaymentModeDetailsColumn() As Global.System.Data.DataColumn
9217             Get
9218                 Return Me.columnPaymentModeDetails
9219             End Get
9220         End Property
9221         
9222         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9223          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9224         Public ReadOnly Property PaymentdateColumn() As Global.System.Data.DataColumn
9225             Get
9226                 Return Me.columnPaymentdate
9227             End Get
9228         End Property
9229         
9230         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9231          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9232         Public ReadOnly Property PaymentDueColumn() As Global.System.Data.DataColumn
9233             Get
9234                 Return Me.columnPaymentDue
9235             End Get
9236         End Property
9237         
9238         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9239          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9240         Public ReadOnly Property ClassTypeColumn() As Global.System.Data.DataColumn
9241             Get
9242                 Return Me.columnClassType
9243             End Get
9244         End Property
9245         
9246         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9247          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9248         Public ReadOnly Property SchoolTypeColumn() As Global.System.Data.DataColumn
9249             Get
9250                 Return Me.columnSchoolType
9251             End Get
9252         End Property
9253         
9254         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9255          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9256         Public ReadOnly Property ClassColumn() As Global.System.Data.DataColumn
9257             Get
9258                 Return Me.columnClass
9259             End Get
9260         End Property
9261         
9262         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9263          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9264         Public ReadOnly Property SectionColumn() As Global.System.Data.DataColumn
9265             Get
9266                 Return Me.columnSection
9267             End Get
9268         End Property
9269         
9270         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9271          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
9272          Global.System.ComponentModel.Browsable(false)> _
9273         Public ReadOnly Property Count() As Integer
9274             Get
9275                 Return Me.Rows.Count
9276             End Get
9277         End Property
9278         
9279         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9280          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9281         Public Default ReadOnly Property Item(ByVal index As Integer) As HostelFeePaymentRow
9282             Get
9283                 Return CType(Me.Rows(index),HostelFeePaymentRow)
9284             End Get
9285         End Property
9286         
9287         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9288         Public Event HostelFeePaymentRowChanging As HostelFeePaymentRowChangeEventHandler
9289         
9290         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9291         Public Event HostelFeePaymentRowChanged As HostelFeePaymentRowChangeEventHandler
9292         
9293         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9294         Public Event HostelFeePaymentRowDeleting As HostelFeePaymentRowChangeEventHandler
9295         
9296         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9297         Public Event HostelFeePaymentRowDeleted As HostelFeePaymentRowChangeEventHandler
9298         
9299         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9300          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9301         Public Overloads Sub AddHostelFeePaymentRow(ByVal row As HostelFeePaymentRow)
9302             Me.Rows.Add(row)
9303         End Sub
9304         
9305         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9306          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9307         Public Overloads Function AddHostelFeePaymentRow( _
9308                     ByVal HFP_Id As Integer, _
9309                     ByVal PaymentID As String, _
9310                     ByVal parentHostelerRowByFK_HostelFeePayment_Hosteler As HostelerRow, _
9311                     ByVal Session As String, _
9312                     ByVal Installment As String, _
9313                     ByVal TotalFee As Decimal, _
9314                     ByVal DiscountPer As Decimal, _
9315                     ByVal DiscountAmt As Decimal, _
9316                     ByVal PreviousDue As Decimal, _
9317                     ByVal Fine As Decimal, _
9318                     ByVal GrandTotal As Decimal, _
9319                     ByVal TotalPaid As Decimal, _
9320                     ByVal ModeOfPayment As String, _
9321                     ByVal PaymentModeDetails As String, _
9322                     ByVal Paymentdate As Date, _
9323                     ByVal PaymentDue As Decimal, _
9324                     ByVal ClassType As String, _
9325                     ByVal SchoolType As String, _
9326                     ByVal _Class As String, _
9327                     ByVal Section As String) As HostelFeePaymentRow
9328             Dim rowHostelFeePaymentRow As HostelFeePaymentRow = CType(Me.NewRow,HostelFeePaymentRow)
9329             Dim columnValuesArray() As Object = New Object() {Nothing, HFP_Id, PaymentID, Nothing, Session, Installment, TotalFee, DiscountPer, DiscountAmt, PreviousDue, Fine, GrandTotal, TotalPaid, ModeOfPayment, PaymentModeDetails, Paymentdate, PaymentDue, ClassType, SchoolType, _Class, Section}
9330             If (Not (parentHostelerRowByFK_HostelFeePayment_Hosteler) Is Nothing) Then
9331                 columnValuesArray(3) = parentHostelerRowByFK_HostelFeePayment_Hosteler(0)
9332             End If
9333             rowHostelFeePaymentRow.ItemArray = columnValuesArray
9334             Me.Rows.Add(rowHostelFeePaymentRow)
9335             Return rowHostelFeePaymentRow
9336         End Function
9337         
9338         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9339          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9340         Public Function FindById(ByVal Id As Integer) As HostelFeePaymentRow
9341             Return CType(Me.Rows.Find(New Object() {Id}),HostelFeePaymentRow)
9342         End Function
9343         
9344         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9345          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9346         Public Overrides Function Clone() As Global.System.Data.DataTable
9347             Dim cln As HostelFeePaymentDataTable = CType(MyBase.Clone,HostelFeePaymentDataTable)
9348             cln.InitVars
9349             Return cln
9350         End Function
9351         
9352         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9353          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9354         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
9355             Return New HostelFeePaymentDataTable()
9356         End Function
9357         
9358         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9359          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9360         Friend Sub InitVars()
9361             Me.columnId = MyBase.Columns("Id")
9362             Me.columnHFP_Id = MyBase.Columns("HFP_Id")
9363             Me.columnPaymentID = MyBase.Columns("PaymentID")
9364             Me.columnHostelerID = MyBase.Columns("HostelerID")
9365             Me.columnSession = MyBase.Columns("Session")
9366             Me.columnInstallment = MyBase.Columns("Installment")
9367             Me.columnTotalFee = MyBase.Columns("TotalFee")
9368             Me.columnDiscountPer = MyBase.Columns("DiscountPer")
9369             Me.columnDiscountAmt = MyBase.Columns("DiscountAmt")
9370             Me.columnPreviousDue = MyBase.Columns("PreviousDue")
9371             Me.columnFine = MyBase.Columns("Fine")
9372             Me.columnGrandTotal = MyBase.Columns("GrandTotal")
9373             Me.columnTotalPaid = MyBase.Columns("TotalPaid")
9374             Me.columnModeOfPayment = MyBase.Columns("ModeOfPayment")
9375             Me.columnPaymentModeDetails = MyBase.Columns("PaymentModeDetails")
9376             Me.columnPaymentdate = MyBase.Columns("Paymentdate")
9377             Me.columnPaymentDue = MyBase.Columns("PaymentDue")
9378             Me.columnClassType = MyBase.Columns("ClassType")
9379             Me.columnSchoolType = MyBase.Columns("SchoolType")
9380             Me.columnClass = MyBase.Columns("Class")
9381             Me.columnSection = MyBase.Columns("Section")
9382         End Sub
9383         
9384         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9385          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9386         Private Sub InitClass()
9387             Me.columnId = New Global.System.Data.DataColumn("Id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
9388             MyBase.Columns.Add(Me.columnId)
9389             Me.columnHFP_Id = New Global.System.Data.DataColumn("HFP_Id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
9390             MyBase.Columns.Add(Me.columnHFP_Id)
9391             Me.columnPaymentID = New Global.System.Data.DataColumn("PaymentID", GetType(String), Nothing, Global.System.Data.MappingType.Element)
9392             MyBase.Columns.Add(Me.columnPaymentID)
9393             Me.columnHostelerID = New Global.System.Data.DataColumn("HostelerID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
9394             MyBase.Columns.Add(Me.columnHostelerID)
9395             Me.columnSession = New Global.System.Data.DataColumn("Session", GetType(String), Nothing, Global.System.Data.MappingType.Element)
9396             MyBase.Columns.Add(Me.columnSession)
9397             Me.columnInstallment = New Global.System.Data.DataColumn("Installment", GetType(String), Nothing, Global.System.Data.MappingType.Element)
9398             MyBase.Columns.Add(Me.columnInstallment)
9399             Me.columnTotalFee = New Global.System.Data.DataColumn("TotalFee", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
9400             MyBase.Columns.Add(Me.columnTotalFee)
9401             Me.columnDiscountPer = New Global.System.Data.DataColumn("DiscountPer", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
9402             MyBase.Columns.Add(Me.columnDiscountPer)
9403             Me.columnDiscountAmt = New Global.System.Data.DataColumn("DiscountAmt", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
9404             MyBase.Columns.Add(Me.columnDiscountAmt)
9405             Me.columnPreviousDue = New Global.System.Data.DataColumn("PreviousDue", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
9406             MyBase.Columns.Add(Me.columnPreviousDue)
9407             Me.columnFine = New Global.System.Data.DataColumn("Fine", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
9408             MyBase.Columns.Add(Me.columnFine)
9409             Me.columnGrandTotal = New Global.System.Data.DataColumn("GrandTotal", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
9410             MyBase.Columns.Add(Me.columnGrandTotal)
9411             Me.columnTotalPaid = New Global.System.Data.DataColumn("TotalPaid", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
9412             MyBase.Columns.Add(Me.columnTotalPaid)
9413             Me.columnModeOfPayment = New Global.System.Data.DataColumn("ModeOfPayment", GetType(String), Nothing, Global.System.Data.MappingType.Element)
9414             MyBase.Columns.Add(Me.columnModeOfPayment)
9415             Me.columnPaymentModeDetails = New Global.System.Data.DataColumn("PaymentModeDetails", GetType(String), Nothing, Global.System.Data.MappingType.Element)
9416             MyBase.Columns.Add(Me.columnPaymentModeDetails)
9417             Me.columnPaymentdate = New Global.System.Data.DataColumn("Paymentdate", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
9418             MyBase.Columns.Add(Me.columnPaymentdate)
9419             Me.columnPaymentDue = New Global.System.Data.DataColumn("PaymentDue", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
9420             MyBase.Columns.Add(Me.columnPaymentDue)
9421             Me.columnClassType = New Global.System.Data.DataColumn("ClassType", GetType(String), Nothing, Global.System.Data.MappingType.Element)
9422             MyBase.Columns.Add(Me.columnClassType)
9423             Me.columnSchoolType = New Global.System.Data.DataColumn("SchoolType", GetType(String), Nothing, Global.System.Data.MappingType.Element)
9424             MyBase.Columns.Add(Me.columnSchoolType)
9425             Me.columnClass = New Global.System.Data.DataColumn("Class", GetType(String), Nothing, Global.System.Data.MappingType.Element)
9426             Me.columnClass.ExtendedProperties.Add("Generator_ColumnPropNameInTable", "ClassColumn")
9427             Me.columnClass.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "columnClass")
9428             Me.columnClass.ExtendedProperties.Add("Generator_UserColumnName", "Class")
9429             MyBase.Columns.Add(Me.columnClass)
9430             Me.columnSection = New Global.System.Data.DataColumn("Section", GetType(String), Nothing, Global.System.Data.MappingType.Element)
9431             MyBase.Columns.Add(Me.columnSection)
9432             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnId}, true))
9433             Me.columnId.AutoIncrement = true
9434             Me.columnId.AutoIncrementSeed = -1
9435             Me.columnId.AutoIncrementStep = -1
9436             Me.columnId.AllowDBNull = false
9437             Me.columnId.ReadOnly = true
9438             Me.columnId.Unique = true
9439             Me.columnHFP_Id.AllowDBNull = false
9440             Me.columnPaymentID.AllowDBNull = false
9441             Me.columnPaymentID.MaxLength = 30
9442             Me.columnHostelerID.AllowDBNull = false
9443             Me.columnSession.AllowDBNull = false
9444             Me.columnSession.MaxLength = 15
9445             Me.columnInstallment.AllowDBNull = false
9446             Me.columnInstallment.MaxLength = 20
9447             Me.columnTotalFee.AllowDBNull = false
9448             Me.columnDiscountPer.AllowDBNull = false
9449             Me.columnDiscountAmt.AllowDBNull = false
9450             Me.columnPreviousDue.AllowDBNull = false
9451             Me.columnFine.AllowDBNull = false
9452             Me.columnGrandTotal.AllowDBNull = false
9453             Me.columnTotalPaid.AllowDBNull = false
9454             Me.columnModeOfPayment.AllowDBNull = false
9455             Me.columnModeOfPayment.MaxLength = 100
9456             Me.columnPaymentModeDetails.MaxLength = 250
9457             Me.columnPaymentdate.AllowDBNull = false
9458             Me.columnPaymentDue.AllowDBNull = false
9459             Me.columnClassType.AllowDBNull = false
9460             Me.columnClassType.MaxLength = 150
9461             Me.columnSchoolType.AllowDBNull = false
9462             Me.columnSchoolType.MaxLength = 150
9463             Me.columnClass.AllowDBNull = false
9464             Me.columnClass.MaxLength = 100
9465             Me.columnSection.AllowDBNull = false
9466             Me.columnSection.MaxLength = 15
9467         End Sub
9468         
9469         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9470          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9471         Public Function NewHostelFeePaymentRow() As HostelFeePaymentRow
9472             Return CType(Me.NewRow,HostelFeePaymentRow)
9473         End Function
9474         
9475         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9476          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9477         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
9478             Return New HostelFeePaymentRow(builder)
9479         End Function
9480         
9481         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9482          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9483         Protected Overrides Function GetRowType() As Global.System.Type
9484             Return GetType(HostelFeePaymentRow)
9485         End Function
9486         
9487         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9488          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9489         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
9490             MyBase.OnRowChanged(e)
9491             If (Not (Me.HostelFeePaymentRowChangedEvent) Is Nothing) Then
9492                 RaiseEvent HostelFeePaymentRowChanged(Me, New HostelFeePaymentRowChangeEvent(CType(e.Row,HostelFeePaymentRow), e.Action))
9493             End If
9494         End Sub
9495         
9496         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9497          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9498         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
9499             MyBase.OnRowChanging(e)
9500             If (Not (Me.HostelFeePaymentRowChangingEvent) Is Nothing) Then
9501                 RaiseEvent HostelFeePaymentRowChanging(Me, New HostelFeePaymentRowChangeEvent(CType(e.Row,HostelFeePaymentRow), e.Action))
9502             End If
9503         End Sub
9504         
9505         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9506          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9507         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
9508             MyBase.OnRowDeleted(e)
9509             If (Not (Me.HostelFeePaymentRowDeletedEvent) Is Nothing) Then
9510                 RaiseEvent HostelFeePaymentRowDeleted(Me, New HostelFeePaymentRowChangeEvent(CType(e.Row,HostelFeePaymentRow), e.Action))
9511             End If
9512         End Sub
9513         
9514         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9515          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9516         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
9517             MyBase.OnRowDeleting(e)
9518             If (Not (Me.HostelFeePaymentRowDeletingEvent) Is Nothing) Then
9519                 RaiseEvent HostelFeePaymentRowDeleting(Me, New HostelFeePaymentRowChangeEvent(CType(e.Row,HostelFeePaymentRow), e.Action))
9520             End If
9521         End Sub
9522         
9523         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9524          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9525         Public Sub RemoveHostelFeePaymentRow(ByVal row As HostelFeePaymentRow)
9526             Me.Rows.Remove(row)
9527         End Sub
9528         
9529         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9530          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9531         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
9532             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
9533             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
9534             Dim ds As ERPS_DBDataSet1 = New ERPS_DBDataSet1()
9535             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
9536             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
9537             any1.MinOccurs = New Decimal(0)
9538             any1.MaxOccurs = Decimal.MaxValue
9539             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
9540             sequence.Items.Add(any1)
9541             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
9542             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
9543             any2.MinOccurs = New Decimal(1)
9544             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
9545             sequence.Items.Add(any2)
9546             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
9547             attribute1.Name = "namespace"
9548             attribute1.FixedValue = ds.Namespace
9549             type.Attributes.Add(attribute1)
9550             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
9551             attribute2.Name = "tableTypeName"
9552             attribute2.FixedValue = "HostelFeePaymentDataTable"
9553             type.Attributes.Add(attribute2)
9554             type.Particle = sequence
9555             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
9556             If xs.Contains(dsSchema.TargetNamespace) Then
9557                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
9558                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
9559                 Try
9560                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
9561                     dsSchema.Write(s1)
9562                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
9563                     Do While schemas.MoveNext
9564                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
9565                         s2.SetLength(0)
9566                         schema.Write(s2)
9567                         If (s1.Length = s2.Length) Then
9568                             s1.Position = 0
9569                             s2.Position = 0
9570                             
9571                             Do While ((s1.Position <> s1.Length) _
9572                                         AndAlso (s1.ReadByte = s2.ReadByte))
9573                                 
9574                                 
9575                             Loop
9576                             If (s1.Position = s1.Length) Then
9577                                 Return type
9578                             End If
9579                         End If
9580                         
9581                     Loop
9582                 Finally
9583                     If (Not (s1) Is Nothing) Then
9584                         s1.Close
9585                     End If
9586                     If (Not (s2) Is Nothing) Then
9587                         s2.Close
9588                     End If
9589                 End Try
9590             End If
9591             xs.Add(dsSchema)
9592             Return type
9593         End Function
9594     End Class
9595     
9596     '''<summary>
9597     '''Represents the strongly named DataTable class.
9598     '''</summary>
9599     <Global.System.Serializable(), _
9600      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
9601     Partial Public Class HostelInfoDataTable
9602         Inherits Global.System.Data.TypedTableBase(Of HostelInfoRow)
9603         
9604         Private columnHI_Id As Global.System.Data.DataColumn
9605         
9606         Private columnHostelname As Global.System.Data.DataColumn
9607         
9608         Private columnAddress As Global.System.Data.DataColumn
9609         
9610         Private columnContactNo As Global.System.Data.DataColumn
9611         
9612         Private columnManagedBy As Global.System.Data.DataColumn
9613         
9614         Private columnPerson_ContactNo As Global.System.Data.DataColumn
9615         
9616         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9617          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9618         Public Sub New()
9619             MyBase.New
9620             Me.TableName = "HostelInfo"
9621             Me.BeginInit
9622             Me.InitClass
9623             Me.EndInit
9624         End Sub
9625         
9626         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9627          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9628         Friend Sub New(ByVal table As Global.System.Data.DataTable)
9629             MyBase.New
9630             Me.TableName = table.TableName
9631             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
9632                 Me.CaseSensitive = table.CaseSensitive
9633             End If
9634             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
9635                 Me.Locale = table.Locale
9636             End If
9637             If (table.Namespace <> table.DataSet.Namespace) Then
9638                 Me.Namespace = table.Namespace
9639             End If
9640             Me.Prefix = table.Prefix
9641             Me.MinimumCapacity = table.MinimumCapacity
9642         End Sub
9643         
9644         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9645          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9646         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
9647             MyBase.New(info, context)
9648             Me.InitVars
9649         End Sub
9650         
9651         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9652          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9653         Public ReadOnly Property HI_IdColumn() As Global.System.Data.DataColumn
9654             Get
9655                 Return Me.columnHI_Id
9656             End Get
9657         End Property
9658         
9659         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9660          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9661         Public ReadOnly Property HostelnameColumn() As Global.System.Data.DataColumn
9662             Get
9663                 Return Me.columnHostelname
9664             End Get
9665         End Property
9666         
9667         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9668          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9669         Public ReadOnly Property AddressColumn() As Global.System.Data.DataColumn
9670             Get
9671                 Return Me.columnAddress
9672             End Get
9673         End Property
9674         
9675         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9676          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9677         Public ReadOnly Property ContactNoColumn() As Global.System.Data.DataColumn
9678             Get
9679                 Return Me.columnContactNo
9680             End Get
9681         End Property
9682         
9683         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9684          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9685         Public ReadOnly Property ManagedByColumn() As Global.System.Data.DataColumn
9686             Get
9687                 Return Me.columnManagedBy
9688             End Get
9689         End Property
9690         
9691         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9692          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9693         Public ReadOnly Property Person_ContactNoColumn() As Global.System.Data.DataColumn
9694             Get
9695                 Return Me.columnPerson_ContactNo
9696             End Get
9697         End Property
9698         
9699         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9700          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
9701          Global.System.ComponentModel.Browsable(false)> _
9702         Public ReadOnly Property Count() As Integer
9703             Get
9704                 Return Me.Rows.Count
9705             End Get
9706         End Property
9707         
9708         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9709          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9710         Public Default ReadOnly Property Item(ByVal index As Integer) As HostelInfoRow
9711             Get
9712                 Return CType(Me.Rows(index),HostelInfoRow)
9713             End Get
9714         End Property
9715         
9716         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9717         Public Event HostelInfoRowChanging As HostelInfoRowChangeEventHandler
9718         
9719         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9720         Public Event HostelInfoRowChanged As HostelInfoRowChangeEventHandler
9721         
9722         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9723         Public Event HostelInfoRowDeleting As HostelInfoRowChangeEventHandler
9724         
9725         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9726         Public Event HostelInfoRowDeleted As HostelInfoRowChangeEventHandler
9727         
9728         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9729          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9730         Public Overloads Sub AddHostelInfoRow(ByVal row As HostelInfoRow)
9731             Me.Rows.Add(row)
9732         End Sub
9733         
9734         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9735          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9736         Public Overloads Function AddHostelInfoRow(ByVal HI_Id As Integer, ByVal Hostelname As String, ByVal Address As String, ByVal ContactNo As String, ByVal ManagedBy As String, ByVal Person_ContactNo As String) As HostelInfoRow
9737             Dim rowHostelInfoRow As HostelInfoRow = CType(Me.NewRow,HostelInfoRow)
9738             Dim columnValuesArray() As Object = New Object() {HI_Id, Hostelname, Address, ContactNo, ManagedBy, Person_ContactNo}
9739             rowHostelInfoRow.ItemArray = columnValuesArray
9740             Me.Rows.Add(rowHostelInfoRow)
9741             Return rowHostelInfoRow
9742         End Function
9743         
9744         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9745          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9746         Public Function FindByHI_Id(ByVal HI_Id As Integer) As HostelInfoRow
9747             Return CType(Me.Rows.Find(New Object() {HI_Id}),HostelInfoRow)
9748         End Function
9749         
9750         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9751          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9752         Public Overrides Function Clone() As Global.System.Data.DataTable
9753             Dim cln As HostelInfoDataTable = CType(MyBase.Clone,HostelInfoDataTable)
9754             cln.InitVars
9755             Return cln
9756         End Function
9757         
9758         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9759          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9760         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
9761             Return New HostelInfoDataTable()
9762         End Function
9763         
9764         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9765          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9766         Friend Sub InitVars()
9767             Me.columnHI_Id = MyBase.Columns("HI_Id")
9768             Me.columnHostelname = MyBase.Columns("Hostelname")
9769             Me.columnAddress = MyBase.Columns("Address")
9770             Me.columnContactNo = MyBase.Columns("ContactNo")
9771             Me.columnManagedBy = MyBase.Columns("ManagedBy")
9772             Me.columnPerson_ContactNo = MyBase.Columns("Person_ContactNo")
9773         End Sub
9774         
9775         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9776          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9777         Private Sub InitClass()
9778             Me.columnHI_Id = New Global.System.Data.DataColumn("HI_Id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
9779             MyBase.Columns.Add(Me.columnHI_Id)
9780             Me.columnHostelname = New Global.System.Data.DataColumn("Hostelname", GetType(String), Nothing, Global.System.Data.MappingType.Element)
9781             MyBase.Columns.Add(Me.columnHostelname)
9782             Me.columnAddress = New Global.System.Data.DataColumn("Address", GetType(String), Nothing, Global.System.Data.MappingType.Element)
9783             MyBase.Columns.Add(Me.columnAddress)
9784             Me.columnContactNo = New Global.System.Data.DataColumn("ContactNo", GetType(String), Nothing, Global.System.Data.MappingType.Element)
9785             MyBase.Columns.Add(Me.columnContactNo)
9786             Me.columnManagedBy = New Global.System.Data.DataColumn("ManagedBy", GetType(String), Nothing, Global.System.Data.MappingType.Element)
9787             MyBase.Columns.Add(Me.columnManagedBy)
9788             Me.columnPerson_ContactNo = New Global.System.Data.DataColumn("Person_ContactNo", GetType(String), Nothing, Global.System.Data.MappingType.Element)
9789             MyBase.Columns.Add(Me.columnPerson_ContactNo)
9790             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnHI_Id}, true))
9791             Me.columnHI_Id.AllowDBNull = false
9792             Me.columnHI_Id.Unique = true
9793             Me.columnHostelname.AllowDBNull = false
9794             Me.columnHostelname.MaxLength = 150
9795             Me.columnAddress.AllowDBNull = false
9796             Me.columnAddress.MaxLength = 250
9797             Me.columnContactNo.AllowDBNull = false
9798             Me.columnContactNo.MaxLength = 15
9799             Me.columnManagedBy.MaxLength = 100
9800             Me.columnPerson_ContactNo.MaxLength = 15
9801         End Sub
9802         
9803         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9804          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9805         Public Function NewHostelInfoRow() As HostelInfoRow
9806             Return CType(Me.NewRow,HostelInfoRow)
9807         End Function
9808         
9809         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9810          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9811         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
9812             Return New HostelInfoRow(builder)
9813         End Function
9814         
9815         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9816          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9817         Protected Overrides Function GetRowType() As Global.System.Type
9818             Return GetType(HostelInfoRow)
9819         End Function
9820         
9821         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9822          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9823         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
9824             MyBase.OnRowChanged(e)
9825             If (Not (Me.HostelInfoRowChangedEvent) Is Nothing) Then
9826                 RaiseEvent HostelInfoRowChanged(Me, New HostelInfoRowChangeEvent(CType(e.Row,HostelInfoRow), e.Action))
9827             End If
9828         End Sub
9829         
9830         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9831          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9832         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
9833             MyBase.OnRowChanging(e)
9834             If (Not (Me.HostelInfoRowChangingEvent) Is Nothing) Then
9835                 RaiseEvent HostelInfoRowChanging(Me, New HostelInfoRowChangeEvent(CType(e.Row,HostelInfoRow), e.Action))
9836             End If
9837         End Sub
9838         
9839         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9840          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9841         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
9842             MyBase.OnRowDeleted(e)
9843             If (Not (Me.HostelInfoRowDeletedEvent) Is Nothing) Then
9844                 RaiseEvent HostelInfoRowDeleted(Me, New HostelInfoRowChangeEvent(CType(e.Row,HostelInfoRow), e.Action))
9845             End If
9846         End Sub
9847         
9848         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9849          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9850         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
9851             MyBase.OnRowDeleting(e)
9852             If (Not (Me.HostelInfoRowDeletingEvent) Is Nothing) Then
9853                 RaiseEvent HostelInfoRowDeleting(Me, New HostelInfoRowChangeEvent(CType(e.Row,HostelInfoRow), e.Action))
9854             End If
9855         End Sub
9856         
9857         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9858          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9859         Public Sub RemoveHostelInfoRow(ByVal row As HostelInfoRow)
9860             Me.Rows.Remove(row)
9861         End Sub
9862         
9863         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9864          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9865         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
9866             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
9867             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
9868             Dim ds As ERPS_DBDataSet1 = New ERPS_DBDataSet1()
9869             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
9870             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
9871             any1.MinOccurs = New Decimal(0)
9872             any1.MaxOccurs = Decimal.MaxValue
9873             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
9874             sequence.Items.Add(any1)
9875             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
9876             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
9877             any2.MinOccurs = New Decimal(1)
9878             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
9879             sequence.Items.Add(any2)
9880             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
9881             attribute1.Name = "namespace"
9882             attribute1.FixedValue = ds.Namespace
9883             type.Attributes.Add(attribute1)
9884             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
9885             attribute2.Name = "tableTypeName"
9886             attribute2.FixedValue = "HostelInfoDataTable"
9887             type.Attributes.Add(attribute2)
9888             type.Particle = sequence
9889             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
9890             If xs.Contains(dsSchema.TargetNamespace) Then
9891                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
9892                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
9893                 Try
9894                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
9895                     dsSchema.Write(s1)
9896                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
9897                     Do While schemas.MoveNext
9898                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
9899                         s2.SetLength(0)
9900                         schema.Write(s2)
9901                         If (s1.Length = s2.Length) Then
9902                             s1.Position = 0
9903                             s2.Position = 0
9904                             
9905                             Do While ((s1.Position <> s1.Length) _
9906                                         AndAlso (s1.ReadByte = s2.ReadByte))
9907                                 
9908                                 
9909                             Loop
9910                             If (s1.Position = s1.Length) Then
9911                                 Return type
9912                             End If
9913                         End If
9914                         
9915                     Loop
9916                 Finally
9917                     If (Not (s1) Is Nothing) Then
9918                         s1.Close
9919                     End If
9920                     If (Not (s2) Is Nothing) Then
9921                         s2.Close
9922                     End If
9923                 End Try
9924             End If
9925             xs.Add(dsSchema)
9926             Return type
9927         End Function
9928     End Class
9929     
9930     '''<summary>
9931     '''Represents the strongly named DataTable class.
9932     '''</summary>
9933     <Global.System.Serializable(), _
9934      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
9935     Partial Public Class Installment_BusDataTable
9936         Inherits Global.System.Data.TypedTableBase(Of Installment_BusRow)
9937         
9938         Private columnIB_ID As Global.System.Data.DataColumn
9939         
9940         Private columnInstallment As Global.System.Data.DataColumn
9941         
9942         Private columnCharges As Global.System.Data.DataColumn
9943         
9944         Private columnLocation As Global.System.Data.DataColumn
9945         
9946         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9947          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9948         Public Sub New()
9949             MyBase.New
9950             Me.TableName = "Installment_Bus"
9951             Me.BeginInit
9952             Me.InitClass
9953             Me.EndInit
9954         End Sub
9955         
9956         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9957          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9958         Friend Sub New(ByVal table As Global.System.Data.DataTable)
9959             MyBase.New
9960             Me.TableName = table.TableName
9961             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
9962                 Me.CaseSensitive = table.CaseSensitive
9963             End If
9964             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
9965                 Me.Locale = table.Locale
9966             End If
9967             If (table.Namespace <> table.DataSet.Namespace) Then
9968                 Me.Namespace = table.Namespace
9969             End If
9970             Me.Prefix = table.Prefix
9971             Me.MinimumCapacity = table.MinimumCapacity
9972         End Sub
9973         
9974         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9975          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9976         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
9977             MyBase.New(info, context)
9978             Me.InitVars
9979         End Sub
9980         
9981         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9982          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9983         Public ReadOnly Property IB_IDColumn() As Global.System.Data.DataColumn
9984             Get
9985                 Return Me.columnIB_ID
9986             End Get
9987         End Property
9988         
9989         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9990          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9991         Public ReadOnly Property InstallmentColumn() As Global.System.Data.DataColumn
9992             Get
9993                 Return Me.columnInstallment
9994             End Get
9995         End Property
9996         
9997         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9998          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9999         Public ReadOnly Property ChargesColumn() As Global.System.Data.DataColumn
10000             Get
10001                 Return Me.columnCharges
10002             End Get
10003         End Property
10004         
10005         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10006          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10007         Public ReadOnly Property LocationColumn() As Global.System.Data.DataColumn
10008             Get
10009                 Return Me.columnLocation
10010             End Get
10011         End Property
10012         
10013         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10014          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
10015          Global.System.ComponentModel.Browsable(false)> _
10016         Public ReadOnly Property Count() As Integer
10017             Get
10018                 Return Me.Rows.Count
10019             End Get
10020         End Property
10021         
10022         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10023          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10024         Public Default ReadOnly Property Item(ByVal index As Integer) As Installment_BusRow
10025             Get
10026                 Return CType(Me.Rows(index),Installment_BusRow)
10027             End Get
10028         End Property
10029         
10030         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10031         Public Event Installment_BusRowChanging As Installment_BusRowChangeEventHandler
10032         
10033         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10034         Public Event Installment_BusRowChanged As Installment_BusRowChangeEventHandler
10035         
10036         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10037         Public Event Installment_BusRowDeleting As Installment_BusRowChangeEventHandler
10038         
10039         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10040         Public Event Installment_BusRowDeleted As Installment_BusRowChangeEventHandler
10041         
10042         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10043          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10044         Public Overloads Sub AddInstallment_BusRow(ByVal row As Installment_BusRow)
10045             Me.Rows.Add(row)
10046         End Sub
10047         
10048         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10049          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10050         Public Overloads Function AddInstallment_BusRow(ByVal IB_ID As Integer, ByVal Installment As String, ByVal Charges As Decimal, ByVal parentLocationRowByFK_Installment_Bus_Location As LocationRow) As Installment_BusRow
10051             Dim rowInstallment_BusRow As Installment_BusRow = CType(Me.NewRow,Installment_BusRow)
10052             Dim columnValuesArray() As Object = New Object() {IB_ID, Installment, Charges, Nothing}
10053             If (Not (parentLocationRowByFK_Installment_Bus_Location) Is Nothing) Then
10054                 columnValuesArray(3) = parentLocationRowByFK_Installment_Bus_Location(0)
10055             End If
10056             rowInstallment_BusRow.ItemArray = columnValuesArray
10057             Me.Rows.Add(rowInstallment_BusRow)
10058             Return rowInstallment_BusRow
10059         End Function
10060         
10061         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10062          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10063         Public Function FindByIB_ID(ByVal IB_ID As Integer) As Installment_BusRow
10064             Return CType(Me.Rows.Find(New Object() {IB_ID}),Installment_BusRow)
10065         End Function
10066         
10067         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10068          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10069         Public Overrides Function Clone() As Global.System.Data.DataTable
10070             Dim cln As Installment_BusDataTable = CType(MyBase.Clone,Installment_BusDataTable)
10071             cln.InitVars
10072             Return cln
10073         End Function
10074         
10075         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10076          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10077         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
10078             Return New Installment_BusDataTable()
10079         End Function
10080         
10081         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10082          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10083         Friend Sub InitVars()
10084             Me.columnIB_ID = MyBase.Columns("IB_ID")
10085             Me.columnInstallment = MyBase.Columns("Installment")
10086             Me.columnCharges = MyBase.Columns("Charges")
10087             Me.columnLocation = MyBase.Columns("Location")
10088         End Sub
10089         
10090         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10091          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10092         Private Sub InitClass()
10093             Me.columnIB_ID = New Global.System.Data.DataColumn("IB_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
10094             MyBase.Columns.Add(Me.columnIB_ID)
10095             Me.columnInstallment = New Global.System.Data.DataColumn("Installment", GetType(String), Nothing, Global.System.Data.MappingType.Element)
10096             MyBase.Columns.Add(Me.columnInstallment)
10097             Me.columnCharges = New Global.System.Data.DataColumn("Charges", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
10098             MyBase.Columns.Add(Me.columnCharges)
10099             Me.columnLocation = New Global.System.Data.DataColumn("Location", GetType(String), Nothing, Global.System.Data.MappingType.Element)
10100             MyBase.Columns.Add(Me.columnLocation)
10101             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnIB_ID}, true))
10102             Me.columnIB_ID.AllowDBNull = false
10103             Me.columnIB_ID.Unique = true
10104             Me.columnInstallment.AllowDBNull = false
10105             Me.columnInstallment.MaxLength = 20
10106             Me.columnCharges.AllowDBNull = false
10107             Me.columnLocation.MaxLength = 250
10108         End Sub
10109         
10110         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10111          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10112         Public Function NewInstallment_BusRow() As Installment_BusRow
10113             Return CType(Me.NewRow,Installment_BusRow)
10114         End Function
10115         
10116         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10117          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10118         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
10119             Return New Installment_BusRow(builder)
10120         End Function
10121         
10122         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10123          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10124         Protected Overrides Function GetRowType() As Global.System.Type
10125             Return GetType(Installment_BusRow)
10126         End Function
10127         
10128         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10129          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10130         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
10131             MyBase.OnRowChanged(e)
10132             If (Not (Me.Installment_BusRowChangedEvent) Is Nothing) Then
10133                 RaiseEvent Installment_BusRowChanged(Me, New Installment_BusRowChangeEvent(CType(e.Row,Installment_BusRow), e.Action))
10134             End If
10135         End Sub
10136         
10137         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10138          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10139         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
10140             MyBase.OnRowChanging(e)
10141             If (Not (Me.Installment_BusRowChangingEvent) Is Nothing) Then
10142                 RaiseEvent Installment_BusRowChanging(Me, New Installment_BusRowChangeEvent(CType(e.Row,Installment_BusRow), e.Action))
10143             End If
10144         End Sub
10145         
10146         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10147          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10148         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
10149             MyBase.OnRowDeleted(e)
10150             If (Not (Me.Installment_BusRowDeletedEvent) Is Nothing) Then
10151                 RaiseEvent Installment_BusRowDeleted(Me, New Installment_BusRowChangeEvent(CType(e.Row,Installment_BusRow), e.Action))
10152             End If
10153         End Sub
10154         
10155         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10156          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10157         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
10158             MyBase.OnRowDeleting(e)
10159             If (Not (Me.Installment_BusRowDeletingEvent) Is Nothing) Then
10160                 RaiseEvent Installment_BusRowDeleting(Me, New Installment_BusRowChangeEvent(CType(e.Row,Installment_BusRow), e.Action))
10161             End If
10162         End Sub
10163         
10164         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10165          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10166         Public Sub RemoveInstallment_BusRow(ByVal row As Installment_BusRow)
10167             Me.Rows.Remove(row)
10168         End Sub
10169         
10170         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10171          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10172         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
10173             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
10174             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
10175             Dim ds As ERPS_DBDataSet1 = New ERPS_DBDataSet1()
10176             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
10177             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
10178             any1.MinOccurs = New Decimal(0)
10179             any1.MaxOccurs = Decimal.MaxValue
10180             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
10181             sequence.Items.Add(any1)
10182             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
10183             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
10184             any2.MinOccurs = New Decimal(1)
10185             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
10186             sequence.Items.Add(any2)
10187             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
10188             attribute1.Name = "namespace"
10189             attribute1.FixedValue = ds.Namespace
10190             type.Attributes.Add(attribute1)
10191             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
10192             attribute2.Name = "tableTypeName"
10193             attribute2.FixedValue = "Installment_BusDataTable"
10194             type.Attributes.Add(attribute2)
10195             type.Particle = sequence
10196             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
10197             If xs.Contains(dsSchema.TargetNamespace) Then
10198                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
10199                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
10200                 Try
10201                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
10202                     dsSchema.Write(s1)
10203                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
10204                     Do While schemas.MoveNext
10205                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
10206                         s2.SetLength(0)
10207                         schema.Write(s2)
10208                         If (s1.Length = s2.Length) Then
10209                             s1.Position = 0
10210                             s2.Position = 0
10211                             
10212                             Do While ((s1.Position <> s1.Length) _
10213                                         AndAlso (s1.ReadByte = s2.ReadByte))
10214                                 
10215                                 
10216                             Loop
10217                             If (s1.Position = s1.Length) Then
10218                                 Return type
10219                             End If
10220                         End If
10221                         
10222                     Loop
10223                 Finally
10224                     If (Not (s1) Is Nothing) Then
10225                         s1.Close
10226                     End If
10227                     If (Not (s2) Is Nothing) Then
10228                         s2.Close
10229                     End If
10230                 End Try
10231             End If
10232             xs.Add(dsSchema)
10233             Return type
10234         End Function
10235     End Class
10236     
10237     '''<summary>
10238     '''Represents the strongly named DataTable class.
10239     '''</summary>
10240     <Global.System.Serializable(), _
10241      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
10242     Partial Public Class Installment_HostelDataTable
10243         Inherits Global.System.Data.TypedTableBase(Of Installment_HostelRow)
10244         
10245         Private columnIH_ID As Global.System.Data.DataColumn
10246         
10247         Private columnInstallment As Global.System.Data.DataColumn
10248         
10249         Private columnCharges As Global.System.Data.DataColumn
10250         
10251         Private columnHostelID As Global.System.Data.DataColumn
10252         
10253         Private columnClass As Global.System.Data.DataColumn
10254         
10255         Private columnSchoolID As Global.System.Data.DataColumn
10256         
10257         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10258          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10259         Public Sub New()
10260             MyBase.New
10261             Me.TableName = "Installment_Hostel"
10262             Me.BeginInit
10263             Me.InitClass
10264             Me.EndInit
10265         End Sub
10266         
10267         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10268          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10269         Friend Sub New(ByVal table As Global.System.Data.DataTable)
10270             MyBase.New
10271             Me.TableName = table.TableName
10272             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
10273                 Me.CaseSensitive = table.CaseSensitive
10274             End If
10275             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
10276                 Me.Locale = table.Locale
10277             End If
10278             If (table.Namespace <> table.DataSet.Namespace) Then
10279                 Me.Namespace = table.Namespace
10280             End If
10281             Me.Prefix = table.Prefix
10282             Me.MinimumCapacity = table.MinimumCapacity
10283         End Sub
10284         
10285         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10286          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10287         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
10288             MyBase.New(info, context)
10289             Me.InitVars
10290         End Sub
10291         
10292         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10293          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10294         Public ReadOnly Property IH_IDColumn() As Global.System.Data.DataColumn
10295             Get
10296                 Return Me.columnIH_ID
10297             End Get
10298         End Property
10299         
10300         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10301          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10302         Public ReadOnly Property InstallmentColumn() As Global.System.Data.DataColumn
10303             Get
10304                 Return Me.columnInstallment
10305             End Get
10306         End Property
10307         
10308         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10309          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10310         Public ReadOnly Property ChargesColumn() As Global.System.Data.DataColumn
10311             Get
10312                 Return Me.columnCharges
10313             End Get
10314         End Property
10315         
10316         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10317          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10318         Public ReadOnly Property HostelIDColumn() As Global.System.Data.DataColumn
10319             Get
10320                 Return Me.columnHostelID
10321             End Get
10322         End Property
10323         
10324         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10325          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10326         Public ReadOnly Property ClassColumn() As Global.System.Data.DataColumn
10327             Get
10328                 Return Me.columnClass
10329             End Get
10330         End Property
10331         
10332         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10333          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10334         Public ReadOnly Property SchoolIDColumn() As Global.System.Data.DataColumn
10335             Get
10336                 Return Me.columnSchoolID
10337             End Get
10338         End Property
10339         
10340         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10341          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
10342          Global.System.ComponentModel.Browsable(false)> _
10343         Public ReadOnly Property Count() As Integer
10344             Get
10345                 Return Me.Rows.Count
10346             End Get
10347         End Property
10348         
10349         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10350          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10351         Public Default ReadOnly Property Item(ByVal index As Integer) As Installment_HostelRow
10352             Get
10353                 Return CType(Me.Rows(index),Installment_HostelRow)
10354             End Get
10355         End Property
10356         
10357         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10358         Public Event Installment_HostelRowChanging As Installment_HostelRowChangeEventHandler
10359         
10360         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10361         Public Event Installment_HostelRowChanged As Installment_HostelRowChangeEventHandler
10362         
10363         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10364         Public Event Installment_HostelRowDeleting As Installment_HostelRowChangeEventHandler
10365         
10366         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10367         Public Event Installment_HostelRowDeleted As Installment_HostelRowChangeEventHandler
10368         
10369         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10370          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10371         Public Overloads Sub AddInstallment_HostelRow(ByVal row As Installment_HostelRow)
10372             Me.Rows.Add(row)
10373         End Sub
10374         
10375         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10376          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10377         Public Overloads Function AddInstallment_HostelRow(ByVal IH_ID As Integer, ByVal Installment As String, ByVal Charges As Decimal, ByVal parentHostelInfoRowByFK_Installment_Hostel_HostelInfo As HostelInfoRow, ByVal parentClassRowByFK_Installment_Hostel_Class As ClassRow, ByVal parentSchoolInfoRowByFK_Installment_Hostel_SchoolInfo As SchoolInfoRow) As Installment_HostelRow
10378             Dim rowInstallment_HostelRow As Installment_HostelRow = CType(Me.NewRow,Installment_HostelRow)
10379             Dim columnValuesArray() As Object = New Object() {IH_ID, Installment, Charges, Nothing, Nothing, Nothing}
10380             If (Not (parentHostelInfoRowByFK_Installment_Hostel_HostelInfo) Is Nothing) Then
10381                 columnValuesArray(3) = parentHostelInfoRowByFK_Installment_Hostel_HostelInfo(0)
10382             End If
10383             If (Not (parentClassRowByFK_Installment_Hostel_Class) Is Nothing) Then
10384                 columnValuesArray(4) = parentClassRowByFK_Installment_Hostel_Class(0)
10385             End If
10386             If (Not (parentSchoolInfoRowByFK_Installment_Hostel_SchoolInfo) Is Nothing) Then
10387                 columnValuesArray(5) = parentSchoolInfoRowByFK_Installment_Hostel_SchoolInfo(0)
10388             End If
10389             rowInstallment_HostelRow.ItemArray = columnValuesArray
10390             Me.Rows.Add(rowInstallment_HostelRow)
10391             Return rowInstallment_HostelRow
10392         End Function
10393         
10394         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10395          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10396         Public Function FindByIH_ID(ByVal IH_ID As Integer) As Installment_HostelRow
10397             Return CType(Me.Rows.Find(New Object() {IH_ID}),Installment_HostelRow)
10398         End Function
10399         
10400         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10401          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10402         Public Overrides Function Clone() As Global.System.Data.DataTable
10403             Dim cln As Installment_HostelDataTable = CType(MyBase.Clone,Installment_HostelDataTable)
10404             cln.InitVars
10405             Return cln
10406         End Function
10407         
10408         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10409          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10410         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
10411             Return New Installment_HostelDataTable()
10412         End Function
10413         
10414         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10415          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10416         Friend Sub InitVars()
10417             Me.columnIH_ID = MyBase.Columns("IH_ID")
10418             Me.columnInstallment = MyBase.Columns("Installment")
10419             Me.columnCharges = MyBase.Columns("Charges")
10420             Me.columnHostelID = MyBase.Columns("HostelID")
10421             Me.columnClass = MyBase.Columns("Class")
10422             Me.columnSchoolID = MyBase.Columns("SchoolID")
10423         End Sub
10424         
10425         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10426          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10427         Private Sub InitClass()
10428             Me.columnIH_ID = New Global.System.Data.DataColumn("IH_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
10429             MyBase.Columns.Add(Me.columnIH_ID)
10430             Me.columnInstallment = New Global.System.Data.DataColumn("Installment", GetType(String), Nothing, Global.System.Data.MappingType.Element)
10431             MyBase.Columns.Add(Me.columnInstallment)
10432             Me.columnCharges = New Global.System.Data.DataColumn("Charges", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
10433             MyBase.Columns.Add(Me.columnCharges)
10434             Me.columnHostelID = New Global.System.Data.DataColumn("HostelID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
10435             MyBase.Columns.Add(Me.columnHostelID)
10436             Me.columnClass = New Global.System.Data.DataColumn("Class", GetType(String), Nothing, Global.System.Data.MappingType.Element)
10437             Me.columnClass.ExtendedProperties.Add("Generator_ColumnPropNameInTable", "ClassColumn")
10438             Me.columnClass.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "columnClass")
10439             Me.columnClass.ExtendedProperties.Add("Generator_UserColumnName", "Class")
10440             MyBase.Columns.Add(Me.columnClass)
10441             Me.columnSchoolID = New Global.System.Data.DataColumn("SchoolID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
10442             MyBase.Columns.Add(Me.columnSchoolID)
10443             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnIH_ID}, true))
10444             Me.columnIH_ID.AllowDBNull = false
10445             Me.columnIH_ID.Unique = true
10446             Me.columnInstallment.AllowDBNull = false
10447             Me.columnInstallment.MaxLength = 20
10448             Me.columnCharges.AllowDBNull = false
10449             Me.columnHostelID.AllowDBNull = false
10450             Me.columnClass.AllowDBNull = false
10451             Me.columnClass.MaxLength = 100
10452             Me.columnSchoolID.AllowDBNull = false
10453         End Sub
10454         
10455         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10456          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10457         Public Function NewInstallment_HostelRow() As Installment_HostelRow
10458             Return CType(Me.NewRow,Installment_HostelRow)
10459         End Function
10460         
10461         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10462          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10463         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
10464             Return New Installment_HostelRow(builder)
10465         End Function
10466         
10467         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10468          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10469         Protected Overrides Function GetRowType() As Global.System.Type
10470             Return GetType(Installment_HostelRow)
10471         End Function
10472         
10473         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10474          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10475         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
10476             MyBase.OnRowChanged(e)
10477             If (Not (Me.Installment_HostelRowChangedEvent) Is Nothing) Then
10478                 RaiseEvent Installment_HostelRowChanged(Me, New Installment_HostelRowChangeEvent(CType(e.Row,Installment_HostelRow), e.Action))
10479             End If
10480         End Sub
10481         
10482         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10483          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10484         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
10485             MyBase.OnRowChanging(e)
10486             If (Not (Me.Installment_HostelRowChangingEvent) Is Nothing) Then
10487                 RaiseEvent Installment_HostelRowChanging(Me, New Installment_HostelRowChangeEvent(CType(e.Row,Installment_HostelRow), e.Action))
10488             End If
10489         End Sub
10490         
10491         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10492          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10493         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
10494             MyBase.OnRowDeleted(e)
10495             If (Not (Me.Installment_HostelRowDeletedEvent) Is Nothing) Then
10496                 RaiseEvent Installment_HostelRowDeleted(Me, New Installment_HostelRowChangeEvent(CType(e.Row,Installment_HostelRow), e.Action))
10497             End If
10498         End Sub
10499         
10500         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10501          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10502         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
10503             MyBase.OnRowDeleting(e)
10504             If (Not (Me.Installment_HostelRowDeletingEvent) Is Nothing) Then
10505                 RaiseEvent Installment_HostelRowDeleting(Me, New Installment_HostelRowChangeEvent(CType(e.Row,Installment_HostelRow), e.Action))
10506             End If
10507         End Sub
10508         
10509         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10510          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10511         Public Sub RemoveInstallment_HostelRow(ByVal row As Installment_HostelRow)
10512             Me.Rows.Remove(row)
10513         End Sub
10514         
10515         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10516          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10517         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
10518             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
10519             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
10520             Dim ds As ERPS_DBDataSet1 = New ERPS_DBDataSet1()
10521             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
10522             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
10523             any1.MinOccurs = New Decimal(0)
10524             any1.MaxOccurs = Decimal.MaxValue
10525             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
10526             sequence.Items.Add(any1)
10527             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
10528             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
10529             any2.MinOccurs = New Decimal(1)
10530             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
10531             sequence.Items.Add(any2)
10532             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
10533             attribute1.Name = "namespace"
10534             attribute1.FixedValue = ds.Namespace
10535             type.Attributes.Add(attribute1)
10536             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
10537             attribute2.Name = "tableTypeName"
10538             attribute2.FixedValue = "Installment_HostelDataTable"
10539             type.Attributes.Add(attribute2)
10540             type.Particle = sequence
10541             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
10542             If xs.Contains(dsSchema.TargetNamespace) Then
10543                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
10544                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
10545                 Try
10546                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
10547                     dsSchema.Write(s1)
10548                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
10549                     Do While schemas.MoveNext
10550                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
10551                         s2.SetLength(0)
10552                         schema.Write(s2)
10553                         If (s1.Length = s2.Length) Then
10554                             s1.Position = 0
10555                             s2.Position = 0
10556                             
10557                             Do While ((s1.Position <> s1.Length) _
10558                                         AndAlso (s1.ReadByte = s2.ReadByte))
10559                                 
10560                                 
10561                             Loop
10562                             If (s1.Position = s1.Length) Then
10563                                 Return type
10564                             End If
10565                         End If
10566                         
10567                     Loop
10568                 Finally
10569                     If (Not (s1) Is Nothing) Then
10570                         s1.Close
10571                     End If
10572                     If (Not (s2) Is Nothing) Then
10573                         s2.Close
10574                     End If
10575                 End Try
10576             End If
10577             xs.Add(dsSchema)
10578             Return type
10579         End Function
10580     End Class
10581     
10582     '''<summary>
10583     '''Represents the strongly named DataTable class.
10584     '''</summary>
10585     <Global.System.Serializable(), _
10586      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
10587     Partial Public Class LocationDataTable
10588         Inherits Global.System.Data.TypedTableBase(Of LocationRow)
10589         
10590         Private columnLocationName As Global.System.Data.DataColumn
10591         
10592         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10593          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10594         Public Sub New()
10595             MyBase.New
10596             Me.TableName = "Location"
10597             Me.BeginInit
10598             Me.InitClass
10599             Me.EndInit
10600         End Sub
10601         
10602         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10603          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10604         Friend Sub New(ByVal table As Global.System.Data.DataTable)
10605             MyBase.New
10606             Me.TableName = table.TableName
10607             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
10608                 Me.CaseSensitive = table.CaseSensitive
10609             End If
10610             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
10611                 Me.Locale = table.Locale
10612             End If
10613             If (table.Namespace <> table.DataSet.Namespace) Then
10614                 Me.Namespace = table.Namespace
10615             End If
10616             Me.Prefix = table.Prefix
10617             Me.MinimumCapacity = table.MinimumCapacity
10618         End Sub
10619         
10620         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10621          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10622         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
10623             MyBase.New(info, context)
10624             Me.InitVars
10625         End Sub
10626         
10627         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10628          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10629         Public ReadOnly Property LocationNameColumn() As Global.System.Data.DataColumn
10630             Get
10631                 Return Me.columnLocationName
10632             End Get
10633         End Property
10634         
10635         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10636          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
10637          Global.System.ComponentModel.Browsable(false)> _
10638         Public ReadOnly Property Count() As Integer
10639             Get
10640                 Return Me.Rows.Count
10641             End Get
10642         End Property
10643         
10644         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10645          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10646         Public Default ReadOnly Property Item(ByVal index As Integer) As LocationRow
10647             Get
10648                 Return CType(Me.Rows(index),LocationRow)
10649             End Get
10650         End Property
10651         
10652         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10653         Public Event LocationRowChanging As LocationRowChangeEventHandler
10654         
10655         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10656         Public Event LocationRowChanged As LocationRowChangeEventHandler
10657         
10658         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10659         Public Event LocationRowDeleting As LocationRowChangeEventHandler
10660         
10661         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10662         Public Event LocationRowDeleted As LocationRowChangeEventHandler
10663         
10664         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10665          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10666         Public Overloads Sub AddLocationRow(ByVal row As LocationRow)
10667             Me.Rows.Add(row)
10668         End Sub
10669         
10670         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10671          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10672         Public Overloads Function AddLocationRow(ByVal LocationName As String) As LocationRow
10673             Dim rowLocationRow As LocationRow = CType(Me.NewRow,LocationRow)
10674             Dim columnValuesArray() As Object = New Object() {LocationName}
10675             rowLocationRow.ItemArray = columnValuesArray
10676             Me.Rows.Add(rowLocationRow)
10677             Return rowLocationRow
10678         End Function
10679         
10680         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10681          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10682         Public Function FindByLocationName(ByVal LocationName As String) As LocationRow
10683             Return CType(Me.Rows.Find(New Object() {LocationName}),LocationRow)
10684         End Function
10685         
10686         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10687          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10688         Public Overrides Function Clone() As Global.System.Data.DataTable
10689             Dim cln As LocationDataTable = CType(MyBase.Clone,LocationDataTable)
10690             cln.InitVars
10691             Return cln
10692         End Function
10693         
10694         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10695          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10696         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
10697             Return New LocationDataTable()
10698         End Function
10699         
10700         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10701          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10702         Friend Sub InitVars()
10703             Me.columnLocationName = MyBase.Columns("LocationName")
10704         End Sub
10705         
10706         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10707          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10708         Private Sub InitClass()
10709             Me.columnLocationName = New Global.System.Data.DataColumn("LocationName", GetType(String), Nothing, Global.System.Data.MappingType.Element)
10710             MyBase.Columns.Add(Me.columnLocationName)
10711             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnLocationName}, true))
10712             Me.columnLocationName.AllowDBNull = false
10713             Me.columnLocationName.Unique = true
10714             Me.columnLocationName.MaxLength = 250
10715         End Sub
10716         
10717         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10718          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10719         Public Function NewLocationRow() As LocationRow
10720             Return CType(Me.NewRow,LocationRow)
10721         End Function
10722         
10723         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10724          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10725         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
10726             Return New LocationRow(builder)
10727         End Function
10728         
10729         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10730          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10731         Protected Overrides Function GetRowType() As Global.System.Type
10732             Return GetType(LocationRow)
10733         End Function
10734         
10735         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10736          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10737         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
10738             MyBase.OnRowChanged(e)
10739             If (Not (Me.LocationRowChangedEvent) Is Nothing) Then
10740                 RaiseEvent LocationRowChanged(Me, New LocationRowChangeEvent(CType(e.Row,LocationRow), e.Action))
10741             End If
10742         End Sub
10743         
10744         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10745          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10746         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
10747             MyBase.OnRowChanging(e)
10748             If (Not (Me.LocationRowChangingEvent) Is Nothing) Then
10749                 RaiseEvent LocationRowChanging(Me, New LocationRowChangeEvent(CType(e.Row,LocationRow), e.Action))
10750             End If
10751         End Sub
10752         
10753         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10754          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10755         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
10756             MyBase.OnRowDeleted(e)
10757             If (Not (Me.LocationRowDeletedEvent) Is Nothing) Then
10758                 RaiseEvent LocationRowDeleted(Me, New LocationRowChangeEvent(CType(e.Row,LocationRow), e.Action))
10759             End If
10760         End Sub
10761         
10762         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10763          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10764         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
10765             MyBase.OnRowDeleting(e)
10766             If (Not (Me.LocationRowDeletingEvent) Is Nothing) Then
10767                 RaiseEvent LocationRowDeleting(Me, New LocationRowChangeEvent(CType(e.Row,LocationRow), e.Action))
10768             End If
10769         End Sub
10770         
10771         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10772          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10773         Public Sub RemoveLocationRow(ByVal row As LocationRow)
10774             Me.Rows.Remove(row)
10775         End Sub
10776         
10777         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10778          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10779         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
10780             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
10781             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
10782             Dim ds As ERPS_DBDataSet1 = New ERPS_DBDataSet1()
10783             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
10784             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
10785             any1.MinOccurs = New Decimal(0)
10786             any1.MaxOccurs = Decimal.MaxValue
10787             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
10788             sequence.Items.Add(any1)
10789             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
10790             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
10791             any2.MinOccurs = New Decimal(1)
10792             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
10793             sequence.Items.Add(any2)
10794             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
10795             attribute1.Name = "namespace"
10796             attribute1.FixedValue = ds.Namespace
10797             type.Attributes.Add(attribute1)
10798             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
10799             attribute2.Name = "tableTypeName"
10800             attribute2.FixedValue = "LocationDataTable"
10801             type.Attributes.Add(attribute2)
10802             type.Particle = sequence
10803             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
10804             If xs.Contains(dsSchema.TargetNamespace) Then
10805                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
10806                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
10807                 Try
10808                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
10809                     dsSchema.Write(s1)
10810                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
10811                     Do While schemas.MoveNext
10812                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
10813                         s2.SetLength(0)
10814                         schema.Write(s2)
10815                         If (s1.Length = s2.Length) Then
10816                             s1.Position = 0
10817                             s2.Position = 0
10818                             
10819                             Do While ((s1.Position <> s1.Length) _
10820                                         AndAlso (s1.ReadByte = s2.ReadByte))
10821                                 
10822                                 
10823                             Loop
10824                             If (s1.Position = s1.Length) Then
10825                                 Return type
10826                             End If
10827                         End If
10828                         
10829                     Loop
10830                 Finally
10831                     If (Not (s1) Is Nothing) Then
10832                         s1.Close
10833                     End If
10834                     If (Not (s2) Is Nothing) Then
10835                         s2.Close
10836                     End If
10837                 End Try
10838             End If
10839             xs.Add(dsSchema)
10840             Return type
10841         End Function
10842     End Class
10843     
10844     '''<summary>
10845     '''Represents the strongly named DataTable class.
10846     '''</summary>
10847     <Global.System.Serializable(), _
10848      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
10849     Partial Public Class LogsDataTable
10850         Inherits Global.System.Data.TypedTableBase(Of LogsRow)
10851         
10852         Private columnId As Global.System.Data.DataColumn
10853         
10854         Private columnUserID As Global.System.Data.DataColumn
10855         
10856         Private columnDate As Global.System.Data.DataColumn
10857         
10858         Private columnOperation As Global.System.Data.DataColumn
10859         
10860         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10861          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10862         Public Sub New()
10863             MyBase.New
10864             Me.TableName = "Logs"
10865             Me.BeginInit
10866             Me.InitClass
10867             Me.EndInit
10868         End Sub
10869         
10870         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10871          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10872         Friend Sub New(ByVal table As Global.System.Data.DataTable)
10873             MyBase.New
10874             Me.TableName = table.TableName
10875             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
10876                 Me.CaseSensitive = table.CaseSensitive
10877             End If
10878             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
10879                 Me.Locale = table.Locale
10880             End If
10881             If (table.Namespace <> table.DataSet.Namespace) Then
10882                 Me.Namespace = table.Namespace
10883             End If
10884             Me.Prefix = table.Prefix
10885             Me.MinimumCapacity = table.MinimumCapacity
10886         End Sub
10887         
10888         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10889          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10890         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
10891             MyBase.New(info, context)
10892             Me.InitVars
10893         End Sub
10894         
10895         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10896          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10897         Public ReadOnly Property IdColumn() As Global.System.Data.DataColumn
10898             Get
10899                 Return Me.columnId
10900             End Get
10901         End Property
10902         
10903         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10904          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10905         Public ReadOnly Property UserIDColumn() As Global.System.Data.DataColumn
10906             Get
10907                 Return Me.columnUserID
10908             End Get
10909         End Property
10910         
10911         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10912          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10913         Public ReadOnly Property DateColumn() As Global.System.Data.DataColumn
10914             Get
10915                 Return Me.columnDate
10916             End Get
10917         End Property
10918         
10919         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10920          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10921         Public ReadOnly Property OperationColumn() As Global.System.Data.DataColumn
10922             Get
10923                 Return Me.columnOperation
10924             End Get
10925         End Property
10926         
10927         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10928          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
10929          Global.System.ComponentModel.Browsable(false)> _
10930         Public ReadOnly Property Count() As Integer
10931             Get
10932                 Return Me.Rows.Count
10933             End Get
10934         End Property
10935         
10936         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10937          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10938         Public Default ReadOnly Property Item(ByVal index As Integer) As LogsRow
10939             Get
10940                 Return CType(Me.Rows(index),LogsRow)
10941             End Get
10942         End Property
10943         
10944         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10945         Public Event LogsRowChanging As LogsRowChangeEventHandler
10946         
10947         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10948         Public Event LogsRowChanged As LogsRowChangeEventHandler
10949         
10950         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10951         Public Event LogsRowDeleting As LogsRowChangeEventHandler
10952         
10953         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10954         Public Event LogsRowDeleted As LogsRowChangeEventHandler
10955         
10956         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10957          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10958         Public Overloads Sub AddLogsRow(ByVal row As LogsRow)
10959             Me.Rows.Add(row)
10960         End Sub
10961         
10962         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10963          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10964         Public Overloads Function AddLogsRow(ByVal parentRegistrationRowByFK_Logs_Registration As RegistrationRow, ByVal _Date As Date, ByVal Operation As String) As LogsRow
10965             Dim rowLogsRow As LogsRow = CType(Me.NewRow,LogsRow)
10966             Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, _Date, Operation}
10967             If (Not (parentRegistrationRowByFK_Logs_Registration) Is Nothing) Then
10968                 columnValuesArray(1) = parentRegistrationRowByFK_Logs_Registration(0)
10969             End If
10970             rowLogsRow.ItemArray = columnValuesArray
10971             Me.Rows.Add(rowLogsRow)
10972             Return rowLogsRow
10973         End Function
10974         
10975         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10976          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10977         Public Function FindById(ByVal Id As Integer) As LogsRow
10978             Return CType(Me.Rows.Find(New Object() {Id}),LogsRow)
10979         End Function
10980         
10981         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10982          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10983         Public Overrides Function Clone() As Global.System.Data.DataTable
10984             Dim cln As LogsDataTable = CType(MyBase.Clone,LogsDataTable)
10985             cln.InitVars
10986             Return cln
10987         End Function
10988         
10989         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10990          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10991         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
10992             Return New LogsDataTable()
10993         End Function
10994         
10995         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10996          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10997         Friend Sub InitVars()
10998             Me.columnId = MyBase.Columns("Id")
10999             Me.columnUserID = MyBase.Columns("UserID")
11000             Me.columnDate = MyBase.Columns("Date")
11001             Me.columnOperation = MyBase.Columns("Operation")
11002         End Sub
11003         
11004         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11005          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11006         Private Sub InitClass()
11007             Me.columnId = New Global.System.Data.DataColumn("Id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
11008             MyBase.Columns.Add(Me.columnId)
11009             Me.columnUserID = New Global.System.Data.DataColumn("UserID", GetType(String), Nothing, Global.System.Data.MappingType.Element)
11010             MyBase.Columns.Add(Me.columnUserID)
11011             Me.columnDate = New Global.System.Data.DataColumn("Date", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
11012             Me.columnDate.ExtendedProperties.Add("Generator_ColumnPropNameInTable", "DateColumn")
11013             Me.columnDate.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "columnDate")
11014             Me.columnDate.ExtendedProperties.Add("Generator_UserColumnName", "Date")
11015             MyBase.Columns.Add(Me.columnDate)
11016             Me.columnOperation = New Global.System.Data.DataColumn("Operation", GetType(String), Nothing, Global.System.Data.MappingType.Element)
11017             MyBase.Columns.Add(Me.columnOperation)
11018             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnId}, true))
11019             Me.columnId.AutoIncrement = true
11020             Me.columnId.AutoIncrementSeed = -1
11021             Me.columnId.AutoIncrementStep = -1
11022             Me.columnId.AllowDBNull = false
11023             Me.columnId.ReadOnly = true
11024             Me.columnId.Unique = true
11025             Me.columnUserID.AllowDBNull = false
11026             Me.columnUserID.MaxLength = 100
11027             Me.columnDate.AllowDBNull = false
11028             Me.columnOperation.AllowDBNull = false
11029             Me.columnOperation.MaxLength = 2147483647
11030         End Sub
11031         
11032         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11033          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11034         Public Function NewLogsRow() As LogsRow
11035             Return CType(Me.NewRow,LogsRow)
11036         End Function
11037         
11038         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11039          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11040         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
11041             Return New LogsRow(builder)
11042         End Function
11043         
11044         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11045          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11046         Protected Overrides Function GetRowType() As Global.System.Type
11047             Return GetType(LogsRow)
11048         End Function
11049         
11050         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11051          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11052         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
11053             MyBase.OnRowChanged(e)
11054             If (Not (Me.LogsRowChangedEvent) Is Nothing) Then
11055                 RaiseEvent LogsRowChanged(Me, New LogsRowChangeEvent(CType(e.Row,LogsRow), e.Action))
11056             End If
11057         End Sub
11058         
11059         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11060          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11061         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
11062             MyBase.OnRowChanging(e)
11063             If (Not (Me.LogsRowChangingEvent) Is Nothing) Then
11064                 RaiseEvent LogsRowChanging(Me, New LogsRowChangeEvent(CType(e.Row,LogsRow), e.Action))
11065             End If
11066         End Sub
11067         
11068         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11069          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11070         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
11071             MyBase.OnRowDeleted(e)
11072             If (Not (Me.LogsRowDeletedEvent) Is Nothing) Then
11073                 RaiseEvent LogsRowDeleted(Me, New LogsRowChangeEvent(CType(e.Row,LogsRow), e.Action))
11074             End If
11075         End Sub
11076         
11077         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11078          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11079         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
11080             MyBase.OnRowDeleting(e)
11081             If (Not (Me.LogsRowDeletingEvent) Is Nothing) Then
11082                 RaiseEvent LogsRowDeleting(Me, New LogsRowChangeEvent(CType(e.Row,LogsRow), e.Action))
11083             End If
11084         End Sub
11085         
11086         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11087          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11088         Public Sub RemoveLogsRow(ByVal row As LogsRow)
11089             Me.Rows.Remove(row)
11090         End Sub
11091         
11092         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11093          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11094         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
11095             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
11096             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
11097             Dim ds As ERPS_DBDataSet1 = New ERPS_DBDataSet1()
11098             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
11099             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
11100             any1.MinOccurs = New Decimal(0)
11101             any1.MaxOccurs = Decimal.MaxValue
11102             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
11103             sequence.Items.Add(any1)
11104             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
11105             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
11106             any2.MinOccurs = New Decimal(1)
11107             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
11108             sequence.Items.Add(any2)
11109             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
11110             attribute1.Name = "namespace"
11111             attribute1.FixedValue = ds.Namespace
11112             type.Attributes.Add(attribute1)
11113             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
11114             attribute2.Name = "tableTypeName"
11115             attribute2.FixedValue = "LogsDataTable"
11116             type.Attributes.Add(attribute2)
11117             type.Particle = sequence
11118             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
11119             If xs.Contains(dsSchema.TargetNamespace) Then
11120                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
11121                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
11122                 Try
11123                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
11124                     dsSchema.Write(s1)
11125                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
11126                     Do While schemas.MoveNext
11127                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
11128                         s2.SetLength(0)
11129                         schema.Write(s2)
11130                         If (s1.Length = s2.Length) Then
11131                             s1.Position = 0
11132                             s2.Position = 0
11133                             
11134                             Do While ((s1.Position <> s1.Length) _
11135                                         AndAlso (s1.ReadByte = s2.ReadByte))
11136                                 
11137                                 
11138                             Loop
11139                             If (s1.Position = s1.Length) Then
11140                                 Return type
11141                             End If
11142                         End If
11143                         
11144                     Loop
11145                 Finally
11146                     If (Not (s1) Is Nothing) Then
11147                         s1.Close
11148                     End If
11149                     If (Not (s2) Is Nothing) Then
11150                         s2.Close
11151                     End If
11152                 End Try
11153             End If
11154             xs.Add(dsSchema)
11155             Return type
11156         End Function
11157     End Class
11158     
11159     '''<summary>
11160     '''Represents the strongly named DataTable class.
11161     '''</summary>
11162     <Global.System.Serializable(), _
11163      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
11164     Partial Public Class NoDues_StaffDataTable
11165         Inherits Global.System.Data.TypedTableBase(Of NoDues_StaffRow)
11166         
11167         Private columnStaffID As Global.System.Data.DataColumn
11168         
11169         Private columnStaff As Global.System.Data.DataColumn
11170         
11171         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11172          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11173         Public Sub New()
11174             MyBase.New
11175             Me.TableName = "NoDues_Staff"
11176             Me.BeginInit
11177             Me.InitClass
11178             Me.EndInit
11179         End Sub
11180         
11181         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11182          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11183         Friend Sub New(ByVal table As Global.System.Data.DataTable)
11184             MyBase.New
11185             Me.TableName = table.TableName
11186             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
11187                 Me.CaseSensitive = table.CaseSensitive
11188             End If
11189             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
11190                 Me.Locale = table.Locale
11191             End If
11192             If (table.Namespace <> table.DataSet.Namespace) Then
11193                 Me.Namespace = table.Namespace
11194             End If
11195             Me.Prefix = table.Prefix
11196             Me.MinimumCapacity = table.MinimumCapacity
11197         End Sub
11198         
11199         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11200          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11201         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
11202             MyBase.New(info, context)
11203             Me.InitVars
11204         End Sub
11205         
11206         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11207          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11208         Public ReadOnly Property StaffIDColumn() As Global.System.Data.DataColumn
11209             Get
11210                 Return Me.columnStaffID
11211             End Get
11212         End Property
11213         
11214         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11215          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11216         Public ReadOnly Property StaffColumn() As Global.System.Data.DataColumn
11217             Get
11218                 Return Me.columnStaff
11219             End Get
11220         End Property
11221         
11222         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11223          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
11224          Global.System.ComponentModel.Browsable(false)> _
11225         Public ReadOnly Property Count() As Integer
11226             Get
11227                 Return Me.Rows.Count
11228             End Get
11229         End Property
11230         
11231         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11232          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11233         Public Default ReadOnly Property Item(ByVal index As Integer) As NoDues_StaffRow
11234             Get
11235                 Return CType(Me.Rows(index),NoDues_StaffRow)
11236             End Get
11237         End Property
11238         
11239         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11240         Public Event NoDues_StaffRowChanging As NoDues_StaffRowChangeEventHandler
11241         
11242         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11243         Public Event NoDues_StaffRowChanged As NoDues_StaffRowChangeEventHandler
11244         
11245         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11246         Public Event NoDues_StaffRowDeleting As NoDues_StaffRowChangeEventHandler
11247         
11248         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11249         Public Event NoDues_StaffRowDeleted As NoDues_StaffRowChangeEventHandler
11250         
11251         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11252          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11253         Public Overloads Sub AddNoDues_StaffRow(ByVal row As NoDues_StaffRow)
11254             Me.Rows.Add(row)
11255         End Sub
11256         
11257         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11258          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11259         Public Overloads Function AddNoDues_StaffRow(ByVal parentStaffRowByFK_NoDues_Staff_Staff As StaffRow, ByVal Staff As String) As NoDues_StaffRow
11260             Dim rowNoDues_StaffRow As NoDues_StaffRow = CType(Me.NewRow,NoDues_StaffRow)
11261             Dim columnValuesArray() As Object = New Object() {Nothing, Staff}
11262             If (Not (parentStaffRowByFK_NoDues_Staff_Staff) Is Nothing) Then
11263                 columnValuesArray(0) = parentStaffRowByFK_NoDues_Staff_Staff(0)
11264             End If
11265             rowNoDues_StaffRow.ItemArray = columnValuesArray
11266             Me.Rows.Add(rowNoDues_StaffRow)
11267             Return rowNoDues_StaffRow
11268         End Function
11269         
11270         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11271          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11272         Public Function FindByStaffID(ByVal StaffID As Integer) As NoDues_StaffRow
11273             Return CType(Me.Rows.Find(New Object() {StaffID}),NoDues_StaffRow)
11274         End Function
11275         
11276         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11277          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11278         Public Overrides Function Clone() As Global.System.Data.DataTable
11279             Dim cln As NoDues_StaffDataTable = CType(MyBase.Clone,NoDues_StaffDataTable)
11280             cln.InitVars
11281             Return cln
11282         End Function
11283         
11284         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11285          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11286         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
11287             Return New NoDues_StaffDataTable()
11288         End Function
11289         
11290         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11291          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11292         Friend Sub InitVars()
11293             Me.columnStaffID = MyBase.Columns("StaffID")
11294             Me.columnStaff = MyBase.Columns("Staff")
11295         End Sub
11296         
11297         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11298          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11299         Private Sub InitClass()
11300             Me.columnStaffID = New Global.System.Data.DataColumn("StaffID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
11301             MyBase.Columns.Add(Me.columnStaffID)
11302             Me.columnStaff = New Global.System.Data.DataColumn("Staff", GetType(String), Nothing, Global.System.Data.MappingType.Element)
11303             MyBase.Columns.Add(Me.columnStaff)
11304             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnStaffID}, true))
11305             Me.columnStaffID.AllowDBNull = false
11306             Me.columnStaffID.Unique = true
11307             Me.columnStaff.MaxLength = 50
11308         End Sub
11309         
11310         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11311          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11312         Public Function NewNoDues_StaffRow() As NoDues_StaffRow
11313             Return CType(Me.NewRow,NoDues_StaffRow)
11314         End Function
11315         
11316         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11317          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11318         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
11319             Return New NoDues_StaffRow(builder)
11320         End Function
11321         
11322         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11323          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11324         Protected Overrides Function GetRowType() As Global.System.Type
11325             Return GetType(NoDues_StaffRow)
11326         End Function
11327         
11328         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11329          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11330         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
11331             MyBase.OnRowChanged(e)
11332             If (Not (Me.NoDues_StaffRowChangedEvent) Is Nothing) Then
11333                 RaiseEvent NoDues_StaffRowChanged(Me, New NoDues_StaffRowChangeEvent(CType(e.Row,NoDues_StaffRow), e.Action))
11334             End If
11335         End Sub
11336         
11337         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11338          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11339         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
11340             MyBase.OnRowChanging(e)
11341             If (Not (Me.NoDues_StaffRowChangingEvent) Is Nothing) Then
11342                 RaiseEvent NoDues_StaffRowChanging(Me, New NoDues_StaffRowChangeEvent(CType(e.Row,NoDues_StaffRow), e.Action))
11343             End If
11344         End Sub
11345         
11346         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11347          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11348         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
11349             MyBase.OnRowDeleted(e)
11350             If (Not (Me.NoDues_StaffRowDeletedEvent) Is Nothing) Then
11351                 RaiseEvent NoDues_StaffRowDeleted(Me, New NoDues_StaffRowChangeEvent(CType(e.Row,NoDues_StaffRow), e.Action))
11352             End If
11353         End Sub
11354         
11355         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11356          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11357         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
11358             MyBase.OnRowDeleting(e)
11359             If (Not (Me.NoDues_StaffRowDeletingEvent) Is Nothing) Then
11360                 RaiseEvent NoDues_StaffRowDeleting(Me, New NoDues_StaffRowChangeEvent(CType(e.Row,NoDues_StaffRow), e.Action))
11361             End If
11362         End Sub
11363         
11364         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11365          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11366         Public Sub RemoveNoDues_StaffRow(ByVal row As NoDues_StaffRow)
11367             Me.Rows.Remove(row)
11368         End Sub
11369         
11370         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11371          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11372         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
11373             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
11374             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
11375             Dim ds As ERPS_DBDataSet1 = New ERPS_DBDataSet1()
11376             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
11377             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
11378             any1.MinOccurs = New Decimal(0)
11379             any1.MaxOccurs = Decimal.MaxValue
11380             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
11381             sequence.Items.Add(any1)
11382             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
11383             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
11384             any2.MinOccurs = New Decimal(1)
11385             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
11386             sequence.Items.Add(any2)
11387             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
11388             attribute1.Name = "namespace"
11389             attribute1.FixedValue = ds.Namespace
11390             type.Attributes.Add(attribute1)
11391             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
11392             attribute2.Name = "tableTypeName"
11393             attribute2.FixedValue = "NoDues_StaffDataTable"
11394             type.Attributes.Add(attribute2)
11395             type.Particle = sequence
11396             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
11397             If xs.Contains(dsSchema.TargetNamespace) Then
11398                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
11399                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
11400                 Try
11401                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
11402                     dsSchema.Write(s1)
11403                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
11404                     Do While schemas.MoveNext
11405                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
11406                         s2.SetLength(0)
11407                         schema.Write(s2)
11408                         If (s1.Length = s2.Length) Then
11409                             s1.Position = 0
11410                             s2.Position = 0
11411                             
11412                             Do While ((s1.Position <> s1.Length) _
11413                                         AndAlso (s1.ReadByte = s2.ReadByte))
11414                                 
11415                                 
11416                             Loop
11417                             If (s1.Position = s1.Length) Then
11418                                 Return type
11419                             End If
11420                         End If
11421                         
11422                     Loop
11423                 Finally
11424                     If (Not (s1) Is Nothing) Then
11425                         s1.Close
11426                     End If
11427                     If (Not (s2) Is Nothing) Then
11428                         s2.Close
11429                     End If
11430                 End Try
11431             End If
11432             xs.Add(dsSchema)
11433             Return type
11434         End Function
11435     End Class
11436     
11437     '''<summary>
11438     '''Represents the strongly named DataTable class.
11439     '''</summary>
11440     <Global.System.Serializable(), _
11441      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
11442     Partial Public Class NoDues_StudentDataTable
11443         Inherits Global.System.Data.TypedTableBase(Of NoDues_StudentRow)
11444         
11445         Private columnAdmissionNo As Global.System.Data.DataColumn
11446         
11447         Private columnStatus As Global.System.Data.DataColumn
11448         
11449         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11450          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11451         Public Sub New()
11452             MyBase.New
11453             Me.TableName = "NoDues_Student"
11454             Me.BeginInit
11455             Me.InitClass
11456             Me.EndInit
11457         End Sub
11458         
11459         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11460          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11461         Friend Sub New(ByVal table As Global.System.Data.DataTable)
11462             MyBase.New
11463             Me.TableName = table.TableName
11464             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
11465                 Me.CaseSensitive = table.CaseSensitive
11466             End If
11467             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
11468                 Me.Locale = table.Locale
11469             End If
11470             If (table.Namespace <> table.DataSet.Namespace) Then
11471                 Me.Namespace = table.Namespace
11472             End If
11473             Me.Prefix = table.Prefix
11474             Me.MinimumCapacity = table.MinimumCapacity
11475         End Sub
11476         
11477         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11478          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11479         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
11480             MyBase.New(info, context)
11481             Me.InitVars
11482         End Sub
11483         
11484         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11485          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11486         Public ReadOnly Property AdmissionNoColumn() As Global.System.Data.DataColumn
11487             Get
11488                 Return Me.columnAdmissionNo
11489             End Get
11490         End Property
11491         
11492         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11493          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11494         Public ReadOnly Property StatusColumn() As Global.System.Data.DataColumn
11495             Get
11496                 Return Me.columnStatus
11497             End Get
11498         End Property
11499         
11500         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11501          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
11502          Global.System.ComponentModel.Browsable(false)> _
11503         Public ReadOnly Property Count() As Integer
11504             Get
11505                 Return Me.Rows.Count
11506             End Get
11507         End Property
11508         
11509         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11510          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11511         Public Default ReadOnly Property Item(ByVal index As Integer) As NoDues_StudentRow
11512             Get
11513                 Return CType(Me.Rows(index),NoDues_StudentRow)
11514             End Get
11515         End Property
11516         
11517         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11518         Public Event NoDues_StudentRowChanging As NoDues_StudentRowChangeEventHandler
11519         
11520         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11521         Public Event NoDues_StudentRowChanged As NoDues_StudentRowChangeEventHandler
11522         
11523         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11524         Public Event NoDues_StudentRowDeleting As NoDues_StudentRowChangeEventHandler
11525         
11526         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11527         Public Event NoDues_StudentRowDeleted As NoDues_StudentRowChangeEventHandler
11528         
11529         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11530          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11531         Public Overloads Sub AddNoDues_StudentRow(ByVal row As NoDues_StudentRow)
11532             Me.Rows.Add(row)
11533         End Sub
11534         
11535         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11536          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11537         Public Overloads Function AddNoDues_StudentRow(ByVal parentStudentRowByFK_NoDues_Student_Student As StudentRow, ByVal Status As String) As NoDues_StudentRow
11538             Dim rowNoDues_StudentRow As NoDues_StudentRow = CType(Me.NewRow,NoDues_StudentRow)
11539             Dim columnValuesArray() As Object = New Object() {Nothing, Status}
11540             If (Not (parentStudentRowByFK_NoDues_Student_Student) Is Nothing) Then
11541                 columnValuesArray(0) = parentStudentRowByFK_NoDues_Student_Student(0)
11542             End If
11543             rowNoDues_StudentRow.ItemArray = columnValuesArray
11544             Me.Rows.Add(rowNoDues_StudentRow)
11545             Return rowNoDues_StudentRow
11546         End Function
11547         
11548         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11549          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11550         Public Function FindByAdmissionNo(ByVal AdmissionNo As String) As NoDues_StudentRow
11551             Return CType(Me.Rows.Find(New Object() {AdmissionNo}),NoDues_StudentRow)
11552         End Function
11553         
11554         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11555          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11556         Public Overrides Function Clone() As Global.System.Data.DataTable
11557             Dim cln As NoDues_StudentDataTable = CType(MyBase.Clone,NoDues_StudentDataTable)
11558             cln.InitVars
11559             Return cln
11560         End Function
11561         
11562         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11563          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11564         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
11565             Return New NoDues_StudentDataTable()
11566         End Function
11567         
11568         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11569          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11570         Friend Sub InitVars()
11571             Me.columnAdmissionNo = MyBase.Columns("AdmissionNo")
11572             Me.columnStatus = MyBase.Columns("Status")
11573         End Sub
11574         
11575         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11576          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11577         Private Sub InitClass()
11578             Me.columnAdmissionNo = New Global.System.Data.DataColumn("AdmissionNo", GetType(String), Nothing, Global.System.Data.MappingType.Element)
11579             MyBase.Columns.Add(Me.columnAdmissionNo)
11580             Me.columnStatus = New Global.System.Data.DataColumn("Status", GetType(String), Nothing, Global.System.Data.MappingType.Element)
11581             MyBase.Columns.Add(Me.columnStatus)
11582             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnAdmissionNo}, true))
11583             Me.columnAdmissionNo.AllowDBNull = false
11584             Me.columnAdmissionNo.Unique = true
11585             Me.columnAdmissionNo.MaxLength = 15
11586             Me.columnStatus.MaxLength = 50
11587         End Sub
11588         
11589         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11590          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11591         Public Function NewNoDues_StudentRow() As NoDues_StudentRow
11592             Return CType(Me.NewRow,NoDues_StudentRow)
11593         End Function
11594         
11595         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11596          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11597         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
11598             Return New NoDues_StudentRow(builder)
11599         End Function
11600         
11601         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11602          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11603         Protected Overrides Function GetRowType() As Global.System.Type
11604             Return GetType(NoDues_StudentRow)
11605         End Function
11606         
11607         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11608          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11609         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
11610             MyBase.OnRowChanged(e)
11611             If (Not (Me.NoDues_StudentRowChangedEvent) Is Nothing) Then
11612                 RaiseEvent NoDues_StudentRowChanged(Me, New NoDues_StudentRowChangeEvent(CType(e.Row,NoDues_StudentRow), e.Action))
11613             End If
11614         End Sub
11615         
11616         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11617          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11618         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
11619             MyBase.OnRowChanging(e)
11620             If (Not (Me.NoDues_StudentRowChangingEvent) Is Nothing) Then
11621                 RaiseEvent NoDues_StudentRowChanging(Me, New NoDues_StudentRowChangeEvent(CType(e.Row,NoDues_StudentRow), e.Action))
11622             End If
11623         End Sub
11624         
11625         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11626          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11627         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
11628             MyBase.OnRowDeleted(e)
11629             If (Not (Me.NoDues_StudentRowDeletedEvent) Is Nothing) Then
11630                 RaiseEvent NoDues_StudentRowDeleted(Me, New NoDues_StudentRowChangeEvent(CType(e.Row,NoDues_StudentRow), e.Action))
11631             End If
11632         End Sub
11633         
11634         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11635          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11636         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
11637             MyBase.OnRowDeleting(e)
11638             If (Not (Me.NoDues_StudentRowDeletingEvent) Is Nothing) Then
11639                 RaiseEvent NoDues_StudentRowDeleting(Me, New NoDues_StudentRowChangeEvent(CType(e.Row,NoDues_StudentRow), e.Action))
11640             End If
11641         End Sub
11642         
11643         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11644          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11645         Public Sub RemoveNoDues_StudentRow(ByVal row As NoDues_StudentRow)
11646             Me.Rows.Remove(row)
11647         End Sub
11648         
11649         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11650          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11651         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
11652             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
11653             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
11654             Dim ds As ERPS_DBDataSet1 = New ERPS_DBDataSet1()
11655             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
11656             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
11657             any1.MinOccurs = New Decimal(0)
11658             any1.MaxOccurs = Decimal.MaxValue
11659             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
11660             sequence.Items.Add(any1)
11661             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
11662             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
11663             any2.MinOccurs = New Decimal(1)
11664             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
11665             sequence.Items.Add(any2)
11666             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
11667             attribute1.Name = "namespace"
11668             attribute1.FixedValue = ds.Namespace
11669             type.Attributes.Add(attribute1)
11670             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
11671             attribute2.Name = "tableTypeName"
11672             attribute2.FixedValue = "NoDues_StudentDataTable"
11673             type.Attributes.Add(attribute2)
11674             type.Particle = sequence
11675             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
11676             If xs.Contains(dsSchema.TargetNamespace) Then
11677                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
11678                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
11679                 Try
11680                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
11681                     dsSchema.Write(s1)
11682                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
11683                     Do While schemas.MoveNext
11684                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
11685                         s2.SetLength(0)
11686                         schema.Write(s2)
11687                         If (s1.Length = s2.Length) Then
11688                             s1.Position = 0
11689                             s2.Position = 0
11690                             
11691                             Do While ((s1.Position <> s1.Length) _
11692                                         AndAlso (s1.ReadByte = s2.ReadByte))
11693                                 
11694                                 
11695                             Loop
11696                             If (s1.Position = s1.Length) Then
11697                                 Return type
11698                             End If
11699                         End If
11700                         
11701                     Loop
11702                 Finally
11703                     If (Not (s1) Is Nothing) Then
11704                         s1.Close
11705                     End If
11706                     If (Not (s2) Is Nothing) Then
11707                         s2.Close
11708                     End If
11709                 End Try
11710             End If
11711             xs.Add(dsSchema)
11712             Return type
11713         End Function
11714     End Class
11715     
11716     '''<summary>
11717     '''Represents the strongly named DataTable class.
11718     '''</summary>
11719     <Global.System.Serializable(), _
11720      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
11721     Partial Public Class RegistrationDataTable
11722         Inherits Global.System.Data.TypedTableBase(Of RegistrationRow)
11723         
11724         Private columnUserID As Global.System.Data.DataColumn
11725         
11726         Private columnPassword As Global.System.Data.DataColumn
11727         
11728         Private columnName As Global.System.Data.DataColumn
11729         
11730         Private columnUsertype As Global.System.Data.DataColumn
11731         
11732         Private columnContactNo As Global.System.Data.DataColumn
11733         
11734         Private columnEmailID As Global.System.Data.DataColumn
11735         
11736         Private columnJoiningDate As Global.System.Data.DataColumn
11737         
11738         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11739          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11740         Public Sub New()
11741             MyBase.New
11742             Me.TableName = "Registration"
11743             Me.BeginInit
11744             Me.InitClass
11745             Me.EndInit
11746         End Sub
11747         
11748         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11749          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11750         Friend Sub New(ByVal table As Global.System.Data.DataTable)
11751             MyBase.New
11752             Me.TableName = table.TableName
11753             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
11754                 Me.CaseSensitive = table.CaseSensitive
11755             End If
11756             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
11757                 Me.Locale = table.Locale
11758             End If
11759             If (table.Namespace <> table.DataSet.Namespace) Then
11760                 Me.Namespace = table.Namespace
11761             End If
11762             Me.Prefix = table.Prefix
11763             Me.MinimumCapacity = table.MinimumCapacity
11764         End Sub
11765         
11766         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11767          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11768         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
11769             MyBase.New(info, context)
11770             Me.InitVars
11771         End Sub
11772         
11773         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11774          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11775         Public ReadOnly Property UserIDColumn() As Global.System.Data.DataColumn
11776             Get
11777                 Return Me.columnUserID
11778             End Get
11779         End Property
11780         
11781         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11782          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11783         Public ReadOnly Property PasswordColumn() As Global.System.Data.DataColumn
11784             Get
11785                 Return Me.columnPassword
11786             End Get
11787         End Property
11788         
11789         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11790          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11791         Public ReadOnly Property NameColumn() As Global.System.Data.DataColumn
11792             Get
11793                 Return Me.columnName
11794             End Get
11795         End Property
11796         
11797         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11798          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11799         Public ReadOnly Property UsertypeColumn() As Global.System.Data.DataColumn
11800             Get
11801                 Return Me.columnUsertype
11802             End Get
11803         End Property
11804         
11805         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11806          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11807         Public ReadOnly Property ContactNoColumn() As Global.System.Data.DataColumn
11808             Get
11809                 Return Me.columnContactNo
11810             End Get
11811         End Property
11812         
11813         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11814          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11815         Public ReadOnly Property EmailIDColumn() As Global.System.Data.DataColumn
11816             Get
11817                 Return Me.columnEmailID
11818             End Get
11819         End Property
11820         
11821         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11822          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11823         Public ReadOnly Property JoiningDateColumn() As Global.System.Data.DataColumn
11824             Get
11825                 Return Me.columnJoiningDate
11826             End Get
11827         End Property
11828         
11829         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11830          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
11831          Global.System.ComponentModel.Browsable(false)> _
11832         Public ReadOnly Property Count() As Integer
11833             Get
11834                 Return Me.Rows.Count
11835             End Get
11836         End Property
11837         
11838         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11839          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11840         Public Default ReadOnly Property Item(ByVal index As Integer) As RegistrationRow
11841             Get
11842                 Return CType(Me.Rows(index),RegistrationRow)
11843             End Get
11844         End Property
11845         
11846         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11847         Public Event RegistrationRowChanging As RegistrationRowChangeEventHandler
11848         
11849         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11850         Public Event RegistrationRowChanged As RegistrationRowChangeEventHandler
11851         
11852         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11853         Public Event RegistrationRowDeleting As RegistrationRowChangeEventHandler
11854         
11855         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11856         Public Event RegistrationRowDeleted As RegistrationRowChangeEventHandler
11857         
11858         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11859          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11860         Public Overloads Sub AddRegistrationRow(ByVal row As RegistrationRow)
11861             Me.Rows.Add(row)
11862         End Sub
11863         
11864         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11865          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11866         Public Overloads Function AddRegistrationRow(ByVal UserID As String, ByVal Password As String, ByVal Name As String, ByVal Usertype As String, ByVal ContactNo As String, ByVal EmailID As String, ByVal JoiningDate As Date) As RegistrationRow
11867             Dim rowRegistrationRow As RegistrationRow = CType(Me.NewRow,RegistrationRow)
11868             Dim columnValuesArray() As Object = New Object() {UserID, Password, Name, Usertype, ContactNo, EmailID, JoiningDate}
11869             rowRegistrationRow.ItemArray = columnValuesArray
11870             Me.Rows.Add(rowRegistrationRow)
11871             Return rowRegistrationRow
11872         End Function
11873         
11874         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11875          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11876         Public Function FindByUserID(ByVal UserID As String) As RegistrationRow
11877             Return CType(Me.Rows.Find(New Object() {UserID}),RegistrationRow)
11878         End Function
11879         
11880         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11881          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11882         Public Overrides Function Clone() As Global.System.Data.DataTable
11883             Dim cln As RegistrationDataTable = CType(MyBase.Clone,RegistrationDataTable)
11884             cln.InitVars
11885             Return cln
11886         End Function
11887         
11888         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11889          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11890         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
11891             Return New RegistrationDataTable()
11892         End Function
11893         
11894         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11895          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11896         Friend Sub InitVars()
11897             Me.columnUserID = MyBase.Columns("UserID")
11898             Me.columnPassword = MyBase.Columns("Password")
11899             Me.columnName = MyBase.Columns("Name")
11900             Me.columnUsertype = MyBase.Columns("Usertype")
11901             Me.columnContactNo = MyBase.Columns("ContactNo")
11902             Me.columnEmailID = MyBase.Columns("EmailID")
11903             Me.columnJoiningDate = MyBase.Columns("JoiningDate")
11904         End Sub
11905         
11906         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11907          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11908         Private Sub InitClass()
11909             Me.columnUserID = New Global.System.Data.DataColumn("UserID", GetType(String), Nothing, Global.System.Data.MappingType.Element)
11910             MyBase.Columns.Add(Me.columnUserID)
11911             Me.columnPassword = New Global.System.Data.DataColumn("Password", GetType(String), Nothing, Global.System.Data.MappingType.Element)
11912             MyBase.Columns.Add(Me.columnPassword)
11913             Me.columnName = New Global.System.Data.DataColumn("Name", GetType(String), Nothing, Global.System.Data.MappingType.Element)
11914             MyBase.Columns.Add(Me.columnName)
11915             Me.columnUsertype = New Global.System.Data.DataColumn("Usertype", GetType(String), Nothing, Global.System.Data.MappingType.Element)
11916             MyBase.Columns.Add(Me.columnUsertype)
11917             Me.columnContactNo = New Global.System.Data.DataColumn("ContactNo", GetType(String), Nothing, Global.System.Data.MappingType.Element)
11918             MyBase.Columns.Add(Me.columnContactNo)
11919             Me.columnEmailID = New Global.System.Data.DataColumn("EmailID", GetType(String), Nothing, Global.System.Data.MappingType.Element)
11920             MyBase.Columns.Add(Me.columnEmailID)
11921             Me.columnJoiningDate = New Global.System.Data.DataColumn("JoiningDate", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
11922             MyBase.Columns.Add(Me.columnJoiningDate)
11923             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnUserID}, true))
11924             Me.columnUserID.AllowDBNull = false
11925             Me.columnUserID.Unique = true
11926             Me.columnUserID.MaxLength = 100
11927             Me.columnPassword.AllowDBNull = false
11928             Me.columnPassword.MaxLength = 100
11929             Me.columnName.AllowDBNull = false
11930             Me.columnName.MaxLength = 250
11931             Me.columnUsertype.AllowDBNull = false
11932             Me.columnUsertype.MaxLength = 100
11933             Me.columnContactNo.AllowDBNull = false
11934             Me.columnContactNo.MaxLength = 15
11935             Me.columnEmailID.MaxLength = 100
11936         End Sub
11937         
11938         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11939          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11940         Public Function NewRegistrationRow() As RegistrationRow
11941             Return CType(Me.NewRow,RegistrationRow)
11942         End Function
11943         
11944         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11945          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11946         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
11947             Return New RegistrationRow(builder)
11948         End Function
11949         
11950         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11951          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11952         Protected Overrides Function GetRowType() As Global.System.Type
11953             Return GetType(RegistrationRow)
11954         End Function
11955         
11956         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11957          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11958         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
11959             MyBase.OnRowChanged(e)
11960             If (Not (Me.RegistrationRowChangedEvent) Is Nothing) Then
11961                 RaiseEvent RegistrationRowChanged(Me, New RegistrationRowChangeEvent(CType(e.Row,RegistrationRow), e.Action))
11962             End If
11963         End Sub
11964         
11965         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11966          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11967         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
11968             MyBase.OnRowChanging(e)
11969             If (Not (Me.RegistrationRowChangingEvent) Is Nothing) Then
11970                 RaiseEvent RegistrationRowChanging(Me, New RegistrationRowChangeEvent(CType(e.Row,RegistrationRow), e.Action))
11971             End If
11972         End Sub
11973         
11974         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11975          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11976         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
11977             MyBase.OnRowDeleted(e)
11978             If (Not (Me.RegistrationRowDeletedEvent) Is Nothing) Then
11979                 RaiseEvent RegistrationRowDeleted(Me, New RegistrationRowChangeEvent(CType(e.Row,RegistrationRow), e.Action))
11980             End If
11981         End Sub
11982         
11983         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11984          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11985         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
11986             MyBase.OnRowDeleting(e)
11987             If (Not (Me.RegistrationRowDeletingEvent) Is Nothing) Then
11988                 RaiseEvent RegistrationRowDeleting(Me, New RegistrationRowChangeEvent(CType(e.Row,RegistrationRow), e.Action))
11989             End If
11990         End Sub
11991         
11992         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11993          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11994         Public Sub RemoveRegistrationRow(ByVal row As RegistrationRow)
11995             Me.Rows.Remove(row)
11996         End Sub
11997         
11998         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11999          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12000         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
12001             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
12002             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
12003             Dim ds As ERPS_DBDataSet1 = New ERPS_DBDataSet1()
12004             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
12005             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
12006             any1.MinOccurs = New Decimal(0)
12007             any1.MaxOccurs = Decimal.MaxValue
12008             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
12009             sequence.Items.Add(any1)
12010             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
12011             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
12012             any2.MinOccurs = New Decimal(1)
12013             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
12014             sequence.Items.Add(any2)
12015             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
12016             attribute1.Name = "namespace"
12017             attribute1.FixedValue = ds.Namespace
12018             type.Attributes.Add(attribute1)
12019             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
12020             attribute2.Name = "tableTypeName"
12021             attribute2.FixedValue = "RegistrationDataTable"
12022             type.Attributes.Add(attribute2)
12023             type.Particle = sequence
12024             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
12025             If xs.Contains(dsSchema.TargetNamespace) Then
12026                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
12027                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
12028                 Try
12029                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
12030                     dsSchema.Write(s1)
12031                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
12032                     Do While schemas.MoveNext
12033                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
12034                         s2.SetLength(0)
12035                         schema.Write(s2)
12036                         If (s1.Length = s2.Length) Then
12037                             s1.Position = 0
12038                             s2.Position = 0
12039                             
12040                             Do While ((s1.Position <> s1.Length) _
12041                                         AndAlso (s1.ReadByte = s2.ReadByte))
12042                                 
12043                                 
12044                             Loop
12045                             If (s1.Position = s1.Length) Then
12046                                 Return type
12047                             End If
12048                         End If
12049                         
12050                     Loop
12051                 Finally
12052                     If (Not (s1) Is Nothing) Then
12053                         s1.Close
12054                     End If
12055                     If (Not (s2) Is Nothing) Then
12056                         s2.Close
12057                     End If
12058                 End Try
12059             End If
12060             xs.Add(dsSchema)
12061             Return type
12062         End Function
12063     End Class
12064     
12065     '''<summary>
12066     '''Represents the strongly named DataTable class.
12067     '''</summary>
12068     <Global.System.Serializable(), _
12069      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
12070     Partial Public Class SchoolInfoDataTable
12071         Inherits Global.System.Data.TypedTableBase(Of SchoolInfoRow)
12072         
12073         Private columnS_Id As Global.System.Data.DataColumn
12074         
12075         Private columnSchoolName As Global.System.Data.DataColumn
12076         
12077         Private columnAddress As Global.System.Data.DataColumn
12078         
12079         Private columnContactNo As Global.System.Data.DataColumn
12080         
12081         Private columnAltContactNo As Global.System.Data.DataColumn
12082         
12083         Private columnFaxNo As Global.System.Data.DataColumn
12084         
12085         Private columnEmail As Global.System.Data.DataColumn
12086         
12087         Private columnWebsite As Global.System.Data.DataColumn
12088         
12089         Private columnLogo As Global.System.Data.DataColumn
12090         
12091         Private columnRegistrationNo As Global.System.Data.DataColumn
12092         
12093         Private columnDiseNo As Global.System.Data.DataColumn
12094         
12095         Private columnIndexNo As Global.System.Data.DataColumn
12096         
12097         Private columnEstablishedYear As Global.System.Data.DataColumn
12098         
12099         Private columnClass As Global.System.Data.DataColumn
12100         
12101         Private columnSchoolType As Global.System.Data.DataColumn
12102         
12103         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12104          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12105         Public Sub New()
12106             MyBase.New
12107             Me.TableName = "SchoolInfo"
12108             Me.BeginInit
12109             Me.InitClass
12110             Me.EndInit
12111         End Sub
12112         
12113         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12114          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12115         Friend Sub New(ByVal table As Global.System.Data.DataTable)
12116             MyBase.New
12117             Me.TableName = table.TableName
12118             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
12119                 Me.CaseSensitive = table.CaseSensitive
12120             End If
12121             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
12122                 Me.Locale = table.Locale
12123             End If
12124             If (table.Namespace <> table.DataSet.Namespace) Then
12125                 Me.Namespace = table.Namespace
12126             End If
12127             Me.Prefix = table.Prefix
12128             Me.MinimumCapacity = table.MinimumCapacity
12129         End Sub
12130         
12131         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12132          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12133         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
12134             MyBase.New(info, context)
12135             Me.InitVars
12136         End Sub
12137         
12138         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12139          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12140         Public ReadOnly Property S_IdColumn() As Global.System.Data.DataColumn
12141             Get
12142                 Return Me.columnS_Id
12143             End Get
12144         End Property
12145         
12146         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12147          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12148         Public ReadOnly Property SchoolNameColumn() As Global.System.Data.DataColumn
12149             Get
12150                 Return Me.columnSchoolName
12151             End Get
12152         End Property
12153         
12154         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12155          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12156         Public ReadOnly Property AddressColumn() As Global.System.Data.DataColumn
12157             Get
12158                 Return Me.columnAddress
12159             End Get
12160         End Property
12161         
12162         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12163          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12164         Public ReadOnly Property ContactNoColumn() As Global.System.Data.DataColumn
12165             Get
12166                 Return Me.columnContactNo
12167             End Get
12168         End Property
12169         
12170         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12171          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12172         Public ReadOnly Property AltContactNoColumn() As Global.System.Data.DataColumn
12173             Get
12174                 Return Me.columnAltContactNo
12175             End Get
12176         End Property
12177         
12178         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12179          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12180         Public ReadOnly Property FaxNoColumn() As Global.System.Data.DataColumn
12181             Get
12182                 Return Me.columnFaxNo
12183             End Get
12184         End Property
12185         
12186         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12187          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12188         Public ReadOnly Property EmailColumn() As Global.System.Data.DataColumn
12189             Get
12190                 Return Me.columnEmail
12191             End Get
12192         End Property
12193         
12194         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12195          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12196         Public ReadOnly Property WebsiteColumn() As Global.System.Data.DataColumn
12197             Get
12198                 Return Me.columnWebsite
12199             End Get
12200         End Property
12201         
12202         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12203          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12204         Public ReadOnly Property LogoColumn() As Global.System.Data.DataColumn
12205             Get
12206                 Return Me.columnLogo
12207             End Get
12208         End Property
12209         
12210         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12211          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12212         Public ReadOnly Property RegistrationNoColumn() As Global.System.Data.DataColumn
12213             Get
12214                 Return Me.columnRegistrationNo
12215             End Get
12216         End Property
12217         
12218         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12219          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12220         Public ReadOnly Property DiseNoColumn() As Global.System.Data.DataColumn
12221             Get
12222                 Return Me.columnDiseNo
12223             End Get
12224         End Property
12225         
12226         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12227          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12228         Public ReadOnly Property IndexNoColumn() As Global.System.Data.DataColumn
12229             Get
12230                 Return Me.columnIndexNo
12231             End Get
12232         End Property
12233         
12234         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12235          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12236         Public ReadOnly Property EstablishedYearColumn() As Global.System.Data.DataColumn
12237             Get
12238                 Return Me.columnEstablishedYear
12239             End Get
12240         End Property
12241         
12242         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12243          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12244         Public ReadOnly Property ClassColumn() As Global.System.Data.DataColumn
12245             Get
12246                 Return Me.columnClass
12247             End Get
12248         End Property
12249         
12250         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12251          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12252         Public ReadOnly Property SchoolTypeColumn() As Global.System.Data.DataColumn
12253             Get
12254                 Return Me.columnSchoolType
12255             End Get
12256         End Property
12257         
12258         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12259          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
12260          Global.System.ComponentModel.Browsable(false)> _
12261         Public ReadOnly Property Count() As Integer
12262             Get
12263                 Return Me.Rows.Count
12264             End Get
12265         End Property
12266         
12267         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12268          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12269         Public Default ReadOnly Property Item(ByVal index As Integer) As SchoolInfoRow
12270             Get
12271                 Return CType(Me.Rows(index),SchoolInfoRow)
12272             End Get
12273         End Property
12274         
12275         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12276         Public Event SchoolInfoRowChanging As SchoolInfoRowChangeEventHandler
12277         
12278         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12279         Public Event SchoolInfoRowChanged As SchoolInfoRowChangeEventHandler
12280         
12281         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12282         Public Event SchoolInfoRowDeleting As SchoolInfoRowChangeEventHandler
12283         
12284         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12285         Public Event SchoolInfoRowDeleted As SchoolInfoRowChangeEventHandler
12286         
12287         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12288          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12289         Public Overloads Sub AddSchoolInfoRow(ByVal row As SchoolInfoRow)
12290             Me.Rows.Add(row)
12291         End Sub
12292         
12293         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12294          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12295         Public Overloads Function AddSchoolInfoRow(ByVal S_Id As Integer, ByVal SchoolName As String, ByVal Address As String, ByVal ContactNo As String, ByVal AltContactNo As String, ByVal FaxNo As String, ByVal Email As String, ByVal Website As String, ByVal Logo() As Byte, ByVal RegistrationNo As String, ByVal DiseNo As String, ByVal IndexNo As String, ByVal EstablishedYear As Integer, ByVal _Class As String, ByVal parentSchoolTypeRowByFK_SchoolInfo_SchoolType As SchoolTypeRow) As SchoolInfoRow
12296             Dim rowSchoolInfoRow As SchoolInfoRow = CType(Me.NewRow,SchoolInfoRow)
12297             Dim columnValuesArray() As Object = New Object() {S_Id, SchoolName, Address, ContactNo, AltContactNo, FaxNo, Email, Website, Logo, RegistrationNo, DiseNo, IndexNo, EstablishedYear, _Class, Nothing}
12298             If (Not (parentSchoolTypeRowByFK_SchoolInfo_SchoolType) Is Nothing) Then
12299                 columnValuesArray(14) = parentSchoolTypeRowByFK_SchoolInfo_SchoolType(0)
12300             End If
12301             rowSchoolInfoRow.ItemArray = columnValuesArray
12302             Me.Rows.Add(rowSchoolInfoRow)
12303             Return rowSchoolInfoRow
12304         End Function
12305         
12306         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12307          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12308         Public Function FindByS_Id(ByVal S_Id As Integer) As SchoolInfoRow
12309             Return CType(Me.Rows.Find(New Object() {S_Id}),SchoolInfoRow)
12310         End Function
12311         
12312         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12313          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12314         Public Overrides Function Clone() As Global.System.Data.DataTable
12315             Dim cln As SchoolInfoDataTable = CType(MyBase.Clone,SchoolInfoDataTable)
12316             cln.InitVars
12317             Return cln
12318         End Function
12319         
12320         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12321          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12322         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
12323             Return New SchoolInfoDataTable()
12324         End Function
12325         
12326         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12327          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12328         Friend Sub InitVars()
12329             Me.columnS_Id = MyBase.Columns("S_Id")
12330             Me.columnSchoolName = MyBase.Columns("SchoolName")
12331             Me.columnAddress = MyBase.Columns("Address")
12332             Me.columnContactNo = MyBase.Columns("ContactNo")
12333             Me.columnAltContactNo = MyBase.Columns("AltContactNo")
12334             Me.columnFaxNo = MyBase.Columns("FaxNo")
12335             Me.columnEmail = MyBase.Columns("Email")
12336             Me.columnWebsite = MyBase.Columns("Website")
12337             Me.columnLogo = MyBase.Columns("Logo")
12338             Me.columnRegistrationNo = MyBase.Columns("RegistrationNo")
12339             Me.columnDiseNo = MyBase.Columns("DiseNo")
12340             Me.columnIndexNo = MyBase.Columns("IndexNo")
12341             Me.columnEstablishedYear = MyBase.Columns("EstablishedYear")
12342             Me.columnClass = MyBase.Columns("Class")
12343             Me.columnSchoolType = MyBase.Columns("SchoolType")
12344         End Sub
12345         
12346         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12347          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12348         Private Sub InitClass()
12349             Me.columnS_Id = New Global.System.Data.DataColumn("S_Id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
12350             MyBase.Columns.Add(Me.columnS_Id)
12351             Me.columnSchoolName = New Global.System.Data.DataColumn("SchoolName", GetType(String), Nothing, Global.System.Data.MappingType.Element)
12352             MyBase.Columns.Add(Me.columnSchoolName)
12353             Me.columnAddress = New Global.System.Data.DataColumn("Address", GetType(String), Nothing, Global.System.Data.MappingType.Element)
12354             MyBase.Columns.Add(Me.columnAddress)
12355             Me.columnContactNo = New Global.System.Data.DataColumn("ContactNo", GetType(String), Nothing, Global.System.Data.MappingType.Element)
12356             MyBase.Columns.Add(Me.columnContactNo)
12357             Me.columnAltContactNo = New Global.System.Data.DataColumn("AltContactNo", GetType(String), Nothing, Global.System.Data.MappingType.Element)
12358             MyBase.Columns.Add(Me.columnAltContactNo)
12359             Me.columnFaxNo = New Global.System.Data.DataColumn("FaxNo", GetType(String), Nothing, Global.System.Data.MappingType.Element)
12360             MyBase.Columns.Add(Me.columnFaxNo)
12361             Me.columnEmail = New Global.System.Data.DataColumn("Email", GetType(String), Nothing, Global.System.Data.MappingType.Element)
12362             MyBase.Columns.Add(Me.columnEmail)
12363             Me.columnWebsite = New Global.System.Data.DataColumn("Website", GetType(String), Nothing, Global.System.Data.MappingType.Element)
12364             MyBase.Columns.Add(Me.columnWebsite)
12365             Me.columnLogo = New Global.System.Data.DataColumn("Logo", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element)
12366             MyBase.Columns.Add(Me.columnLogo)
12367             Me.columnRegistrationNo = New Global.System.Data.DataColumn("RegistrationNo", GetType(String), Nothing, Global.System.Data.MappingType.Element)
12368             MyBase.Columns.Add(Me.columnRegistrationNo)
12369             Me.columnDiseNo = New Global.System.Data.DataColumn("DiseNo", GetType(String), Nothing, Global.System.Data.MappingType.Element)
12370             MyBase.Columns.Add(Me.columnDiseNo)
12371             Me.columnIndexNo = New Global.System.Data.DataColumn("IndexNo", GetType(String), Nothing, Global.System.Data.MappingType.Element)
12372             MyBase.Columns.Add(Me.columnIndexNo)
12373             Me.columnEstablishedYear = New Global.System.Data.DataColumn("EstablishedYear", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
12374             MyBase.Columns.Add(Me.columnEstablishedYear)
12375             Me.columnClass = New Global.System.Data.DataColumn("Class", GetType(String), Nothing, Global.System.Data.MappingType.Element)
12376             Me.columnClass.ExtendedProperties.Add("Generator_ColumnPropNameInTable", "ClassColumn")
12377             Me.columnClass.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "columnClass")
12378             Me.columnClass.ExtendedProperties.Add("Generator_UserColumnName", "Class")
12379             MyBase.Columns.Add(Me.columnClass)
12380             Me.columnSchoolType = New Global.System.Data.DataColumn("SchoolType", GetType(String), Nothing, Global.System.Data.MappingType.Element)
12381             MyBase.Columns.Add(Me.columnSchoolType)
12382             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnS_Id}, true))
12383             Me.columnS_Id.AllowDBNull = false
12384             Me.columnS_Id.Unique = true
12385             Me.columnSchoolName.AllowDBNull = false
12386             Me.columnSchoolName.MaxLength = 250
12387             Me.columnAddress.AllowDBNull = false
12388             Me.columnAddress.MaxLength = 250
12389             Me.columnContactNo.AllowDBNull = false
12390             Me.columnContactNo.MaxLength = 50
12391             Me.columnAltContactNo.MaxLength = 50
12392             Me.columnFaxNo.MaxLength = 50
12393             Me.columnEmail.AllowDBNull = false
12394             Me.columnEmail.MaxLength = 250
12395             Me.columnWebsite.MaxLength = 250
12396             Me.columnLogo.AllowDBNull = false
12397             Me.columnRegistrationNo.MaxLength = 150
12398             Me.columnDiseNo.MaxLength = 150
12399             Me.columnIndexNo.MaxLength = 10
12400             Me.columnEstablishedYear.AllowDBNull = false
12401             Me.columnClass.MaxLength = 50
12402             Me.columnSchoolType.AllowDBNull = false
12403             Me.columnSchoolType.MaxLength = 150
12404         End Sub
12405         
12406         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12407          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12408         Public Function NewSchoolInfoRow() As SchoolInfoRow
12409             Return CType(Me.NewRow,SchoolInfoRow)
12410         End Function
12411         
12412         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12413          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12414         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
12415             Return New SchoolInfoRow(builder)
12416         End Function
12417         
12418         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12419          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12420         Protected Overrides Function GetRowType() As Global.System.Type
12421             Return GetType(SchoolInfoRow)
12422         End Function
12423         
12424         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12425          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12426         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
12427             MyBase.OnRowChanged(e)
12428             If (Not (Me.SchoolInfoRowChangedEvent) Is Nothing) Then
12429                 RaiseEvent SchoolInfoRowChanged(Me, New SchoolInfoRowChangeEvent(CType(e.Row,SchoolInfoRow), e.Action))
12430             End If
12431         End Sub
12432         
12433         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12434          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12435         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
12436             MyBase.OnRowChanging(e)
12437             If (Not (Me.SchoolInfoRowChangingEvent) Is Nothing) Then
12438                 RaiseEvent SchoolInfoRowChanging(Me, New SchoolInfoRowChangeEvent(CType(e.Row,SchoolInfoRow), e.Action))
12439             End If
12440         End Sub
12441         
12442         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12443          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12444         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
12445             MyBase.OnRowDeleted(e)
12446             If (Not (Me.SchoolInfoRowDeletedEvent) Is Nothing) Then
12447                 RaiseEvent SchoolInfoRowDeleted(Me, New SchoolInfoRowChangeEvent(CType(e.Row,SchoolInfoRow), e.Action))
12448             End If
12449         End Sub
12450         
12451         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12452          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12453         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
12454             MyBase.OnRowDeleting(e)
12455             If (Not (Me.SchoolInfoRowDeletingEvent) Is Nothing) Then
12456                 RaiseEvent SchoolInfoRowDeleting(Me, New SchoolInfoRowChangeEvent(CType(e.Row,SchoolInfoRow), e.Action))
12457             End If
12458         End Sub
12459         
12460         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12461          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12462         Public Sub RemoveSchoolInfoRow(ByVal row As SchoolInfoRow)
12463             Me.Rows.Remove(row)
12464         End Sub
12465         
12466         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12467          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12468         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
12469             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
12470             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
12471             Dim ds As ERPS_DBDataSet1 = New ERPS_DBDataSet1()
12472             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
12473             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
12474             any1.MinOccurs = New Decimal(0)
12475             any1.MaxOccurs = Decimal.MaxValue
12476             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
12477             sequence.Items.Add(any1)
12478             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
12479             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
12480             any2.MinOccurs = New Decimal(1)
12481             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
12482             sequence.Items.Add(any2)
12483             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
12484             attribute1.Name = "namespace"
12485             attribute1.FixedValue = ds.Namespace
12486             type.Attributes.Add(attribute1)
12487             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
12488             attribute2.Name = "tableTypeName"
12489             attribute2.FixedValue = "SchoolInfoDataTable"
12490             type.Attributes.Add(attribute2)
12491             type.Particle = sequence
12492             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
12493             If xs.Contains(dsSchema.TargetNamespace) Then
12494                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
12495                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
12496                 Try
12497                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
12498                     dsSchema.Write(s1)
12499                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
12500                     Do While schemas.MoveNext
12501                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
12502                         s2.SetLength(0)
12503                         schema.Write(s2)
12504                         If (s1.Length = s2.Length) Then
12505                             s1.Position = 0
12506                             s2.Position = 0
12507                             
12508                             Do While ((s1.Position <> s1.Length) _
12509                                         AndAlso (s1.ReadByte = s2.ReadByte))
12510                                 
12511                                 
12512                             Loop
12513                             If (s1.Position = s1.Length) Then
12514                                 Return type
12515                             End If
12516                         End If
12517                         
12518                     Loop
12519                 Finally
12520                     If (Not (s1) Is Nothing) Then
12521                         s1.Close
12522                     End If
12523                     If (Not (s2) Is Nothing) Then
12524                         s2.Close
12525                     End If
12526                 End Try
12527             End If
12528             xs.Add(dsSchema)
12529             Return type
12530         End Function
12531     End Class
12532     
12533     '''<summary>
12534     '''Represents the strongly named DataTable class.
12535     '''</summary>
12536     <Global.System.Serializable(), _
12537      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
12538     Partial Public Class SchoolTypeDataTable
12539         Inherits Global.System.Data.TypedTableBase(Of SchoolTypeRow)
12540         
12541         Private columnType As Global.System.Data.DataColumn
12542         
12543         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12544          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12545         Public Sub New()
12546             MyBase.New
12547             Me.TableName = "SchoolType"
12548             Me.BeginInit
12549             Me.InitClass
12550             Me.EndInit
12551         End Sub
12552         
12553         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12554          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12555         Friend Sub New(ByVal table As Global.System.Data.DataTable)
12556             MyBase.New
12557             Me.TableName = table.TableName
12558             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
12559                 Me.CaseSensitive = table.CaseSensitive
12560             End If
12561             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
12562                 Me.Locale = table.Locale
12563             End If
12564             If (table.Namespace <> table.DataSet.Namespace) Then
12565                 Me.Namespace = table.Namespace
12566             End If
12567             Me.Prefix = table.Prefix
12568             Me.MinimumCapacity = table.MinimumCapacity
12569         End Sub
12570         
12571         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12572          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12573         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
12574             MyBase.New(info, context)
12575             Me.InitVars
12576         End Sub
12577         
12578         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12579          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12580         Public ReadOnly Property TypeColumn() As Global.System.Data.DataColumn
12581             Get
12582                 Return Me.columnType
12583             End Get
12584         End Property
12585         
12586         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12587          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
12588          Global.System.ComponentModel.Browsable(false)> _
12589         Public ReadOnly Property Count() As Integer
12590             Get
12591                 Return Me.Rows.Count
12592             End Get
12593         End Property
12594         
12595         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12596          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12597         Public Default ReadOnly Property Item(ByVal index As Integer) As SchoolTypeRow
12598             Get
12599                 Return CType(Me.Rows(index),SchoolTypeRow)
12600             End Get
12601         End Property
12602         
12603         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12604         Public Event SchoolTypeRowChanging As SchoolTypeRowChangeEventHandler
12605         
12606         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12607         Public Event SchoolTypeRowChanged As SchoolTypeRowChangeEventHandler
12608         
12609         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12610         Public Event SchoolTypeRowDeleting As SchoolTypeRowChangeEventHandler
12611         
12612         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12613         Public Event SchoolTypeRowDeleted As SchoolTypeRowChangeEventHandler
12614         
12615         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12616          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12617         Public Overloads Sub AddSchoolTypeRow(ByVal row As SchoolTypeRow)
12618             Me.Rows.Add(row)
12619         End Sub
12620         
12621         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12622          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12623         Public Overloads Function AddSchoolTypeRow(ByVal Type As String) As SchoolTypeRow
12624             Dim rowSchoolTypeRow As SchoolTypeRow = CType(Me.NewRow,SchoolTypeRow)
12625             Dim columnValuesArray() As Object = New Object() {Type}
12626             rowSchoolTypeRow.ItemArray = columnValuesArray
12627             Me.Rows.Add(rowSchoolTypeRow)
12628             Return rowSchoolTypeRow
12629         End Function
12630         
12631         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12632          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12633         Public Function FindByType(ByVal Type As String) As SchoolTypeRow
12634             Return CType(Me.Rows.Find(New Object() {Type}),SchoolTypeRow)
12635         End Function
12636         
12637         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12638          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12639         Public Overrides Function Clone() As Global.System.Data.DataTable
12640             Dim cln As SchoolTypeDataTable = CType(MyBase.Clone,SchoolTypeDataTable)
12641             cln.InitVars
12642             Return cln
12643         End Function
12644         
12645         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12646          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12647         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
12648             Return New SchoolTypeDataTable()
12649         End Function
12650         
12651         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12652          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12653         Friend Sub InitVars()
12654             Me.columnType = MyBase.Columns("Type")
12655         End Sub
12656         
12657         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12658          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12659         Private Sub InitClass()
12660             Me.columnType = New Global.System.Data.DataColumn("Type", GetType(String), Nothing, Global.System.Data.MappingType.Element)
12661             MyBase.Columns.Add(Me.columnType)
12662             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnType}, true))
12663             Me.columnType.AllowDBNull = false
12664             Me.columnType.Unique = true
12665             Me.columnType.MaxLength = 150
12666         End Sub
12667         
12668         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12669          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12670         Public Function NewSchoolTypeRow() As SchoolTypeRow
12671             Return CType(Me.NewRow,SchoolTypeRow)
12672         End Function
12673         
12674         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12675          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12676         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
12677             Return New SchoolTypeRow(builder)
12678         End Function
12679         
12680         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12681          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12682         Protected Overrides Function GetRowType() As Global.System.Type
12683             Return GetType(SchoolTypeRow)
12684         End Function
12685         
12686         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12687          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12688         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
12689             MyBase.OnRowChanged(e)
12690             If (Not (Me.SchoolTypeRowChangedEvent) Is Nothing) Then
12691                 RaiseEvent SchoolTypeRowChanged(Me, New SchoolTypeRowChangeEvent(CType(e.Row,SchoolTypeRow), e.Action))
12692             End If
12693         End Sub
12694         
12695         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12696          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12697         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
12698             MyBase.OnRowChanging(e)
12699             If (Not (Me.SchoolTypeRowChangingEvent) Is Nothing) Then
12700                 RaiseEvent SchoolTypeRowChanging(Me, New SchoolTypeRowChangeEvent(CType(e.Row,SchoolTypeRow), e.Action))
12701             End If
12702         End Sub
12703         
12704         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12705          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12706         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
12707             MyBase.OnRowDeleted(e)
12708             If (Not (Me.SchoolTypeRowDeletedEvent) Is Nothing) Then
12709                 RaiseEvent SchoolTypeRowDeleted(Me, New SchoolTypeRowChangeEvent(CType(e.Row,SchoolTypeRow), e.Action))
12710             End If
12711         End Sub
12712         
12713         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12714          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12715         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
12716             MyBase.OnRowDeleting(e)
12717             If (Not (Me.SchoolTypeRowDeletingEvent) Is Nothing) Then
12718                 RaiseEvent SchoolTypeRowDeleting(Me, New SchoolTypeRowChangeEvent(CType(e.Row,SchoolTypeRow), e.Action))
12719             End If
12720         End Sub
12721         
12722         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12723          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12724         Public Sub RemoveSchoolTypeRow(ByVal row As SchoolTypeRow)
12725             Me.Rows.Remove(row)
12726         End Sub
12727         
12728         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12729          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12730         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
12731             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
12732             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
12733             Dim ds As ERPS_DBDataSet1 = New ERPS_DBDataSet1()
12734             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
12735             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
12736             any1.MinOccurs = New Decimal(0)
12737             any1.MaxOccurs = Decimal.MaxValue
12738             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
12739             sequence.Items.Add(any1)
12740             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
12741             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
12742             any2.MinOccurs = New Decimal(1)
12743             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
12744             sequence.Items.Add(any2)
12745             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
12746             attribute1.Name = "namespace"
12747             attribute1.FixedValue = ds.Namespace
12748             type.Attributes.Add(attribute1)
12749             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
12750             attribute2.Name = "tableTypeName"
12751             attribute2.FixedValue = "SchoolTypeDataTable"
12752             type.Attributes.Add(attribute2)
12753             type.Particle = sequence
12754             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
12755             If xs.Contains(dsSchema.TargetNamespace) Then
12756                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
12757                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
12758                 Try
12759                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
12760                     dsSchema.Write(s1)
12761                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
12762                     Do While schemas.MoveNext
12763                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
12764                         s2.SetLength(0)
12765                         schema.Write(s2)
12766                         If (s1.Length = s2.Length) Then
12767                             s1.Position = 0
12768                             s2.Position = 0
12769                             
12770                             Do While ((s1.Position <> s1.Length) _
12771                                         AndAlso (s1.ReadByte = s2.ReadByte))
12772                                 
12773                                 
12774                             Loop
12775                             If (s1.Position = s1.Length) Then
12776                                 Return type
12777                             End If
12778                         End If
12779                         
12780                     Loop
12781                 Finally
12782                     If (Not (s1) Is Nothing) Then
12783                         s1.Close
12784                     End If
12785                     If (Not (s2) Is Nothing) Then
12786                         s2.Close
12787                     End If
12788                 End Try
12789             End If
12790             xs.Add(dsSchema)
12791             Return type
12792         End Function
12793     End Class
12794     
12795     '''<summary>
12796     '''Represents the strongly named DataTable class.
12797     '''</summary>
12798     <Global.System.Serializable(), _
12799      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
12800     Partial Public Class SectionDataTable
12801         Inherits Global.System.Data.TypedTableBase(Of SectionRow)
12802         
12803         Private columnId As Global.System.Data.DataColumn
12804         
12805         Private columnSectionName As Global.System.Data.DataColumn
12806         
12807         Private columnClass As Global.System.Data.DataColumn
12808         
12809         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12810          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12811         Public Sub New()
12812             MyBase.New
12813             Me.TableName = "Section"
12814             Me.BeginInit
12815             Me.InitClass
12816             Me.EndInit
12817         End Sub
12818         
12819         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12820          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12821         Friend Sub New(ByVal table As Global.System.Data.DataTable)
12822             MyBase.New
12823             Me.TableName = table.TableName
12824             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
12825                 Me.CaseSensitive = table.CaseSensitive
12826             End If
12827             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
12828                 Me.Locale = table.Locale
12829             End If
12830             If (table.Namespace <> table.DataSet.Namespace) Then
12831                 Me.Namespace = table.Namespace
12832             End If
12833             Me.Prefix = table.Prefix
12834             Me.MinimumCapacity = table.MinimumCapacity
12835         End Sub
12836         
12837         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12838          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12839         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
12840             MyBase.New(info, context)
12841             Me.InitVars
12842         End Sub
12843         
12844         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12845          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12846         Public ReadOnly Property IdColumn() As Global.System.Data.DataColumn
12847             Get
12848                 Return Me.columnId
12849             End Get
12850         End Property
12851         
12852         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12853          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12854         Public ReadOnly Property SectionNameColumn() As Global.System.Data.DataColumn
12855             Get
12856                 Return Me.columnSectionName
12857             End Get
12858         End Property
12859         
12860         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12861          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12862         Public ReadOnly Property ClassColumn() As Global.System.Data.DataColumn
12863             Get
12864                 Return Me.columnClass
12865             End Get
12866         End Property
12867         
12868         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12869          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
12870          Global.System.ComponentModel.Browsable(false)> _
12871         Public ReadOnly Property Count() As Integer
12872             Get
12873                 Return Me.Rows.Count
12874             End Get
12875         End Property
12876         
12877         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12878          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12879         Public Default ReadOnly Property Item(ByVal index As Integer) As SectionRow
12880             Get
12881                 Return CType(Me.Rows(index),SectionRow)
12882             End Get
12883         End Property
12884         
12885         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12886         Public Event SectionRowChanging As SectionRowChangeEventHandler
12887         
12888         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12889         Public Event SectionRowChanged As SectionRowChangeEventHandler
12890         
12891         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12892         Public Event SectionRowDeleting As SectionRowChangeEventHandler
12893         
12894         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12895         Public Event SectionRowDeleted As SectionRowChangeEventHandler
12896         
12897         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12898          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12899         Public Overloads Sub AddSectionRow(ByVal row As SectionRow)
12900             Me.Rows.Add(row)
12901         End Sub
12902         
12903         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12904          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12905         Public Overloads Function AddSectionRow(ByVal Id As Integer, ByVal SectionName As String, ByVal parentClassRowByFK_Section_Class As ClassRow) As SectionRow
12906             Dim rowSectionRow As SectionRow = CType(Me.NewRow,SectionRow)
12907             Dim columnValuesArray() As Object = New Object() {Id, SectionName, Nothing}
12908             If (Not (parentClassRowByFK_Section_Class) Is Nothing) Then
12909                 columnValuesArray(2) = parentClassRowByFK_Section_Class(0)
12910             End If
12911             rowSectionRow.ItemArray = columnValuesArray
12912             Me.Rows.Add(rowSectionRow)
12913             Return rowSectionRow
12914         End Function
12915         
12916         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12917          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12918         Public Function FindById(ByVal Id As Integer) As SectionRow
12919             Return CType(Me.Rows.Find(New Object() {Id}),SectionRow)
12920         End Function
12921         
12922         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12923          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12924         Public Overrides Function Clone() As Global.System.Data.DataTable
12925             Dim cln As SectionDataTable = CType(MyBase.Clone,SectionDataTable)
12926             cln.InitVars
12927             Return cln
12928         End Function
12929         
12930         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12931          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12932         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
12933             Return New SectionDataTable()
12934         End Function
12935         
12936         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12937          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12938         Friend Sub InitVars()
12939             Me.columnId = MyBase.Columns("Id")
12940             Me.columnSectionName = MyBase.Columns("SectionName")
12941             Me.columnClass = MyBase.Columns("Class")
12942         End Sub
12943         
12944         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12945          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12946         Private Sub InitClass()
12947             Me.columnId = New Global.System.Data.DataColumn("Id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
12948             MyBase.Columns.Add(Me.columnId)
12949             Me.columnSectionName = New Global.System.Data.DataColumn("SectionName", GetType(String), Nothing, Global.System.Data.MappingType.Element)
12950             MyBase.Columns.Add(Me.columnSectionName)
12951             Me.columnClass = New Global.System.Data.DataColumn("Class", GetType(String), Nothing, Global.System.Data.MappingType.Element)
12952             Me.columnClass.ExtendedProperties.Add("Generator_ColumnPropNameInTable", "ClassColumn")
12953             Me.columnClass.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "columnClass")
12954             Me.columnClass.ExtendedProperties.Add("Generator_UserColumnName", "Class")
12955             MyBase.Columns.Add(Me.columnClass)
12956             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnId}, true))
12957             Me.columnId.AllowDBNull = false
12958             Me.columnId.Unique = true
12959             Me.columnSectionName.AllowDBNull = false
12960             Me.columnSectionName.MaxLength = 15
12961             Me.columnClass.AllowDBNull = false
12962             Me.columnClass.MaxLength = 100
12963         End Sub
12964         
12965         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12966          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12967         Public Function NewSectionRow() As SectionRow
12968             Return CType(Me.NewRow,SectionRow)
12969         End Function
12970         
12971         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12972          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12973         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
12974             Return New SectionRow(builder)
12975         End Function
12976         
12977         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12978          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12979         Protected Overrides Function GetRowType() As Global.System.Type
12980             Return GetType(SectionRow)
12981         End Function
12982         
12983         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12984          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12985         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
12986             MyBase.OnRowChanged(e)
12987             If (Not (Me.SectionRowChangedEvent) Is Nothing) Then
12988                 RaiseEvent SectionRowChanged(Me, New SectionRowChangeEvent(CType(e.Row,SectionRow), e.Action))
12989             End If
12990         End Sub
12991         
12992         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12993          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12994         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
12995             MyBase.OnRowChanging(e)
12996             If (Not (Me.SectionRowChangingEvent) Is Nothing) Then
12997                 RaiseEvent SectionRowChanging(Me, New SectionRowChangeEvent(CType(e.Row,SectionRow), e.Action))
12998             End If
12999         End Sub
13000         
13001         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13002          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13003         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
13004             MyBase.OnRowDeleted(e)
13005             If (Not (Me.SectionRowDeletedEvent) Is Nothing) Then
13006                 RaiseEvent SectionRowDeleted(Me, New SectionRowChangeEvent(CType(e.Row,SectionRow), e.Action))
13007             End If
13008         End Sub
13009         
13010         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13011          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13012         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
13013             MyBase.OnRowDeleting(e)
13014             If (Not (Me.SectionRowDeletingEvent) Is Nothing) Then
13015                 RaiseEvent SectionRowDeleting(Me, New SectionRowChangeEvent(CType(e.Row,SectionRow), e.Action))
13016             End If
13017         End Sub
13018         
13019         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13020          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13021         Public Sub RemoveSectionRow(ByVal row As SectionRow)
13022             Me.Rows.Remove(row)
13023         End Sub
13024         
13025         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13026          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13027         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
13028             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
13029             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
13030             Dim ds As ERPS_DBDataSet1 = New ERPS_DBDataSet1()
13031             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
13032             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
13033             any1.MinOccurs = New Decimal(0)
13034             any1.MaxOccurs = Decimal.MaxValue
13035             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
13036             sequence.Items.Add(any1)
13037             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
13038             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
13039             any2.MinOccurs = New Decimal(1)
13040             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
13041             sequence.Items.Add(any2)
13042             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
13043             attribute1.Name = "namespace"
13044             attribute1.FixedValue = ds.Namespace
13045             type.Attributes.Add(attribute1)
13046             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
13047             attribute2.Name = "tableTypeName"
13048             attribute2.FixedValue = "SectionDataTable"
13049             type.Attributes.Add(attribute2)
13050             type.Particle = sequence
13051             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
13052             If xs.Contains(dsSchema.TargetNamespace) Then
13053                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
13054                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
13055                 Try
13056                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
13057                     dsSchema.Write(s1)
13058                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
13059                     Do While schemas.MoveNext
13060                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
13061                         s2.SetLength(0)
13062                         schema.Write(s2)
13063                         If (s1.Length = s2.Length) Then
13064                             s1.Position = 0
13065                             s2.Position = 0
13066                             
13067                             Do While ((s1.Position <> s1.Length) _
13068                                         AndAlso (s1.ReadByte = s2.ReadByte))
13069                                 
13070                                 
13071                             Loop
13072                             If (s1.Position = s1.Length) Then
13073                                 Return type
13074                             End If
13075                         End If
13076                         
13077                     Loop
13078                 Finally
13079                     If (Not (s1) Is Nothing) Then
13080                         s1.Close
13081                     End If
13082                     If (Not (s2) Is Nothing) Then
13083                         s2.Close
13084                     End If
13085                 End Try
13086             End If
13087             xs.Add(dsSchema)
13088             Return type
13089         End Function
13090     End Class
13091     
13092     '''<summary>
13093     '''Represents the strongly named DataTable class.
13094     '''</summary>
13095     <Global.System.Serializable(), _
13096      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
13097     Partial Public Class Session_MasterDataTable
13098         Inherits Global.System.Data.TypedTableBase(Of Session_MasterRow)
13099         
13100         Private columnSession As Global.System.Data.DataColumn
13101         
13102         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13103          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13104         Public Sub New()
13105             MyBase.New
13106             Me.TableName = "Session_Master"
13107             Me.BeginInit
13108             Me.InitClass
13109             Me.EndInit
13110         End Sub
13111         
13112         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13113          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13114         Friend Sub New(ByVal table As Global.System.Data.DataTable)
13115             MyBase.New
13116             Me.TableName = table.TableName
13117             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
13118                 Me.CaseSensitive = table.CaseSensitive
13119             End If
13120             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
13121                 Me.Locale = table.Locale
13122             End If
13123             If (table.Namespace <> table.DataSet.Namespace) Then
13124                 Me.Namespace = table.Namespace
13125             End If
13126             Me.Prefix = table.Prefix
13127             Me.MinimumCapacity = table.MinimumCapacity
13128         End Sub
13129         
13130         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13131          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13132         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
13133             MyBase.New(info, context)
13134             Me.InitVars
13135         End Sub
13136         
13137         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13138          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13139         Public ReadOnly Property SessionColumn() As Global.System.Data.DataColumn
13140             Get
13141                 Return Me.columnSession
13142             End Get
13143         End Property
13144         
13145         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13146          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
13147          Global.System.ComponentModel.Browsable(false)> _
13148         Public ReadOnly Property Count() As Integer
13149             Get
13150                 Return Me.Rows.Count
13151             End Get
13152         End Property
13153         
13154         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13155          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13156         Public Default ReadOnly Property Item(ByVal index As Integer) As Session_MasterRow
13157             Get
13158                 Return CType(Me.Rows(index),Session_MasterRow)
13159             End Get
13160         End Property
13161         
13162         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13163         Public Event Session_MasterRowChanging As Session_MasterRowChangeEventHandler
13164         
13165         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13166         Public Event Session_MasterRowChanged As Session_MasterRowChangeEventHandler
13167         
13168         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13169         Public Event Session_MasterRowDeleting As Session_MasterRowChangeEventHandler
13170         
13171         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13172         Public Event Session_MasterRowDeleted As Session_MasterRowChangeEventHandler
13173         
13174         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13175          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13176         Public Overloads Sub AddSession_MasterRow(ByVal row As Session_MasterRow)
13177             Me.Rows.Add(row)
13178         End Sub
13179         
13180         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13181          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13182         Public Overloads Function AddSession_MasterRow(ByVal Session As String) As Session_MasterRow
13183             Dim rowSession_MasterRow As Session_MasterRow = CType(Me.NewRow,Session_MasterRow)
13184             Dim columnValuesArray() As Object = New Object() {Session}
13185             rowSession_MasterRow.ItemArray = columnValuesArray
13186             Me.Rows.Add(rowSession_MasterRow)
13187             Return rowSession_MasterRow
13188         End Function
13189         
13190         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13191          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13192         Public Function FindBySession(ByVal Session As String) As Session_MasterRow
13193             Return CType(Me.Rows.Find(New Object() {Session}),Session_MasterRow)
13194         End Function
13195         
13196         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13197          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13198         Public Overrides Function Clone() As Global.System.Data.DataTable
13199             Dim cln As Session_MasterDataTable = CType(MyBase.Clone,Session_MasterDataTable)
13200             cln.InitVars
13201             Return cln
13202         End Function
13203         
13204         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13205          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13206         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
13207             Return New Session_MasterDataTable()
13208         End Function
13209         
13210         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13211          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13212         Friend Sub InitVars()
13213             Me.columnSession = MyBase.Columns("Session")
13214         End Sub
13215         
13216         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13217          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13218         Private Sub InitClass()
13219             Me.columnSession = New Global.System.Data.DataColumn("Session", GetType(String), Nothing, Global.System.Data.MappingType.Element)
13220             MyBase.Columns.Add(Me.columnSession)
13221             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnSession}, true))
13222             Me.columnSession.AllowDBNull = false
13223             Me.columnSession.Unique = true
13224             Me.columnSession.MaxLength = 15
13225         End Sub
13226         
13227         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13228          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13229         Public Function NewSession_MasterRow() As Session_MasterRow
13230             Return CType(Me.NewRow,Session_MasterRow)
13231         End Function
13232         
13233         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13234          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13235         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
13236             Return New Session_MasterRow(builder)
13237         End Function
13238         
13239         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13240          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13241         Protected Overrides Function GetRowType() As Global.System.Type
13242             Return GetType(Session_MasterRow)
13243         End Function
13244         
13245         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13246          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13247         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
13248             MyBase.OnRowChanged(e)
13249             If (Not (Me.Session_MasterRowChangedEvent) Is Nothing) Then
13250                 RaiseEvent Session_MasterRowChanged(Me, New Session_MasterRowChangeEvent(CType(e.Row,Session_MasterRow), e.Action))
13251             End If
13252         End Sub
13253         
13254         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13255          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13256         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
13257             MyBase.OnRowChanging(e)
13258             If (Not (Me.Session_MasterRowChangingEvent) Is Nothing) Then
13259                 RaiseEvent Session_MasterRowChanging(Me, New Session_MasterRowChangeEvent(CType(e.Row,Session_MasterRow), e.Action))
13260             End If
13261         End Sub
13262         
13263         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13264          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13265         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
13266             MyBase.OnRowDeleted(e)
13267             If (Not (Me.Session_MasterRowDeletedEvent) Is Nothing) Then
13268                 RaiseEvent Session_MasterRowDeleted(Me, New Session_MasterRowChangeEvent(CType(e.Row,Session_MasterRow), e.Action))
13269             End If
13270         End Sub
13271         
13272         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13273          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13274         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
13275             MyBase.OnRowDeleting(e)
13276             If (Not (Me.Session_MasterRowDeletingEvent) Is Nothing) Then
13277                 RaiseEvent Session_MasterRowDeleting(Me, New Session_MasterRowChangeEvent(CType(e.Row,Session_MasterRow), e.Action))
13278             End If
13279         End Sub
13280         
13281         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13282          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13283         Public Sub RemoveSession_MasterRow(ByVal row As Session_MasterRow)
13284             Me.Rows.Remove(row)
13285         End Sub
13286         
13287         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13288          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13289         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
13290             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
13291             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
13292             Dim ds As ERPS_DBDataSet1 = New ERPS_DBDataSet1()
13293             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
13294             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
13295             any1.MinOccurs = New Decimal(0)
13296             any1.MaxOccurs = Decimal.MaxValue
13297             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
13298             sequence.Items.Add(any1)
13299             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
13300             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
13301             any2.MinOccurs = New Decimal(1)
13302             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
13303             sequence.Items.Add(any2)
13304             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
13305             attribute1.Name = "namespace"
13306             attribute1.FixedValue = ds.Namespace
13307             type.Attributes.Add(attribute1)
13308             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
13309             attribute2.Name = "tableTypeName"
13310             attribute2.FixedValue = "Session_MasterDataTable"
13311             type.Attributes.Add(attribute2)
13312             type.Particle = sequence
13313             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
13314             If xs.Contains(dsSchema.TargetNamespace) Then
13315                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
13316                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
13317                 Try
13318                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
13319                     dsSchema.Write(s1)
13320                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
13321                     Do While schemas.MoveNext
13322                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
13323                         s2.SetLength(0)
13324                         schema.Write(s2)
13325                         If (s1.Length = s2.Length) Then
13326                             s1.Position = 0
13327                             s2.Position = 0
13328                             
13329                             Do While ((s1.Position <> s1.Length) _
13330                                         AndAlso (s1.ReadByte = s2.ReadByte))
13331                                 
13332                                 
13333                             Loop
13334                             If (s1.Position = s1.Length) Then
13335                                 Return type
13336                             End If
13337                         End If
13338                         
13339                     Loop
13340                 Finally
13341                     If (Not (s1) Is Nothing) Then
13342                         s1.Close
13343                     End If
13344                     If (Not (s2) Is Nothing) Then
13345                         s2.Close
13346                     End If
13347                 End Try
13348             End If
13349             xs.Add(dsSchema)
13350             Return type
13351         End Function
13352     End Class
13353     
13354     '''<summary>
13355     '''Represents the strongly named DataTable class.
13356     '''</summary>
13357     <Global.System.Serializable(), _
13358      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
13359     Partial Public Class StaffDataTable
13360         Inherits Global.System.Data.TypedTableBase(Of StaffRow)
13361         
13362         Private columnSt_ID As Global.System.Data.DataColumn
13363         
13364         Private columnStaffID As Global.System.Data.DataColumn
13365         
13366         Private columnStaffName As Global.System.Data.DataColumn
13367         
13368         Private columnDateOfJoining As Global.System.Data.DataColumn
13369         
13370         Private columnGender As Global.System.Data.DataColumn
13371         
13372         Private columnFatherName As Global.System.Data.DataColumn
13373         
13374         Private columnTemporaryAddress As Global.System.Data.DataColumn
13375         
13376         Private columnPermanentAddress As Global.System.Data.DataColumn
13377         
13378         Private columnDesignation As Global.System.Data.DataColumn
13379         
13380         Private columnQualifications As Global.System.Data.DataColumn
13381         
13382         Private columnDOB As Global.System.Data.DataColumn
13383         
13384         Private columnPhoneNo As Global.System.Data.DataColumn
13385         
13386         Private columnMobileNo As Global.System.Data.DataColumn
13387         
13388         Private columnEmail As Global.System.Data.DataColumn
13389         
13390         Private columnPhoto As Global.System.Data.DataColumn
13391         
13392         Private columnClassType As Global.System.Data.DataColumn
13393         
13394         Private columnSchoolID As Global.System.Data.DataColumn
13395         
13396         Private columnAccountName As Global.System.Data.DataColumn
13397         
13398         Private columnAccountNumber As Global.System.Data.DataColumn
13399         
13400         Private columnBank As Global.System.Data.DataColumn
13401         
13402         Private columnBranch As Global.System.Data.DataColumn
13403         
13404         Private columnIFSCcode As Global.System.Data.DataColumn
13405         
13406         Private columnStatus As Global.System.Data.DataColumn
13407         
13408         Private columnSalary As Global.System.Data.DataColumn
13409         
13410         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13411          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13412         Public Sub New()
13413             MyBase.New
13414             Me.TableName = "Staff"
13415             Me.BeginInit
13416             Me.InitClass
13417             Me.EndInit
13418         End Sub
13419         
13420         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13421          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13422         Friend Sub New(ByVal table As Global.System.Data.DataTable)
13423             MyBase.New
13424             Me.TableName = table.TableName
13425             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
13426                 Me.CaseSensitive = table.CaseSensitive
13427             End If
13428             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
13429                 Me.Locale = table.Locale
13430             End If
13431             If (table.Namespace <> table.DataSet.Namespace) Then
13432                 Me.Namespace = table.Namespace
13433             End If
13434             Me.Prefix = table.Prefix
13435             Me.MinimumCapacity = table.MinimumCapacity
13436         End Sub
13437         
13438         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13439          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13440         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
13441             MyBase.New(info, context)
13442             Me.InitVars
13443         End Sub
13444         
13445         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13446          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13447         Public ReadOnly Property St_IDColumn() As Global.System.Data.DataColumn
13448             Get
13449                 Return Me.columnSt_ID
13450             End Get
13451         End Property
13452         
13453         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13454          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13455         Public ReadOnly Property StaffIDColumn() As Global.System.Data.DataColumn
13456             Get
13457                 Return Me.columnStaffID
13458             End Get
13459         End Property
13460         
13461         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13462          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13463         Public ReadOnly Property StaffNameColumn() As Global.System.Data.DataColumn
13464             Get
13465                 Return Me.columnStaffName
13466             End Get
13467         End Property
13468         
13469         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13470          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13471         Public ReadOnly Property DateOfJoiningColumn() As Global.System.Data.DataColumn
13472             Get
13473                 Return Me.columnDateOfJoining
13474             End Get
13475         End Property
13476         
13477         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13478          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13479         Public ReadOnly Property GenderColumn() As Global.System.Data.DataColumn
13480             Get
13481                 Return Me.columnGender
13482             End Get
13483         End Property
13484         
13485         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13486          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13487         Public ReadOnly Property FatherNameColumn() As Global.System.Data.DataColumn
13488             Get
13489                 Return Me.columnFatherName
13490             End Get
13491         End Property
13492         
13493         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13494          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13495         Public ReadOnly Property TemporaryAddressColumn() As Global.System.Data.DataColumn
13496             Get
13497                 Return Me.columnTemporaryAddress
13498             End Get
13499         End Property
13500         
13501         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13502          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13503         Public ReadOnly Property PermanentAddressColumn() As Global.System.Data.DataColumn
13504             Get
13505                 Return Me.columnPermanentAddress
13506             End Get
13507         End Property
13508         
13509         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13510          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13511         Public ReadOnly Property DesignationColumn() As Global.System.Data.DataColumn
13512             Get
13513                 Return Me.columnDesignation
13514             End Get
13515         End Property
13516         
13517         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13518          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13519         Public ReadOnly Property QualificationsColumn() As Global.System.Data.DataColumn
13520             Get
13521                 Return Me.columnQualifications
13522             End Get
13523         End Property
13524         
13525         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13526          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13527         Public ReadOnly Property DOBColumn() As Global.System.Data.DataColumn
13528             Get
13529                 Return Me.columnDOB
13530             End Get
13531         End Property
13532         
13533         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13534          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13535         Public ReadOnly Property PhoneNoColumn() As Global.System.Data.DataColumn
13536             Get
13537                 Return Me.columnPhoneNo
13538             End Get
13539         End Property
13540         
13541         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13542          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13543         Public ReadOnly Property MobileNoColumn() As Global.System.Data.DataColumn
13544             Get
13545                 Return Me.columnMobileNo
13546             End Get
13547         End Property
13548         
13549         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13550          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13551         Public ReadOnly Property EmailColumn() As Global.System.Data.DataColumn
13552             Get
13553                 Return Me.columnEmail
13554             End Get
13555         End Property
13556         
13557         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13558          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13559         Public ReadOnly Property PhotoColumn() As Global.System.Data.DataColumn
13560             Get
13561                 Return Me.columnPhoto
13562             End Get
13563         End Property
13564         
13565         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13566          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13567         Public ReadOnly Property ClassTypeColumn() As Global.System.Data.DataColumn
13568             Get
13569                 Return Me.columnClassType
13570             End Get
13571         End Property
13572         
13573         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13574          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13575         Public ReadOnly Property SchoolIDColumn() As Global.System.Data.DataColumn
13576             Get
13577                 Return Me.columnSchoolID
13578             End Get
13579         End Property
13580         
13581         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13582          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13583         Public ReadOnly Property AccountNameColumn() As Global.System.Data.DataColumn
13584             Get
13585                 Return Me.columnAccountName
13586             End Get
13587         End Property
13588         
13589         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13590          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13591         Public ReadOnly Property AccountNumberColumn() As Global.System.Data.DataColumn
13592             Get
13593                 Return Me.columnAccountNumber
13594             End Get
13595         End Property
13596         
13597         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13598          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13599         Public ReadOnly Property BankColumn() As Global.System.Data.DataColumn
13600             Get
13601                 Return Me.columnBank
13602             End Get
13603         End Property
13604         
13605         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13606          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13607         Public ReadOnly Property BranchColumn() As Global.System.Data.DataColumn
13608             Get
13609                 Return Me.columnBranch
13610             End Get
13611         End Property
13612         
13613         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13614          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13615         Public ReadOnly Property IFSCcodeColumn() As Global.System.Data.DataColumn
13616             Get
13617                 Return Me.columnIFSCcode
13618             End Get
13619         End Property
13620         
13621         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13622          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13623         Public ReadOnly Property StatusColumn() As Global.System.Data.DataColumn
13624             Get
13625                 Return Me.columnStatus
13626             End Get
13627         End Property
13628         
13629         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13630          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13631         Public ReadOnly Property SalaryColumn() As Global.System.Data.DataColumn
13632             Get
13633                 Return Me.columnSalary
13634             End Get
13635         End Property
13636         
13637         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13638          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
13639          Global.System.ComponentModel.Browsable(false)> _
13640         Public ReadOnly Property Count() As Integer
13641             Get
13642                 Return Me.Rows.Count
13643             End Get
13644         End Property
13645         
13646         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13647          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13648         Public Default ReadOnly Property Item(ByVal index As Integer) As StaffRow
13649             Get
13650                 Return CType(Me.Rows(index),StaffRow)
13651             End Get
13652         End Property
13653         
13654         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13655         Public Event StaffRowChanging As StaffRowChangeEventHandler
13656         
13657         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13658         Public Event StaffRowChanged As StaffRowChangeEventHandler
13659         
13660         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13661         Public Event StaffRowDeleting As StaffRowChangeEventHandler
13662         
13663         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13664         Public Event StaffRowDeleted As StaffRowChangeEventHandler
13665         
13666         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13667          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13668         Public Overloads Sub AddStaffRow(ByVal row As StaffRow)
13669             Me.Rows.Add(row)
13670         End Sub
13671         
13672         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13673          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13674         Public Overloads Function AddStaffRow( _
13675                     ByVal St_ID As Integer, _
13676                     ByVal StaffID As String, _
13677                     ByVal StaffName As String, _
13678                     ByVal DateOfJoining As Date, _
13679                     ByVal Gender As String, _
13680                     ByVal FatherName As String, _
13681                     ByVal TemporaryAddress As String, _
13682                     ByVal PermanentAddress As String, _
13683                     ByVal parentDesignationRowByFK_Staff_Designation As DesignationRow, _
13684                     ByVal Qualifications As String, _
13685                     ByVal DOB As Date, _
13686                     ByVal PhoneNo As String, _
13687                     ByVal MobileNo As String, _
13688                     ByVal Email As String, _
13689                     ByVal Photo() As Byte, _
13690                     ByVal parentClassTypeRowByFK_Staff_ClassType As ClassTypeRow, _
13691                     ByVal parentSchoolInfoRowByFK_Staff_SchoolInfo As SchoolInfoRow, _
13692                     ByVal AccountName As String, _
13693                     ByVal AccountNumber As String, _
13694                     ByVal Bank As String, _
13695                     ByVal Branch As String, _
13696                     ByVal IFSCcode As String, _
13697                     ByVal Status As String, _
13698                     ByVal Salary As Decimal) As StaffRow
13699             Dim rowStaffRow As StaffRow = CType(Me.NewRow,StaffRow)
13700             Dim columnValuesArray() As Object = New Object() {St_ID, StaffID, StaffName, DateOfJoining, Gender, FatherName, TemporaryAddress, PermanentAddress, Nothing, Qualifications, DOB, PhoneNo, MobileNo, Email, Photo, Nothing, Nothing, AccountName, AccountNumber, Bank, Branch, IFSCcode, Status, Salary}
13701             If (Not (parentDesignationRowByFK_Staff_Designation) Is Nothing) Then
13702                 columnValuesArray(8) = parentDesignationRowByFK_Staff_Designation(0)
13703             End If
13704             If (Not (parentClassTypeRowByFK_Staff_ClassType) Is Nothing) Then
13705                 columnValuesArray(15) = parentClassTypeRowByFK_Staff_ClassType(0)
13706             End If
13707             If (Not (parentSchoolInfoRowByFK_Staff_SchoolInfo) Is Nothing) Then
13708                 columnValuesArray(16) = parentSchoolInfoRowByFK_Staff_SchoolInfo(0)
13709             End If
13710             rowStaffRow.ItemArray = columnValuesArray
13711             Me.Rows.Add(rowStaffRow)
13712             Return rowStaffRow
13713         End Function
13714         
13715         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13716          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13717         Public Function FindBySt_ID(ByVal St_ID As Integer) As StaffRow
13718             Return CType(Me.Rows.Find(New Object() {St_ID}),StaffRow)
13719         End Function
13720         
13721         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13722          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13723         Public Overrides Function Clone() As Global.System.Data.DataTable
13724             Dim cln As StaffDataTable = CType(MyBase.Clone,StaffDataTable)
13725             cln.InitVars
13726             Return cln
13727         End Function
13728         
13729         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13730          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13731         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
13732             Return New StaffDataTable()
13733         End Function
13734         
13735         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13736          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13737         Friend Sub InitVars()
13738             Me.columnSt_ID = MyBase.Columns("St_ID")
13739             Me.columnStaffID = MyBase.Columns("StaffID")
13740             Me.columnStaffName = MyBase.Columns("StaffName")
13741             Me.columnDateOfJoining = MyBase.Columns("DateOfJoining")
13742             Me.columnGender = MyBase.Columns("Gender")
13743             Me.columnFatherName = MyBase.Columns("FatherName")
13744             Me.columnTemporaryAddress = MyBase.Columns("TemporaryAddress")
13745             Me.columnPermanentAddress = MyBase.Columns("PermanentAddress")
13746             Me.columnDesignation = MyBase.Columns("Designation")
13747             Me.columnQualifications = MyBase.Columns("Qualifications")
13748             Me.columnDOB = MyBase.Columns("DOB")
13749             Me.columnPhoneNo = MyBase.Columns("PhoneNo")
13750             Me.columnMobileNo = MyBase.Columns("MobileNo")
13751             Me.columnEmail = MyBase.Columns("Email")
13752             Me.columnPhoto = MyBase.Columns("Photo")
13753             Me.columnClassType = MyBase.Columns("ClassType")
13754             Me.columnSchoolID = MyBase.Columns("SchoolID")
13755             Me.columnAccountName = MyBase.Columns("AccountName")
13756             Me.columnAccountNumber = MyBase.Columns("AccountNumber")
13757             Me.columnBank = MyBase.Columns("Bank")
13758             Me.columnBranch = MyBase.Columns("Branch")
13759             Me.columnIFSCcode = MyBase.Columns("IFSCcode")
13760             Me.columnStatus = MyBase.Columns("Status")
13761             Me.columnSalary = MyBase.Columns("Salary")
13762         End Sub
13763         
13764         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13765          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13766         Private Sub InitClass()
13767             Me.columnSt_ID = New Global.System.Data.DataColumn("St_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
13768             MyBase.Columns.Add(Me.columnSt_ID)
13769             Me.columnStaffID = New Global.System.Data.DataColumn("StaffID", GetType(String), Nothing, Global.System.Data.MappingType.Element)
13770             MyBase.Columns.Add(Me.columnStaffID)
13771             Me.columnStaffName = New Global.System.Data.DataColumn("StaffName", GetType(String), Nothing, Global.System.Data.MappingType.Element)
13772             MyBase.Columns.Add(Me.columnStaffName)
13773             Me.columnDateOfJoining = New Global.System.Data.DataColumn("DateOfJoining", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
13774             MyBase.Columns.Add(Me.columnDateOfJoining)
13775             Me.columnGender = New Global.System.Data.DataColumn("Gender", GetType(String), Nothing, Global.System.Data.MappingType.Element)
13776             MyBase.Columns.Add(Me.columnGender)
13777             Me.columnFatherName = New Global.System.Data.DataColumn("FatherName", GetType(String), Nothing, Global.System.Data.MappingType.Element)
13778             MyBase.Columns.Add(Me.columnFatherName)
13779             Me.columnTemporaryAddress = New Global.System.Data.DataColumn("TemporaryAddress", GetType(String), Nothing, Global.System.Data.MappingType.Element)
13780             MyBase.Columns.Add(Me.columnTemporaryAddress)
13781             Me.columnPermanentAddress = New Global.System.Data.DataColumn("PermanentAddress", GetType(String), Nothing, Global.System.Data.MappingType.Element)
13782             MyBase.Columns.Add(Me.columnPermanentAddress)
13783             Me.columnDesignation = New Global.System.Data.DataColumn("Designation", GetType(String), Nothing, Global.System.Data.MappingType.Element)
13784             MyBase.Columns.Add(Me.columnDesignation)
13785             Me.columnQualifications = New Global.System.Data.DataColumn("Qualifications", GetType(String), Nothing, Global.System.Data.MappingType.Element)
13786             MyBase.Columns.Add(Me.columnQualifications)
13787             Me.columnDOB = New Global.System.Data.DataColumn("DOB", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
13788             MyBase.Columns.Add(Me.columnDOB)
13789             Me.columnPhoneNo = New Global.System.Data.DataColumn("PhoneNo", GetType(String), Nothing, Global.System.Data.MappingType.Element)
13790             MyBase.Columns.Add(Me.columnPhoneNo)
13791             Me.columnMobileNo = New Global.System.Data.DataColumn("MobileNo", GetType(String), Nothing, Global.System.Data.MappingType.Element)
13792             MyBase.Columns.Add(Me.columnMobileNo)
13793             Me.columnEmail = New Global.System.Data.DataColumn("Email", GetType(String), Nothing, Global.System.Data.MappingType.Element)
13794             MyBase.Columns.Add(Me.columnEmail)
13795             Me.columnPhoto = New Global.System.Data.DataColumn("Photo", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element)
13796             MyBase.Columns.Add(Me.columnPhoto)
13797             Me.columnClassType = New Global.System.Data.DataColumn("ClassType", GetType(String), Nothing, Global.System.Data.MappingType.Element)
13798             MyBase.Columns.Add(Me.columnClassType)
13799             Me.columnSchoolID = New Global.System.Data.DataColumn("SchoolID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
13800             MyBase.Columns.Add(Me.columnSchoolID)
13801             Me.columnAccountName = New Global.System.Data.DataColumn("AccountName", GetType(String), Nothing, Global.System.Data.MappingType.Element)
13802             MyBase.Columns.Add(Me.columnAccountName)
13803             Me.columnAccountNumber = New Global.System.Data.DataColumn("AccountNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element)
13804             MyBase.Columns.Add(Me.columnAccountNumber)
13805             Me.columnBank = New Global.System.Data.DataColumn("Bank", GetType(String), Nothing, Global.System.Data.MappingType.Element)
13806             MyBase.Columns.Add(Me.columnBank)
13807             Me.columnBranch = New Global.System.Data.DataColumn("Branch", GetType(String), Nothing, Global.System.Data.MappingType.Element)
13808             MyBase.Columns.Add(Me.columnBranch)
13809             Me.columnIFSCcode = New Global.System.Data.DataColumn("IFSCcode", GetType(String), Nothing, Global.System.Data.MappingType.Element)
13810             MyBase.Columns.Add(Me.columnIFSCcode)
13811             Me.columnStatus = New Global.System.Data.DataColumn("Status", GetType(String), Nothing, Global.System.Data.MappingType.Element)
13812             MyBase.Columns.Add(Me.columnStatus)
13813             Me.columnSalary = New Global.System.Data.DataColumn("Salary", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
13814             MyBase.Columns.Add(Me.columnSalary)
13815             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnSt_ID}, true))
13816             Me.columnSt_ID.AllowDBNull = false
13817             Me.columnSt_ID.Unique = true
13818             Me.columnStaffID.AllowDBNull = false
13819             Me.columnStaffID.MaxLength = 15
13820             Me.columnStaffName.AllowDBNull = false
13821             Me.columnStaffName.MaxLength = 150
13822             Me.columnDateOfJoining.AllowDBNull = false
13823             Me.columnGender.AllowDBNull = false
13824             Me.columnGender.MaxLength = 15
13825             Me.columnFatherName.AllowDBNull = false
13826             Me.columnFatherName.MaxLength = 150
13827             Me.columnTemporaryAddress.AllowDBNull = false
13828             Me.columnTemporaryAddress.MaxLength = 250
13829             Me.columnPermanentAddress.AllowDBNull = false
13830             Me.columnPermanentAddress.MaxLength = 250
13831             Me.columnDesignation.AllowDBNull = false
13832             Me.columnDesignation.MaxLength = 150
13833             Me.columnQualifications.AllowDBNull = false
13834             Me.columnQualifications.MaxLength = 250
13835             Me.columnDOB.AllowDBNull = false
13836             Me.columnPhoneNo.MaxLength = 100
13837             Me.columnMobileNo.AllowDBNull = false
13838             Me.columnMobileNo.MaxLength = 100
13839             Me.columnEmail.MaxLength = 150
13840             Me.columnPhoto.AllowDBNull = false
13841             Me.columnClassType.AllowDBNull = false
13842             Me.columnClassType.MaxLength = 150
13843             Me.columnSchoolID.AllowDBNull = false
13844             Me.columnAccountName.AllowDBNull = false
13845             Me.columnAccountName.MaxLength = 150
13846             Me.columnAccountNumber.AllowDBNull = false
13847             Me.columnAccountNumber.MaxLength = 100
13848             Me.columnBank.AllowDBNull = false
13849             Me.columnBank.MaxLength = 250
13850             Me.columnBranch.AllowDBNull = false
13851             Me.columnBranch.MaxLength = 150
13852             Me.columnIFSCcode.MaxLength = 100
13853             Me.columnStatus.AllowDBNull = false
13854             Me.columnStatus.MaxLength = 50
13855             Me.columnSalary.AllowDBNull = false
13856         End Sub
13857         
13858         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13859          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13860         Public Function NewStaffRow() As StaffRow
13861             Return CType(Me.NewRow,StaffRow)
13862         End Function
13863         
13864         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13865          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13866         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
13867             Return New StaffRow(builder)
13868         End Function
13869         
13870         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13871          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13872         Protected Overrides Function GetRowType() As Global.System.Type
13873             Return GetType(StaffRow)
13874         End Function
13875         
13876         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13877          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13878         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
13879             MyBase.OnRowChanged(e)
13880             If (Not (Me.StaffRowChangedEvent) Is Nothing) Then
13881                 RaiseEvent StaffRowChanged(Me, New StaffRowChangeEvent(CType(e.Row,StaffRow), e.Action))
13882             End If
13883         End Sub
13884         
13885         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13886          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13887         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
13888             MyBase.OnRowChanging(e)
13889             If (Not (Me.StaffRowChangingEvent) Is Nothing) Then
13890                 RaiseEvent StaffRowChanging(Me, New StaffRowChangeEvent(CType(e.Row,StaffRow), e.Action))
13891             End If
13892         End Sub
13893         
13894         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13895          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13896         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
13897             MyBase.OnRowDeleted(e)
13898             If (Not (Me.StaffRowDeletedEvent) Is Nothing) Then
13899                 RaiseEvent StaffRowDeleted(Me, New StaffRowChangeEvent(CType(e.Row,StaffRow), e.Action))
13900             End If
13901         End Sub
13902         
13903         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13904          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13905         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
13906             MyBase.OnRowDeleting(e)
13907             If (Not (Me.StaffRowDeletingEvent) Is Nothing) Then
13908                 RaiseEvent StaffRowDeleting(Me, New StaffRowChangeEvent(CType(e.Row,StaffRow), e.Action))
13909             End If
13910         End Sub
13911         
13912         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13913          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13914         Public Sub RemoveStaffRow(ByVal row As StaffRow)
13915             Me.Rows.Remove(row)
13916         End Sub
13917         
13918         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13919          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13920         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
13921             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
13922             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
13923             Dim ds As ERPS_DBDataSet1 = New ERPS_DBDataSet1()
13924             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
13925             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
13926             any1.MinOccurs = New Decimal(0)
13927             any1.MaxOccurs = Decimal.MaxValue
13928             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
13929             sequence.Items.Add(any1)
13930             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
13931             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
13932             any2.MinOccurs = New Decimal(1)
13933             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
13934             sequence.Items.Add(any2)
13935             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
13936             attribute1.Name = "namespace"
13937             attribute1.FixedValue = ds.Namespace
13938             type.Attributes.Add(attribute1)
13939             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
13940             attribute2.Name = "tableTypeName"
13941             attribute2.FixedValue = "StaffDataTable"
13942             type.Attributes.Add(attribute2)
13943             type.Particle = sequence
13944             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
13945             If xs.Contains(dsSchema.TargetNamespace) Then
13946                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
13947                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
13948                 Try
13949                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
13950                     dsSchema.Write(s1)
13951                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
13952                     Do While schemas.MoveNext
13953                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
13954                         s2.SetLength(0)
13955                         schema.Write(s2)
13956                         If (s1.Length = s2.Length) Then
13957                             s1.Position = 0
13958                             s2.Position = 0
13959                             
13960                             Do While ((s1.Position <> s1.Length) _
13961                                         AndAlso (s1.ReadByte = s2.ReadByte))
13962                                 
13963                                 
13964                             Loop
13965                             If (s1.Position = s1.Length) Then
13966                                 Return type
13967                             End If
13968                         End If
13969                         
13970                     Loop
13971                 Finally
13972                     If (Not (s1) Is Nothing) Then
13973                         s1.Close
13974                     End If
13975                     If (Not (s2) Is Nothing) Then
13976                         s2.Close
13977                     End If
13978                 End Try
13979             End If
13980             xs.Add(dsSchema)
13981             Return type
13982         End Function
13983     End Class
13984     
13985     '''<summary>
13986     '''Represents the strongly named DataTable class.
13987     '''</summary>
13988     <Global.System.Serializable(), _
13989      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
13990     Partial Public Class Staff_DepartmentDataTable
13991         Inherits Global.System.Data.TypedTableBase(Of Staff_DepartmentRow)
13992         
13993         Private columnSD_ID As Global.System.Data.DataColumn
13994         
13995         Private columnDepartmentID As Global.System.Data.DataColumn
13996         
13997         Private columnStaffID As Global.System.Data.DataColumn
13998         
13999         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14000          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14001         Public Sub New()
14002             MyBase.New
14003             Me.TableName = "Staff_Department"
14004             Me.BeginInit
14005             Me.InitClass
14006             Me.EndInit
14007         End Sub
14008         
14009         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14010          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14011         Friend Sub New(ByVal table As Global.System.Data.DataTable)
14012             MyBase.New
14013             Me.TableName = table.TableName
14014             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
14015                 Me.CaseSensitive = table.CaseSensitive
14016             End If
14017             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
14018                 Me.Locale = table.Locale
14019             End If
14020             If (table.Namespace <> table.DataSet.Namespace) Then
14021                 Me.Namespace = table.Namespace
14022             End If
14023             Me.Prefix = table.Prefix
14024             Me.MinimumCapacity = table.MinimumCapacity
14025         End Sub
14026         
14027         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14028          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14029         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
14030             MyBase.New(info, context)
14031             Me.InitVars
14032         End Sub
14033         
14034         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14035          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14036         Public ReadOnly Property SD_IDColumn() As Global.System.Data.DataColumn
14037             Get
14038                 Return Me.columnSD_ID
14039             End Get
14040         End Property
14041         
14042         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14043          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14044         Public ReadOnly Property DepartmentIDColumn() As Global.System.Data.DataColumn
14045             Get
14046                 Return Me.columnDepartmentID
14047             End Get
14048         End Property
14049         
14050         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14051          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14052         Public ReadOnly Property StaffIDColumn() As Global.System.Data.DataColumn
14053             Get
14054                 Return Me.columnStaffID
14055             End Get
14056         End Property
14057         
14058         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14059          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
14060          Global.System.ComponentModel.Browsable(false)> _
14061         Public ReadOnly Property Count() As Integer
14062             Get
14063                 Return Me.Rows.Count
14064             End Get
14065         End Property
14066         
14067         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14068          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14069         Public Default ReadOnly Property Item(ByVal index As Integer) As Staff_DepartmentRow
14070             Get
14071                 Return CType(Me.Rows(index),Staff_DepartmentRow)
14072             End Get
14073         End Property
14074         
14075         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14076         Public Event Staff_DepartmentRowChanging As Staff_DepartmentRowChangeEventHandler
14077         
14078         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14079         Public Event Staff_DepartmentRowChanged As Staff_DepartmentRowChangeEventHandler
14080         
14081         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14082         Public Event Staff_DepartmentRowDeleting As Staff_DepartmentRowChangeEventHandler
14083         
14084         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14085         Public Event Staff_DepartmentRowDeleted As Staff_DepartmentRowChangeEventHandler
14086         
14087         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14088          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14089         Public Overloads Sub AddStaff_DepartmentRow(ByVal row As Staff_DepartmentRow)
14090             Me.Rows.Add(row)
14091         End Sub
14092         
14093         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14094          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14095         Public Overloads Function AddStaff_DepartmentRow(ByVal parentDepartmentRowByFK_Staff_Department_Department As DepartmentRow, ByVal parentStaffRowByFK_Staff_Department_Staff As StaffRow) As Staff_DepartmentRow
14096             Dim rowStaff_DepartmentRow As Staff_DepartmentRow = CType(Me.NewRow,Staff_DepartmentRow)
14097             Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, Nothing}
14098             If (Not (parentDepartmentRowByFK_Staff_Department_Department) Is Nothing) Then
14099                 columnValuesArray(1) = parentDepartmentRowByFK_Staff_Department_Department(0)
14100             End If
14101             If (Not (parentStaffRowByFK_Staff_Department_Staff) Is Nothing) Then
14102                 columnValuesArray(2) = parentStaffRowByFK_Staff_Department_Staff(0)
14103             End If
14104             rowStaff_DepartmentRow.ItemArray = columnValuesArray
14105             Me.Rows.Add(rowStaff_DepartmentRow)
14106             Return rowStaff_DepartmentRow
14107         End Function
14108         
14109         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14110          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14111         Public Function FindBySD_ID(ByVal SD_ID As Integer) As Staff_DepartmentRow
14112             Return CType(Me.Rows.Find(New Object() {SD_ID}),Staff_DepartmentRow)
14113         End Function
14114         
14115         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14116          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14117         Public Overrides Function Clone() As Global.System.Data.DataTable
14118             Dim cln As Staff_DepartmentDataTable = CType(MyBase.Clone,Staff_DepartmentDataTable)
14119             cln.InitVars
14120             Return cln
14121         End Function
14122         
14123         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14124          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14125         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
14126             Return New Staff_DepartmentDataTable()
14127         End Function
14128         
14129         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14130          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14131         Friend Sub InitVars()
14132             Me.columnSD_ID = MyBase.Columns("SD_ID")
14133             Me.columnDepartmentID = MyBase.Columns("DepartmentID")
14134             Me.columnStaffID = MyBase.Columns("StaffID")
14135         End Sub
14136         
14137         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14138          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14139         Private Sub InitClass()
14140             Me.columnSD_ID = New Global.System.Data.DataColumn("SD_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
14141             MyBase.Columns.Add(Me.columnSD_ID)
14142             Me.columnDepartmentID = New Global.System.Data.DataColumn("DepartmentID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
14143             MyBase.Columns.Add(Me.columnDepartmentID)
14144             Me.columnStaffID = New Global.System.Data.DataColumn("StaffID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
14145             MyBase.Columns.Add(Me.columnStaffID)
14146             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnSD_ID}, true))
14147             Me.columnSD_ID.AutoIncrement = true
14148             Me.columnSD_ID.AutoIncrementSeed = -1
14149             Me.columnSD_ID.AutoIncrementStep = -1
14150             Me.columnSD_ID.AllowDBNull = false
14151             Me.columnSD_ID.ReadOnly = true
14152             Me.columnSD_ID.Unique = true
14153             Me.columnDepartmentID.AllowDBNull = false
14154             Me.columnStaffID.AllowDBNull = false
14155         End Sub
14156         
14157         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14158          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14159         Public Function NewStaff_DepartmentRow() As Staff_DepartmentRow
14160             Return CType(Me.NewRow,Staff_DepartmentRow)
14161         End Function
14162         
14163         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14164          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14165         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
14166             Return New Staff_DepartmentRow(builder)
14167         End Function
14168         
14169         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14170          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14171         Protected Overrides Function GetRowType() As Global.System.Type
14172             Return GetType(Staff_DepartmentRow)
14173         End Function
14174         
14175         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14176          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14177         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
14178             MyBase.OnRowChanged(e)
14179             If (Not (Me.Staff_DepartmentRowChangedEvent) Is Nothing) Then
14180                 RaiseEvent Staff_DepartmentRowChanged(Me, New Staff_DepartmentRowChangeEvent(CType(e.Row,Staff_DepartmentRow), e.Action))
14181             End If
14182         End Sub
14183         
14184         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14185          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14186         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
14187             MyBase.OnRowChanging(e)
14188             If (Not (Me.Staff_DepartmentRowChangingEvent) Is Nothing) Then
14189                 RaiseEvent Staff_DepartmentRowChanging(Me, New Staff_DepartmentRowChangeEvent(CType(e.Row,Staff_DepartmentRow), e.Action))
14190             End If
14191         End Sub
14192         
14193         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14194          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14195         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
14196             MyBase.OnRowDeleted(e)
14197             If (Not (Me.Staff_DepartmentRowDeletedEvent) Is Nothing) Then
14198                 RaiseEvent Staff_DepartmentRowDeleted(Me, New Staff_DepartmentRowChangeEvent(CType(e.Row,Staff_DepartmentRow), e.Action))
14199             End If
14200         End Sub
14201         
14202         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14203          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14204         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
14205             MyBase.OnRowDeleting(e)
14206             If (Not (Me.Staff_DepartmentRowDeletingEvent) Is Nothing) Then
14207                 RaiseEvent Staff_DepartmentRowDeleting(Me, New Staff_DepartmentRowChangeEvent(CType(e.Row,Staff_DepartmentRow), e.Action))
14208             End If
14209         End Sub
14210         
14211         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14212          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14213         Public Sub RemoveStaff_DepartmentRow(ByVal row As Staff_DepartmentRow)
14214             Me.Rows.Remove(row)
14215         End Sub
14216         
14217         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14218          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14219         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
14220             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
14221             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
14222             Dim ds As ERPS_DBDataSet1 = New ERPS_DBDataSet1()
14223             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
14224             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
14225             any1.MinOccurs = New Decimal(0)
14226             any1.MaxOccurs = Decimal.MaxValue
14227             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
14228             sequence.Items.Add(any1)
14229             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
14230             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
14231             any2.MinOccurs = New Decimal(1)
14232             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
14233             sequence.Items.Add(any2)
14234             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
14235             attribute1.Name = "namespace"
14236             attribute1.FixedValue = ds.Namespace
14237             type.Attributes.Add(attribute1)
14238             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
14239             attribute2.Name = "tableTypeName"
14240             attribute2.FixedValue = "Staff_DepartmentDataTable"
14241             type.Attributes.Add(attribute2)
14242             type.Particle = sequence
14243             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
14244             If xs.Contains(dsSchema.TargetNamespace) Then
14245                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
14246                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
14247                 Try
14248                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
14249                     dsSchema.Write(s1)
14250                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
14251                     Do While schemas.MoveNext
14252                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
14253                         s2.SetLength(0)
14254                         schema.Write(s2)
14255                         If (s1.Length = s2.Length) Then
14256                             s1.Position = 0
14257                             s2.Position = 0
14258                             
14259                             Do While ((s1.Position <> s1.Length) _
14260                                         AndAlso (s1.ReadByte = s2.ReadByte))
14261                                 
14262                                 
14263                             Loop
14264                             If (s1.Position = s1.Length) Then
14265                                 Return type
14266                             End If
14267                         End If
14268                         
14269                     Loop
14270                 Finally
14271                     If (Not (s1) Is Nothing) Then
14272                         s1.Close
14273                     End If
14274                     If (Not (s2) Is Nothing) Then
14275                         s2.Close
14276                     End If
14277                 End Try
14278             End If
14279             xs.Add(dsSchema)
14280             Return type
14281         End Function
14282     End Class
14283     
14284     '''<summary>
14285     '''Represents the strongly named DataTable class.
14286     '''</summary>
14287     <Global.System.Serializable(), _
14288      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
14289     Partial Public Class StaffAttendanceDataTable
14290         Inherits Global.System.Data.TypedTableBase(Of StaffAttendanceRow)
14291         
14292         Private columnId As Global.System.Data.DataColumn
14293         
14294         Private columnWorkingDate As Global.System.Data.DataColumn
14295         
14296         Private columnStaffID As Global.System.Data.DataColumn
14297         
14298         Private columnStatus As Global.System.Data.DataColumn
14299         
14300         Private columnInTime As Global.System.Data.DataColumn
14301         
14302         Private columnOutTime As Global.System.Data.DataColumn
14303         
14304         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14305          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14306         Public Sub New()
14307             MyBase.New
14308             Me.TableName = "StaffAttendance"
14309             Me.BeginInit
14310             Me.InitClass
14311             Me.EndInit
14312         End Sub
14313         
14314         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14315          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14316         Friend Sub New(ByVal table As Global.System.Data.DataTable)
14317             MyBase.New
14318             Me.TableName = table.TableName
14319             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
14320                 Me.CaseSensitive = table.CaseSensitive
14321             End If
14322             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
14323                 Me.Locale = table.Locale
14324             End If
14325             If (table.Namespace <> table.DataSet.Namespace) Then
14326                 Me.Namespace = table.Namespace
14327             End If
14328             Me.Prefix = table.Prefix
14329             Me.MinimumCapacity = table.MinimumCapacity
14330         End Sub
14331         
14332         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14333          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14334         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
14335             MyBase.New(info, context)
14336             Me.InitVars
14337         End Sub
14338         
14339         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14340          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14341         Public ReadOnly Property IdColumn() As Global.System.Data.DataColumn
14342             Get
14343                 Return Me.columnId
14344             End Get
14345         End Property
14346         
14347         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14348          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14349         Public ReadOnly Property WorkingDateColumn() As Global.System.Data.DataColumn
14350             Get
14351                 Return Me.columnWorkingDate
14352             End Get
14353         End Property
14354         
14355         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14356          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14357         Public ReadOnly Property StaffIDColumn() As Global.System.Data.DataColumn
14358             Get
14359                 Return Me.columnStaffID
14360             End Get
14361         End Property
14362         
14363         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14364          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14365         Public ReadOnly Property StatusColumn() As Global.System.Data.DataColumn
14366             Get
14367                 Return Me.columnStatus
14368             End Get
14369         End Property
14370         
14371         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14372          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14373         Public ReadOnly Property InTimeColumn() As Global.System.Data.DataColumn
14374             Get
14375                 Return Me.columnInTime
14376             End Get
14377         End Property
14378         
14379         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14380          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14381         Public ReadOnly Property OutTimeColumn() As Global.System.Data.DataColumn
14382             Get
14383                 Return Me.columnOutTime
14384             End Get
14385         End Property
14386         
14387         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14388          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
14389          Global.System.ComponentModel.Browsable(false)> _
14390         Public ReadOnly Property Count() As Integer
14391             Get
14392                 Return Me.Rows.Count
14393             End Get
14394         End Property
14395         
14396         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14397          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14398         Public Default ReadOnly Property Item(ByVal index As Integer) As StaffAttendanceRow
14399             Get
14400                 Return CType(Me.Rows(index),StaffAttendanceRow)
14401             End Get
14402         End Property
14403         
14404         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14405         Public Event StaffAttendanceRowChanging As StaffAttendanceRowChangeEventHandler
14406         
14407         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14408         Public Event StaffAttendanceRowChanged As StaffAttendanceRowChangeEventHandler
14409         
14410         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14411         Public Event StaffAttendanceRowDeleting As StaffAttendanceRowChangeEventHandler
14412         
14413         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14414         Public Event StaffAttendanceRowDeleted As StaffAttendanceRowChangeEventHandler
14415         
14416         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14417          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14418         Public Overloads Sub AddStaffAttendanceRow(ByVal row As StaffAttendanceRow)
14419             Me.Rows.Add(row)
14420         End Sub
14421         
14422         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14423          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14424         Public Overloads Function AddStaffAttendanceRow(ByVal Id As Integer, ByVal WorkingDate As Date, ByVal parentStaffRowByFK_StaffAttendance_Staff As StaffRow, ByVal Status As String, ByVal InTime As String, ByVal OutTime As String) As StaffAttendanceRow
14425             Dim rowStaffAttendanceRow As StaffAttendanceRow = CType(Me.NewRow,StaffAttendanceRow)
14426             Dim columnValuesArray() As Object = New Object() {Id, WorkingDate, Nothing, Status, InTime, OutTime}
14427             If (Not (parentStaffRowByFK_StaffAttendance_Staff) Is Nothing) Then
14428                 columnValuesArray(2) = parentStaffRowByFK_StaffAttendance_Staff(0)
14429             End If
14430             rowStaffAttendanceRow.ItemArray = columnValuesArray
14431             Me.Rows.Add(rowStaffAttendanceRow)
14432             Return rowStaffAttendanceRow
14433         End Function
14434         
14435         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14436          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14437         Public Function FindById(ByVal Id As Integer) As StaffAttendanceRow
14438             Return CType(Me.Rows.Find(New Object() {Id}),StaffAttendanceRow)
14439         End Function
14440         
14441         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14442          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14443         Public Overrides Function Clone() As Global.System.Data.DataTable
14444             Dim cln As StaffAttendanceDataTable = CType(MyBase.Clone,StaffAttendanceDataTable)
14445             cln.InitVars
14446             Return cln
14447         End Function
14448         
14449         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14450          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14451         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
14452             Return New StaffAttendanceDataTable()
14453         End Function
14454         
14455         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14456          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14457         Friend Sub InitVars()
14458             Me.columnId = MyBase.Columns("Id")
14459             Me.columnWorkingDate = MyBase.Columns("WorkingDate")
14460             Me.columnStaffID = MyBase.Columns("StaffID")
14461             Me.columnStatus = MyBase.Columns("Status")
14462             Me.columnInTime = MyBase.Columns("InTime")
14463             Me.columnOutTime = MyBase.Columns("OutTime")
14464         End Sub
14465         
14466         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14467          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14468         Private Sub InitClass()
14469             Me.columnId = New Global.System.Data.DataColumn("Id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
14470             MyBase.Columns.Add(Me.columnId)
14471             Me.columnWorkingDate = New Global.System.Data.DataColumn("WorkingDate", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
14472             MyBase.Columns.Add(Me.columnWorkingDate)
14473             Me.columnStaffID = New Global.System.Data.DataColumn("StaffID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
14474             MyBase.Columns.Add(Me.columnStaffID)
14475             Me.columnStatus = New Global.System.Data.DataColumn("Status", GetType(String), Nothing, Global.System.Data.MappingType.Element)
14476             MyBase.Columns.Add(Me.columnStatus)
14477             Me.columnInTime = New Global.System.Data.DataColumn("InTime", GetType(String), Nothing, Global.System.Data.MappingType.Element)
14478             MyBase.Columns.Add(Me.columnInTime)
14479             Me.columnOutTime = New Global.System.Data.DataColumn("OutTime", GetType(String), Nothing, Global.System.Data.MappingType.Element)
14480             MyBase.Columns.Add(Me.columnOutTime)
14481             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnId}, true))
14482             Me.columnId.AllowDBNull = false
14483             Me.columnId.Unique = true
14484             Me.columnWorkingDate.AllowDBNull = false
14485             Me.columnStaffID.AllowDBNull = false
14486             Me.columnStatus.AllowDBNull = false
14487             Me.columnStatus.MaxLength = 20
14488             Me.columnInTime.AllowDBNull = false
14489             Me.columnInTime.MaxLength = 30
14490             Me.columnOutTime.AllowDBNull = false
14491             Me.columnOutTime.MaxLength = 30
14492         End Sub
14493         
14494         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14495          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14496         Public Function NewStaffAttendanceRow() As StaffAttendanceRow
14497             Return CType(Me.NewRow,StaffAttendanceRow)
14498         End Function
14499         
14500         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14501          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14502         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
14503             Return New StaffAttendanceRow(builder)
14504         End Function
14505         
14506         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14507          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14508         Protected Overrides Function GetRowType() As Global.System.Type
14509             Return GetType(StaffAttendanceRow)
14510         End Function
14511         
14512         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14513          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14514         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
14515             MyBase.OnRowChanged(e)
14516             If (Not (Me.StaffAttendanceRowChangedEvent) Is Nothing) Then
14517                 RaiseEvent StaffAttendanceRowChanged(Me, New StaffAttendanceRowChangeEvent(CType(e.Row,StaffAttendanceRow), e.Action))
14518             End If
14519         End Sub
14520         
14521         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14522          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14523         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
14524             MyBase.OnRowChanging(e)
14525             If (Not (Me.StaffAttendanceRowChangingEvent) Is Nothing) Then
14526                 RaiseEvent StaffAttendanceRowChanging(Me, New StaffAttendanceRowChangeEvent(CType(e.Row,StaffAttendanceRow), e.Action))
14527             End If
14528         End Sub
14529         
14530         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14531          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14532         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
14533             MyBase.OnRowDeleted(e)
14534             If (Not (Me.StaffAttendanceRowDeletedEvent) Is Nothing) Then
14535                 RaiseEvent StaffAttendanceRowDeleted(Me, New StaffAttendanceRowChangeEvent(CType(e.Row,StaffAttendanceRow), e.Action))
14536             End If
14537         End Sub
14538         
14539         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14540          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14541         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
14542             MyBase.OnRowDeleting(e)
14543             If (Not (Me.StaffAttendanceRowDeletingEvent) Is Nothing) Then
14544                 RaiseEvent StaffAttendanceRowDeleting(Me, New StaffAttendanceRowChangeEvent(CType(e.Row,StaffAttendanceRow), e.Action))
14545             End If
14546         End Sub
14547         
14548         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14549          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14550         Public Sub RemoveStaffAttendanceRow(ByVal row As StaffAttendanceRow)
14551             Me.Rows.Remove(row)
14552         End Sub
14553         
14554         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14555          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14556         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
14557             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
14558             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
14559             Dim ds As ERPS_DBDataSet1 = New ERPS_DBDataSet1()
14560             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
14561             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
14562             any1.MinOccurs = New Decimal(0)
14563             any1.MaxOccurs = Decimal.MaxValue
14564             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
14565             sequence.Items.Add(any1)
14566             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
14567             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
14568             any2.MinOccurs = New Decimal(1)
14569             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
14570             sequence.Items.Add(any2)
14571             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
14572             attribute1.Name = "namespace"
14573             attribute1.FixedValue = ds.Namespace
14574             type.Attributes.Add(attribute1)
14575             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
14576             attribute2.Name = "tableTypeName"
14577             attribute2.FixedValue = "StaffAttendanceDataTable"
14578             type.Attributes.Add(attribute2)
14579             type.Particle = sequence
14580             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
14581             If xs.Contains(dsSchema.TargetNamespace) Then
14582                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
14583                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
14584                 Try
14585                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
14586                     dsSchema.Write(s1)
14587                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
14588                     Do While schemas.MoveNext
14589                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
14590                         s2.SetLength(0)
14591                         schema.Write(s2)
14592                         If (s1.Length = s2.Length) Then
14593                             s1.Position = 0
14594                             s2.Position = 0
14595                             
14596                             Do While ((s1.Position <> s1.Length) _
14597                                         AndAlso (s1.ReadByte = s2.ReadByte))
14598                                 
14599                                 
14600                             Loop
14601                             If (s1.Position = s1.Length) Then
14602                                 Return type
14603                             End If
14604                         End If
14605                         
14606                     Loop
14607                 Finally
14608                     If (Not (s1) Is Nothing) Then
14609                         s1.Close
14610                     End If
14611                     If (Not (s2) Is Nothing) Then
14612                         s2.Close
14613                     End If
14614                 End Try
14615             End If
14616             xs.Add(dsSchema)
14617             Return type
14618         End Function
14619     End Class
14620     
14621     '''<summary>
14622     '''Represents the strongly named DataTable class.
14623     '''</summary>
14624     <Global.System.Serializable(), _
14625      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
14626     Partial Public Class StaffPaymentDataTable
14627         Inherits Global.System.Data.TypedTableBase(Of StaffPaymentRow)
14628         
14629         Private columnId As Global.System.Data.DataColumn
14630         
14631         Private columnPaymentID As Global.System.Data.DataColumn
14632         
14633         Private columnDateFrom As Global.System.Data.DataColumn
14634         
14635         Private columnDateTo As Global.System.Data.DataColumn
14636         
14637         Private columnStaffID As Global.System.Data.DataColumn
14638         
14639         Private columnPresentDays As Global.System.Data.DataColumn
14640         
14641         Private columnSalary As Global.System.Data.DataColumn
14642         
14643         Private columnAdvance As Global.System.Data.DataColumn
14644         
14645         Private columnDeduction As Global.System.Data.DataColumn
14646         
14647         Private columnPaymentDate As Global.System.Data.DataColumn
14648         
14649         Private columnModeOfPayment As Global.System.Data.DataColumn
14650         
14651         Private columnPaymentModeDetails As Global.System.Data.DataColumn
14652         
14653         Private columnNetPay As Global.System.Data.DataColumn
14654         
14655         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14656          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14657         Public Sub New()
14658             MyBase.New
14659             Me.TableName = "StaffPayment"
14660             Me.BeginInit
14661             Me.InitClass
14662             Me.EndInit
14663         End Sub
14664         
14665         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14666          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14667         Friend Sub New(ByVal table As Global.System.Data.DataTable)
14668             MyBase.New
14669             Me.TableName = table.TableName
14670             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
14671                 Me.CaseSensitive = table.CaseSensitive
14672             End If
14673             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
14674                 Me.Locale = table.Locale
14675             End If
14676             If (table.Namespace <> table.DataSet.Namespace) Then
14677                 Me.Namespace = table.Namespace
14678             End If
14679             Me.Prefix = table.Prefix
14680             Me.MinimumCapacity = table.MinimumCapacity
14681         End Sub
14682         
14683         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14684          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14685         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
14686             MyBase.New(info, context)
14687             Me.InitVars
14688         End Sub
14689         
14690         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14691          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14692         Public ReadOnly Property IdColumn() As Global.System.Data.DataColumn
14693             Get
14694                 Return Me.columnId
14695             End Get
14696         End Property
14697         
14698         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14699          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14700         Public ReadOnly Property PaymentIDColumn() As Global.System.Data.DataColumn
14701             Get
14702                 Return Me.columnPaymentID
14703             End Get
14704         End Property
14705         
14706         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14707          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14708         Public ReadOnly Property DateFromColumn() As Global.System.Data.DataColumn
14709             Get
14710                 Return Me.columnDateFrom
14711             End Get
14712         End Property
14713         
14714         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14715          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14716         Public ReadOnly Property DateToColumn() As Global.System.Data.DataColumn
14717             Get
14718                 Return Me.columnDateTo
14719             End Get
14720         End Property
14721         
14722         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14723          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14724         Public ReadOnly Property StaffIDColumn() As Global.System.Data.DataColumn
14725             Get
14726                 Return Me.columnStaffID
14727             End Get
14728         End Property
14729         
14730         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14731          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14732         Public ReadOnly Property PresentDaysColumn() As Global.System.Data.DataColumn
14733             Get
14734                 Return Me.columnPresentDays
14735             End Get
14736         End Property
14737         
14738         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14739          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14740         Public ReadOnly Property SalaryColumn() As Global.System.Data.DataColumn
14741             Get
14742                 Return Me.columnSalary
14743             End Get
14744         End Property
14745         
14746         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14747          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14748         Public ReadOnly Property AdvanceColumn() As Global.System.Data.DataColumn
14749             Get
14750                 Return Me.columnAdvance
14751             End Get
14752         End Property
14753         
14754         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14755          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14756         Public ReadOnly Property DeductionColumn() As Global.System.Data.DataColumn
14757             Get
14758                 Return Me.columnDeduction
14759             End Get
14760         End Property
14761         
14762         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14763          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14764         Public ReadOnly Property PaymentDateColumn() As Global.System.Data.DataColumn
14765             Get
14766                 Return Me.columnPaymentDate
14767             End Get
14768         End Property
14769         
14770         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14771          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14772         Public ReadOnly Property ModeOfPaymentColumn() As Global.System.Data.DataColumn
14773             Get
14774                 Return Me.columnModeOfPayment
14775             End Get
14776         End Property
14777         
14778         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14779          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14780         Public ReadOnly Property PaymentModeDetailsColumn() As Global.System.Data.DataColumn
14781             Get
14782                 Return Me.columnPaymentModeDetails
14783             End Get
14784         End Property
14785         
14786         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14787          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14788         Public ReadOnly Property NetPayColumn() As Global.System.Data.DataColumn
14789             Get
14790                 Return Me.columnNetPay
14791             End Get
14792         End Property
14793         
14794         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14795          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
14796          Global.System.ComponentModel.Browsable(false)> _
14797         Public ReadOnly Property Count() As Integer
14798             Get
14799                 Return Me.Rows.Count
14800             End Get
14801         End Property
14802         
14803         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14804          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14805         Public Default ReadOnly Property Item(ByVal index As Integer) As StaffPaymentRow
14806             Get
14807                 Return CType(Me.Rows(index),StaffPaymentRow)
14808             End Get
14809         End Property
14810         
14811         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14812         Public Event StaffPaymentRowChanging As StaffPaymentRowChangeEventHandler
14813         
14814         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14815         Public Event StaffPaymentRowChanged As StaffPaymentRowChangeEventHandler
14816         
14817         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14818         Public Event StaffPaymentRowDeleting As StaffPaymentRowChangeEventHandler
14819         
14820         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14821         Public Event StaffPaymentRowDeleted As StaffPaymentRowChangeEventHandler
14822         
14823         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14824          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14825         Public Overloads Sub AddStaffPaymentRow(ByVal row As StaffPaymentRow)
14826             Me.Rows.Add(row)
14827         End Sub
14828         
14829         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14830          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14831         Public Overloads Function AddStaffPaymentRow(ByVal Id As Integer, ByVal PaymentID As String, ByVal DateFrom As Date, ByVal DateTo As Date, ByVal parentStaffRowByFK_StaffPayment_Staff As StaffRow, ByVal PresentDays As Integer, ByVal Salary As Decimal, ByVal Advance As Decimal, ByVal Deduction As Decimal, ByVal PaymentDate As Date, ByVal ModeOfPayment As String, ByVal PaymentModeDetails As String, ByVal NetPay As Decimal) As StaffPaymentRow
14832             Dim rowStaffPaymentRow As StaffPaymentRow = CType(Me.NewRow,StaffPaymentRow)
14833             Dim columnValuesArray() As Object = New Object() {Id, PaymentID, DateFrom, DateTo, Nothing, PresentDays, Salary, Advance, Deduction, PaymentDate, ModeOfPayment, PaymentModeDetails, NetPay}
14834             If (Not (parentStaffRowByFK_StaffPayment_Staff) Is Nothing) Then
14835                 columnValuesArray(4) = parentStaffRowByFK_StaffPayment_Staff(0)
14836             End If
14837             rowStaffPaymentRow.ItemArray = columnValuesArray
14838             Me.Rows.Add(rowStaffPaymentRow)
14839             Return rowStaffPaymentRow
14840         End Function
14841         
14842         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14843          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14844         Public Function FindById(ByVal Id As Integer) As StaffPaymentRow
14845             Return CType(Me.Rows.Find(New Object() {Id}),StaffPaymentRow)
14846         End Function
14847         
14848         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14849          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14850         Public Overrides Function Clone() As Global.System.Data.DataTable
14851             Dim cln As StaffPaymentDataTable = CType(MyBase.Clone,StaffPaymentDataTable)
14852             cln.InitVars
14853             Return cln
14854         End Function
14855         
14856         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14857          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14858         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
14859             Return New StaffPaymentDataTable()
14860         End Function
14861         
14862         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14863          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14864         Friend Sub InitVars()
14865             Me.columnId = MyBase.Columns("Id")
14866             Me.columnPaymentID = MyBase.Columns("PaymentID")
14867             Me.columnDateFrom = MyBase.Columns("DateFrom")
14868             Me.columnDateTo = MyBase.Columns("DateTo")
14869             Me.columnStaffID = MyBase.Columns("StaffID")
14870             Me.columnPresentDays = MyBase.Columns("PresentDays")
14871             Me.columnSalary = MyBase.Columns("Salary")
14872             Me.columnAdvance = MyBase.Columns("Advance")
14873             Me.columnDeduction = MyBase.Columns("Deduction")
14874             Me.columnPaymentDate = MyBase.Columns("PaymentDate")
14875             Me.columnModeOfPayment = MyBase.Columns("ModeOfPayment")
14876             Me.columnPaymentModeDetails = MyBase.Columns("PaymentModeDetails")
14877             Me.columnNetPay = MyBase.Columns("NetPay")
14878         End Sub
14879         
14880         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14881          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14882         Private Sub InitClass()
14883             Me.columnId = New Global.System.Data.DataColumn("Id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
14884             MyBase.Columns.Add(Me.columnId)
14885             Me.columnPaymentID = New Global.System.Data.DataColumn("PaymentID", GetType(String), Nothing, Global.System.Data.MappingType.Element)
14886             MyBase.Columns.Add(Me.columnPaymentID)
14887             Me.columnDateFrom = New Global.System.Data.DataColumn("DateFrom", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
14888             MyBase.Columns.Add(Me.columnDateFrom)
14889             Me.columnDateTo = New Global.System.Data.DataColumn("DateTo", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
14890             MyBase.Columns.Add(Me.columnDateTo)
14891             Me.columnStaffID = New Global.System.Data.DataColumn("StaffID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
14892             MyBase.Columns.Add(Me.columnStaffID)
14893             Me.columnPresentDays = New Global.System.Data.DataColumn("PresentDays", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
14894             MyBase.Columns.Add(Me.columnPresentDays)
14895             Me.columnSalary = New Global.System.Data.DataColumn("Salary", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
14896             MyBase.Columns.Add(Me.columnSalary)
14897             Me.columnAdvance = New Global.System.Data.DataColumn("Advance", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
14898             MyBase.Columns.Add(Me.columnAdvance)
14899             Me.columnDeduction = New Global.System.Data.DataColumn("Deduction", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
14900             MyBase.Columns.Add(Me.columnDeduction)
14901             Me.columnPaymentDate = New Global.System.Data.DataColumn("PaymentDate", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
14902             MyBase.Columns.Add(Me.columnPaymentDate)
14903             Me.columnModeOfPayment = New Global.System.Data.DataColumn("ModeOfPayment", GetType(String), Nothing, Global.System.Data.MappingType.Element)
14904             MyBase.Columns.Add(Me.columnModeOfPayment)
14905             Me.columnPaymentModeDetails = New Global.System.Data.DataColumn("PaymentModeDetails", GetType(String), Nothing, Global.System.Data.MappingType.Element)
14906             MyBase.Columns.Add(Me.columnPaymentModeDetails)
14907             Me.columnNetPay = New Global.System.Data.DataColumn("NetPay", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
14908             MyBase.Columns.Add(Me.columnNetPay)
14909             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnId}, true))
14910             Me.columnId.AllowDBNull = false
14911             Me.columnId.Unique = true
14912             Me.columnPaymentID.AllowDBNull = false
14913             Me.columnPaymentID.MaxLength = 20
14914             Me.columnDateFrom.AllowDBNull = false
14915             Me.columnDateTo.AllowDBNull = false
14916             Me.columnStaffID.AllowDBNull = false
14917             Me.columnPresentDays.AllowDBNull = false
14918             Me.columnSalary.AllowDBNull = false
14919             Me.columnAdvance.AllowDBNull = false
14920             Me.columnDeduction.AllowDBNull = false
14921             Me.columnPaymentDate.AllowDBNull = false
14922             Me.columnModeOfPayment.AllowDBNull = false
14923             Me.columnModeOfPayment.MaxLength = 50
14924             Me.columnPaymentModeDetails.MaxLength = 2147483647
14925             Me.columnNetPay.AllowDBNull = false
14926         End Sub
14927         
14928         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14929          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14930         Public Function NewStaffPaymentRow() As StaffPaymentRow
14931             Return CType(Me.NewRow,StaffPaymentRow)
14932         End Function
14933         
14934         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14935          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14936         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
14937             Return New StaffPaymentRow(builder)
14938         End Function
14939         
14940         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14941          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14942         Protected Overrides Function GetRowType() As Global.System.Type
14943             Return GetType(StaffPaymentRow)
14944         End Function
14945         
14946         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14947          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14948         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
14949             MyBase.OnRowChanged(e)
14950             If (Not (Me.StaffPaymentRowChangedEvent) Is Nothing) Then
14951                 RaiseEvent StaffPaymentRowChanged(Me, New StaffPaymentRowChangeEvent(CType(e.Row,StaffPaymentRow), e.Action))
14952             End If
14953         End Sub
14954         
14955         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14956          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14957         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
14958             MyBase.OnRowChanging(e)
14959             If (Not (Me.StaffPaymentRowChangingEvent) Is Nothing) Then
14960                 RaiseEvent StaffPaymentRowChanging(Me, New StaffPaymentRowChangeEvent(CType(e.Row,StaffPaymentRow), e.Action))
14961             End If
14962         End Sub
14963         
14964         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14965          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14966         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
14967             MyBase.OnRowDeleted(e)
14968             If (Not (Me.StaffPaymentRowDeletedEvent) Is Nothing) Then
14969                 RaiseEvent StaffPaymentRowDeleted(Me, New StaffPaymentRowChangeEvent(CType(e.Row,StaffPaymentRow), e.Action))
14970             End If
14971         End Sub
14972         
14973         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14974          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14975         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
14976             MyBase.OnRowDeleting(e)
14977             If (Not (Me.StaffPaymentRowDeletingEvent) Is Nothing) Then
14978                 RaiseEvent StaffPaymentRowDeleting(Me, New StaffPaymentRowChangeEvent(CType(e.Row,StaffPaymentRow), e.Action))
14979             End If
14980         End Sub
14981         
14982         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14983          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14984         Public Sub RemoveStaffPaymentRow(ByVal row As StaffPaymentRow)
14985             Me.Rows.Remove(row)
14986         End Sub
14987         
14988         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14989          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14990         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
14991             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
14992             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
14993             Dim ds As ERPS_DBDataSet1 = New ERPS_DBDataSet1()
14994             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
14995             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
14996             any1.MinOccurs = New Decimal(0)
14997             any1.MaxOccurs = Decimal.MaxValue
14998             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
14999             sequence.Items.Add(any1)
15000             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
15001             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
15002             any2.MinOccurs = New Decimal(1)
15003             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
15004             sequence.Items.Add(any2)
15005             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
15006             attribute1.Name = "namespace"
15007             attribute1.FixedValue = ds.Namespace
15008             type.Attributes.Add(attribute1)
15009             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
15010             attribute2.Name = "tableTypeName"
15011             attribute2.FixedValue = "StaffPaymentDataTable"
15012             type.Attributes.Add(attribute2)
15013             type.Particle = sequence
15014             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
15015             If xs.Contains(dsSchema.TargetNamespace) Then
15016                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
15017                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
15018                 Try
15019                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
15020                     dsSchema.Write(s1)
15021                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
15022                     Do While schemas.MoveNext
15023                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
15024                         s2.SetLength(0)
15025                         schema.Write(s2)
15026                         If (s1.Length = s2.Length) Then
15027                             s1.Position = 0
15028                             s2.Position = 0
15029                             
15030                             Do While ((s1.Position <> s1.Length) _
15031                                         AndAlso (s1.ReadByte = s2.ReadByte))
15032                                 
15033                                 
15034                             Loop
15035                             If (s1.Position = s1.Length) Then
15036                                 Return type
15037                             End If
15038                         End If
15039                         
15040                     Loop
15041                 Finally
15042                     If (Not (s1) Is Nothing) Then
15043                         s1.Close
15044                     End If
15045                     If (Not (s2) Is Nothing) Then
15046                         s2.Close
15047                     End If
15048                 End Try
15049             End If
15050             xs.Add(dsSchema)
15051             Return type
15052         End Function
15053     End Class
15054     
15055     '''<summary>
15056     '''Represents the strongly named DataTable class.
15057     '''</summary>
15058     <Global.System.Serializable(), _
15059      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
15060     Partial Public Class StudentDataTable
15061         Inherits Global.System.Data.TypedTableBase(Of StudentRow)
15062         
15063         Private columnAdmissionNo As Global.System.Data.DataColumn
15064         
15065         Private columnEnrollmentNo As Global.System.Data.DataColumn
15066         
15067         Private columnGRNo As Global.System.Data.DataColumn
15068         
15069         Private columnUID As Global.System.Data.DataColumn
15070         
15071         Private columnStudentName As Global.System.Data.DataColumn
15072         
15073         Private columnFatherName As Global.System.Data.DataColumn
15074         
15075         Private columnMotherName As Global.System.Data.DataColumn
15076         
15077         Private columnFatherCN As Global.System.Data.DataColumn
15078         
15079         Private columnPermanentAddress As Global.System.Data.DataColumn
15080         
15081         Private columnTemporaryAddress As Global.System.Data.DataColumn
15082         
15083         Private columnContactNo As Global.System.Data.DataColumn
15084         
15085         Private columnEmailID As Global.System.Data.DataColumn
15086         
15087         Private columnDOB As Global.System.Data.DataColumn
15088         
15089         Private columnGender As Global.System.Data.DataColumn
15090         
15091         Private columnAdmissionDate As Global.System.Data.DataColumn
15092         
15093         Private columnSession As Global.System.Data.DataColumn
15094         
15095         Private columnCaste As Global.System.Data.DataColumn
15096         
15097         Private columnReligion As Global.System.Data.DataColumn
15098         
15099         Private columnSectionID As Global.System.Data.DataColumn
15100         
15101         Private columnPhoto As Global.System.Data.DataColumn
15102         
15103         Private columnNationality As Global.System.Data.DataColumn
15104         
15105         Private columnSchoolID As Global.System.Data.DataColumn
15106         
15107         Private columnLastSchoolAttended As Global.System.Data.DataColumn
15108         
15109         Private columnResult As Global.System.Data.DataColumn
15110         
15111         Private columnPassPercentage As Global.System.Data.DataColumn
15112         
15113         Private columnStatus As Global.System.Data.DataColumn
15114         
15115         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15116          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15117         Public Sub New()
15118             MyBase.New
15119             Me.TableName = "Student"
15120             Me.BeginInit
15121             Me.InitClass
15122             Me.EndInit
15123         End Sub
15124         
15125         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15126          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15127         Friend Sub New(ByVal table As Global.System.Data.DataTable)
15128             MyBase.New
15129             Me.TableName = table.TableName
15130             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
15131                 Me.CaseSensitive = table.CaseSensitive
15132             End If
15133             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
15134                 Me.Locale = table.Locale
15135             End If
15136             If (table.Namespace <> table.DataSet.Namespace) Then
15137                 Me.Namespace = table.Namespace
15138             End If
15139             Me.Prefix = table.Prefix
15140             Me.MinimumCapacity = table.MinimumCapacity
15141         End Sub
15142         
15143         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15144          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15145         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
15146             MyBase.New(info, context)
15147             Me.InitVars
15148         End Sub
15149         
15150         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15151          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15152         Public ReadOnly Property AdmissionNoColumn() As Global.System.Data.DataColumn
15153             Get
15154                 Return Me.columnAdmissionNo
15155             End Get
15156         End Property
15157         
15158         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15159          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15160         Public ReadOnly Property EnrollmentNoColumn() As Global.System.Data.DataColumn
15161             Get
15162                 Return Me.columnEnrollmentNo
15163             End Get
15164         End Property
15165         
15166         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15167          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15168         Public ReadOnly Property GRNoColumn() As Global.System.Data.DataColumn
15169             Get
15170                 Return Me.columnGRNo
15171             End Get
15172         End Property
15173         
15174         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15175          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15176         Public ReadOnly Property UIDColumn() As Global.System.Data.DataColumn
15177             Get
15178                 Return Me.columnUID
15179             End Get
15180         End Property
15181         
15182         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15183          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15184         Public ReadOnly Property StudentNameColumn() As Global.System.Data.DataColumn
15185             Get
15186                 Return Me.columnStudentName
15187             End Get
15188         End Property
15189         
15190         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15191          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15192         Public ReadOnly Property FatherNameColumn() As Global.System.Data.DataColumn
15193             Get
15194                 Return Me.columnFatherName
15195             End Get
15196         End Property
15197         
15198         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15199          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15200         Public ReadOnly Property MotherNameColumn() As Global.System.Data.DataColumn
15201             Get
15202                 Return Me.columnMotherName
15203             End Get
15204         End Property
15205         
15206         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15207          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15208         Public ReadOnly Property FatherCNColumn() As Global.System.Data.DataColumn
15209             Get
15210                 Return Me.columnFatherCN
15211             End Get
15212         End Property
15213         
15214         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15215          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15216         Public ReadOnly Property PermanentAddressColumn() As Global.System.Data.DataColumn
15217             Get
15218                 Return Me.columnPermanentAddress
15219             End Get
15220         End Property
15221         
15222         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15223          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15224         Public ReadOnly Property TemporaryAddressColumn() As Global.System.Data.DataColumn
15225             Get
15226                 Return Me.columnTemporaryAddress
15227             End Get
15228         End Property
15229         
15230         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15231          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15232         Public ReadOnly Property ContactNoColumn() As Global.System.Data.DataColumn
15233             Get
15234                 Return Me.columnContactNo
15235             End Get
15236         End Property
15237         
15238         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15239          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15240         Public ReadOnly Property EmailIDColumn() As Global.System.Data.DataColumn
15241             Get
15242                 Return Me.columnEmailID
15243             End Get
15244         End Property
15245         
15246         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15247          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15248         Public ReadOnly Property DOBColumn() As Global.System.Data.DataColumn
15249             Get
15250                 Return Me.columnDOB
15251             End Get
15252         End Property
15253         
15254         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15255          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15256         Public ReadOnly Property GenderColumn() As Global.System.Data.DataColumn
15257             Get
15258                 Return Me.columnGender
15259             End Get
15260         End Property
15261         
15262         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15263          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15264         Public ReadOnly Property AdmissionDateColumn() As Global.System.Data.DataColumn
15265             Get
15266                 Return Me.columnAdmissionDate
15267             End Get
15268         End Property
15269         
15270         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15271          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15272         Public ReadOnly Property SessionColumn() As Global.System.Data.DataColumn
15273             Get
15274                 Return Me.columnSession
15275             End Get
15276         End Property
15277         
15278         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15279          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15280         Public ReadOnly Property CasteColumn() As Global.System.Data.DataColumn
15281             Get
15282                 Return Me.columnCaste
15283             End Get
15284         End Property
15285         
15286         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15287          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15288         Public ReadOnly Property ReligionColumn() As Global.System.Data.DataColumn
15289             Get
15290                 Return Me.columnReligion
15291             End Get
15292         End Property
15293         
15294         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15295          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15296         Public ReadOnly Property SectionIDColumn() As Global.System.Data.DataColumn
15297             Get
15298                 Return Me.columnSectionID
15299             End Get
15300         End Property
15301         
15302         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15303          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15304         Public ReadOnly Property PhotoColumn() As Global.System.Data.DataColumn
15305             Get
15306                 Return Me.columnPhoto
15307             End Get
15308         End Property
15309         
15310         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15311          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15312         Public ReadOnly Property NationalityColumn() As Global.System.Data.DataColumn
15313             Get
15314                 Return Me.columnNationality
15315             End Get
15316         End Property
15317         
15318         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15319          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15320         Public ReadOnly Property SchoolIDColumn() As Global.System.Data.DataColumn
15321             Get
15322                 Return Me.columnSchoolID
15323             End Get
15324         End Property
15325         
15326         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15327          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15328         Public ReadOnly Property LastSchoolAttendedColumn() As Global.System.Data.DataColumn
15329             Get
15330                 Return Me.columnLastSchoolAttended
15331             End Get
15332         End Property
15333         
15334         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15335          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15336         Public ReadOnly Property ResultColumn() As Global.System.Data.DataColumn
15337             Get
15338                 Return Me.columnResult
15339             End Get
15340         End Property
15341         
15342         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15343          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15344         Public ReadOnly Property PassPercentageColumn() As Global.System.Data.DataColumn
15345             Get
15346                 Return Me.columnPassPercentage
15347             End Get
15348         End Property
15349         
15350         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15351          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15352         Public ReadOnly Property StatusColumn() As Global.System.Data.DataColumn
15353             Get
15354                 Return Me.columnStatus
15355             End Get
15356         End Property
15357         
15358         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15359          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
15360          Global.System.ComponentModel.Browsable(false)> _
15361         Public ReadOnly Property Count() As Integer
15362             Get
15363                 Return Me.Rows.Count
15364             End Get
15365         End Property
15366         
15367         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15368          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15369         Public Default ReadOnly Property Item(ByVal index As Integer) As StudentRow
15370             Get
15371                 Return CType(Me.Rows(index),StudentRow)
15372             End Get
15373         End Property
15374         
15375         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15376         Public Event StudentRowChanging As StudentRowChangeEventHandler
15377         
15378         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15379         Public Event StudentRowChanged As StudentRowChangeEventHandler
15380         
15381         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15382         Public Event StudentRowDeleting As StudentRowChangeEventHandler
15383         
15384         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15385         Public Event StudentRowDeleted As StudentRowChangeEventHandler
15386         
15387         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15388          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15389         Public Overloads Sub AddStudentRow(ByVal row As StudentRow)
15390             Me.Rows.Add(row)
15391         End Sub
15392         
15393         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15394          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15395         Public Overloads Function AddStudentRow( _
15396                     ByVal AdmissionNo As String, _
15397                     ByVal EnrollmentNo As String, _
15398                     ByVal GRNo As String, _
15399                     ByVal UID As String, _
15400                     ByVal StudentName As String, _
15401                     ByVal FatherName As String, _
15402                     ByVal MotherName As String, _
15403                     ByVal FatherCN As String, _
15404                     ByVal PermanentAddress As String, _
15405                     ByVal TemporaryAddress As String, _
15406                     ByVal ContactNo As String, _
15407                     ByVal EmailID As String, _
15408                     ByVal DOB As Date, _
15409                     ByVal Gender As String, _
15410                     ByVal AdmissionDate As Date, _
15411                     ByVal parentSession_MasterRowByFK_Student_Session_Master As Session_MasterRow, _
15412                     ByVal Caste As String, _
15413                     ByVal Religion As String, _
15414                     ByVal parentSectionRowByFK_Student_Section As SectionRow, _
15415                     ByVal Photo() As Byte, _
15416                     ByVal Nationality As String, _
15417                     ByVal parentSchoolInfoRowByFK_Student_SchoolInfo As SchoolInfoRow, _
15418                     ByVal LastSchoolAttended As String, _
15419                     ByVal Result As String, _
15420                     ByVal PassPercentage As String, _
15421                     ByVal Status As String) As StudentRow
15422             Dim rowStudentRow As StudentRow = CType(Me.NewRow,StudentRow)
15423             Dim columnValuesArray() As Object = New Object() {AdmissionNo, EnrollmentNo, GRNo, UID, StudentName, FatherName, MotherName, FatherCN, PermanentAddress, TemporaryAddress, ContactNo, EmailID, DOB, Gender, AdmissionDate, Nothing, Caste, Religion, Nothing, Photo, Nationality, Nothing, LastSchoolAttended, Result, PassPercentage, Status}
15424             If (Not (parentSession_MasterRowByFK_Student_Session_Master) Is Nothing) Then
15425                 columnValuesArray(15) = parentSession_MasterRowByFK_Student_Session_Master(0)
15426             End If
15427             If (Not (parentSectionRowByFK_Student_Section) Is Nothing) Then
15428                 columnValuesArray(18) = parentSectionRowByFK_Student_Section(0)
15429             End If
15430             If (Not (parentSchoolInfoRowByFK_Student_SchoolInfo) Is Nothing) Then
15431                 columnValuesArray(21) = parentSchoolInfoRowByFK_Student_SchoolInfo(0)
15432             End If
15433             rowStudentRow.ItemArray = columnValuesArray
15434             Me.Rows.Add(rowStudentRow)
15435             Return rowStudentRow
15436         End Function
15437         
15438         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15439          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15440         Public Function FindByAdmissionNo(ByVal AdmissionNo As String) As StudentRow
15441             Return CType(Me.Rows.Find(New Object() {AdmissionNo}),StudentRow)
15442         End Function
15443         
15444         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15445          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15446         Public Overrides Function Clone() As Global.System.Data.DataTable
15447             Dim cln As StudentDataTable = CType(MyBase.Clone,StudentDataTable)
15448             cln.InitVars
15449             Return cln
15450         End Function
15451         
15452         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15453          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15454         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
15455             Return New StudentDataTable()
15456         End Function
15457         
15458         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15459          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15460         Friend Sub InitVars()
15461             Me.columnAdmissionNo = MyBase.Columns("AdmissionNo")
15462             Me.columnEnrollmentNo = MyBase.Columns("EnrollmentNo")
15463             Me.columnGRNo = MyBase.Columns("GRNo")
15464             Me.columnUID = MyBase.Columns("UID")
15465             Me.columnStudentName = MyBase.Columns("StudentName")
15466             Me.columnFatherName = MyBase.Columns("FatherName")
15467             Me.columnMotherName = MyBase.Columns("MotherName")
15468             Me.columnFatherCN = MyBase.Columns("FatherCN")
15469             Me.columnPermanentAddress = MyBase.Columns("PermanentAddress")
15470             Me.columnTemporaryAddress = MyBase.Columns("TemporaryAddress")
15471             Me.columnContactNo = MyBase.Columns("ContactNo")
15472             Me.columnEmailID = MyBase.Columns("EmailID")
15473             Me.columnDOB = MyBase.Columns("DOB")
15474             Me.columnGender = MyBase.Columns("Gender")
15475             Me.columnAdmissionDate = MyBase.Columns("AdmissionDate")
15476             Me.columnSession = MyBase.Columns("Session")
15477             Me.columnCaste = MyBase.Columns("Caste")
15478             Me.columnReligion = MyBase.Columns("Religion")
15479             Me.columnSectionID = MyBase.Columns("SectionID")
15480             Me.columnPhoto = MyBase.Columns("Photo")
15481             Me.columnNationality = MyBase.Columns("Nationality")
15482             Me.columnSchoolID = MyBase.Columns("SchoolID")
15483             Me.columnLastSchoolAttended = MyBase.Columns("LastSchoolAttended")
15484             Me.columnResult = MyBase.Columns("Result")
15485             Me.columnPassPercentage = MyBase.Columns("PassPercentage")
15486             Me.columnStatus = MyBase.Columns("Status")
15487         End Sub
15488         
15489         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15490          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15491         Private Sub InitClass()
15492             Me.columnAdmissionNo = New Global.System.Data.DataColumn("AdmissionNo", GetType(String), Nothing, Global.System.Data.MappingType.Element)
15493             MyBase.Columns.Add(Me.columnAdmissionNo)
15494             Me.columnEnrollmentNo = New Global.System.Data.DataColumn("EnrollmentNo", GetType(String), Nothing, Global.System.Data.MappingType.Element)
15495             MyBase.Columns.Add(Me.columnEnrollmentNo)
15496             Me.columnGRNo = New Global.System.Data.DataColumn("GRNo", GetType(String), Nothing, Global.System.Data.MappingType.Element)
15497             MyBase.Columns.Add(Me.columnGRNo)
15498             Me.columnUID = New Global.System.Data.DataColumn("UID", GetType(String), Nothing, Global.System.Data.MappingType.Element)
15499             MyBase.Columns.Add(Me.columnUID)
15500             Me.columnStudentName = New Global.System.Data.DataColumn("StudentName", GetType(String), Nothing, Global.System.Data.MappingType.Element)
15501             MyBase.Columns.Add(Me.columnStudentName)
15502             Me.columnFatherName = New Global.System.Data.DataColumn("FatherName", GetType(String), Nothing, Global.System.Data.MappingType.Element)
15503             MyBase.Columns.Add(Me.columnFatherName)
15504             Me.columnMotherName = New Global.System.Data.DataColumn("MotherName", GetType(String), Nothing, Global.System.Data.MappingType.Element)
15505             MyBase.Columns.Add(Me.columnMotherName)
15506             Me.columnFatherCN = New Global.System.Data.DataColumn("FatherCN", GetType(String), Nothing, Global.System.Data.MappingType.Element)
15507             MyBase.Columns.Add(Me.columnFatherCN)
15508             Me.columnPermanentAddress = New Global.System.Data.DataColumn("PermanentAddress", GetType(String), Nothing, Global.System.Data.MappingType.Element)
15509             MyBase.Columns.Add(Me.columnPermanentAddress)
15510             Me.columnTemporaryAddress = New Global.System.Data.DataColumn("TemporaryAddress", GetType(String), Nothing, Global.System.Data.MappingType.Element)
15511             MyBase.Columns.Add(Me.columnTemporaryAddress)
15512             Me.columnContactNo = New Global.System.Data.DataColumn("ContactNo", GetType(String), Nothing, Global.System.Data.MappingType.Element)
15513             MyBase.Columns.Add(Me.columnContactNo)
15514             Me.columnEmailID = New Global.System.Data.DataColumn("EmailID", GetType(String), Nothing, Global.System.Data.MappingType.Element)
15515             MyBase.Columns.Add(Me.columnEmailID)
15516             Me.columnDOB = New Global.System.Data.DataColumn("DOB", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
15517             MyBase.Columns.Add(Me.columnDOB)
15518             Me.columnGender = New Global.System.Data.DataColumn("Gender", GetType(String), Nothing, Global.System.Data.MappingType.Element)
15519             MyBase.Columns.Add(Me.columnGender)
15520             Me.columnAdmissionDate = New Global.System.Data.DataColumn("AdmissionDate", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
15521             MyBase.Columns.Add(Me.columnAdmissionDate)
15522             Me.columnSession = New Global.System.Data.DataColumn("Session", GetType(String), Nothing, Global.System.Data.MappingType.Element)
15523             MyBase.Columns.Add(Me.columnSession)
15524             Me.columnCaste = New Global.System.Data.DataColumn("Caste", GetType(String), Nothing, Global.System.Data.MappingType.Element)
15525             MyBase.Columns.Add(Me.columnCaste)
15526             Me.columnReligion = New Global.System.Data.DataColumn("Religion", GetType(String), Nothing, Global.System.Data.MappingType.Element)
15527             MyBase.Columns.Add(Me.columnReligion)
15528             Me.columnSectionID = New Global.System.Data.DataColumn("SectionID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
15529             MyBase.Columns.Add(Me.columnSectionID)
15530             Me.columnPhoto = New Global.System.Data.DataColumn("Photo", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element)
15531             MyBase.Columns.Add(Me.columnPhoto)
15532             Me.columnNationality = New Global.System.Data.DataColumn("Nationality", GetType(String), Nothing, Global.System.Data.MappingType.Element)
15533             MyBase.Columns.Add(Me.columnNationality)
15534             Me.columnSchoolID = New Global.System.Data.DataColumn("SchoolID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
15535             MyBase.Columns.Add(Me.columnSchoolID)
15536             Me.columnLastSchoolAttended = New Global.System.Data.DataColumn("LastSchoolAttended", GetType(String), Nothing, Global.System.Data.MappingType.Element)
15537             MyBase.Columns.Add(Me.columnLastSchoolAttended)
15538             Me.columnResult = New Global.System.Data.DataColumn("Result", GetType(String), Nothing, Global.System.Data.MappingType.Element)
15539             MyBase.Columns.Add(Me.columnResult)
15540             Me.columnPassPercentage = New Global.System.Data.DataColumn("PassPercentage", GetType(String), Nothing, Global.System.Data.MappingType.Element)
15541             MyBase.Columns.Add(Me.columnPassPercentage)
15542             Me.columnStatus = New Global.System.Data.DataColumn("Status", GetType(String), Nothing, Global.System.Data.MappingType.Element)
15543             MyBase.Columns.Add(Me.columnStatus)
15544             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnAdmissionNo}, true))
15545             Me.columnAdmissionNo.AllowDBNull = false
15546             Me.columnAdmissionNo.Unique = true
15547             Me.columnAdmissionNo.MaxLength = 15
15548             Me.columnEnrollmentNo.MaxLength = 15
15549             Me.columnGRNo.MaxLength = 50
15550             Me.columnUID.MaxLength = 50
15551             Me.columnStudentName.AllowDBNull = false
15552             Me.columnStudentName.MaxLength = 100
15553             Me.columnFatherName.AllowDBNull = false
15554             Me.columnFatherName.MaxLength = 100
15555             Me.columnMotherName.AllowDBNull = false
15556             Me.columnMotherName.MaxLength = 100
15557             Me.columnFatherCN.MaxLength = 15
15558             Me.columnPermanentAddress.AllowDBNull = false
15559             Me.columnPermanentAddress.MaxLength = 250
15560             Me.columnTemporaryAddress.AllowDBNull = false
15561             Me.columnTemporaryAddress.MaxLength = 250
15562             Me.columnContactNo.AllowDBNull = false
15563             Me.columnContactNo.MaxLength = 15
15564             Me.columnEmailID.MaxLength = 250
15565             Me.columnDOB.AllowDBNull = false
15566             Me.columnGender.AllowDBNull = false
15567             Me.columnGender.MaxLength = 10
15568             Me.columnAdmissionDate.AllowDBNull = false
15569             Me.columnSession.AllowDBNull = false
15570             Me.columnSession.MaxLength = 15
15571             Me.columnCaste.AllowDBNull = false
15572             Me.columnCaste.MaxLength = 15
15573             Me.columnReligion.AllowDBNull = false
15574             Me.columnReligion.MaxLength = 15
15575             Me.columnSectionID.AllowDBNull = false
15576             Me.columnPhoto.AllowDBNull = false
15577             Me.columnNationality.MaxLength = 100
15578             Me.columnSchoolID.AllowDBNull = false
15579             Me.columnLastSchoolAttended.MaxLength = 250
15580             Me.columnResult.MaxLength = 20
15581             Me.columnPassPercentage.MaxLength = 10
15582             Me.columnStatus.AllowDBNull = false
15583             Me.columnStatus.MaxLength = 15
15584         End Sub
15585         
15586         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15587          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15588         Public Function NewStudentRow() As StudentRow
15589             Return CType(Me.NewRow,StudentRow)
15590         End Function
15591         
15592         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15593          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15594         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
15595             Return New StudentRow(builder)
15596         End Function
15597         
15598         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15599          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15600         Protected Overrides Function GetRowType() As Global.System.Type
15601             Return GetType(StudentRow)
15602         End Function
15603         
15604         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15605          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15606         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
15607             MyBase.OnRowChanged(e)
15608             If (Not (Me.StudentRowChangedEvent) Is Nothing) Then
15609                 RaiseEvent StudentRowChanged(Me, New StudentRowChangeEvent(CType(e.Row,StudentRow), e.Action))
15610             End If
15611         End Sub
15612         
15613         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15614          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15615         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
15616             MyBase.OnRowChanging(e)
15617             If (Not (Me.StudentRowChangingEvent) Is Nothing) Then
15618                 RaiseEvent StudentRowChanging(Me, New StudentRowChangeEvent(CType(e.Row,StudentRow), e.Action))
15619             End If
15620         End Sub
15621         
15622         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15623          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15624         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
15625             MyBase.OnRowDeleted(e)
15626             If (Not (Me.StudentRowDeletedEvent) Is Nothing) Then
15627                 RaiseEvent StudentRowDeleted(Me, New StudentRowChangeEvent(CType(e.Row,StudentRow), e.Action))
15628             End If
15629         End Sub
15630         
15631         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15632          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15633         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
15634             MyBase.OnRowDeleting(e)
15635             If (Not (Me.StudentRowDeletingEvent) Is Nothing) Then
15636                 RaiseEvent StudentRowDeleting(Me, New StudentRowChangeEvent(CType(e.Row,StudentRow), e.Action))
15637             End If
15638         End Sub
15639         
15640         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15641          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15642         Public Sub RemoveStudentRow(ByVal row As StudentRow)
15643             Me.Rows.Remove(row)
15644         End Sub
15645         
15646         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15647          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15648         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
15649             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
15650             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
15651             Dim ds As ERPS_DBDataSet1 = New ERPS_DBDataSet1()
15652             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
15653             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
15654             any1.MinOccurs = New Decimal(0)
15655             any1.MaxOccurs = Decimal.MaxValue
15656             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
15657             sequence.Items.Add(any1)
15658             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
15659             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
15660             any2.MinOccurs = New Decimal(1)
15661             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
15662             sequence.Items.Add(any2)
15663             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
15664             attribute1.Name = "namespace"
15665             attribute1.FixedValue = ds.Namespace
15666             type.Attributes.Add(attribute1)
15667             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
15668             attribute2.Name = "tableTypeName"
15669             attribute2.FixedValue = "StudentDataTable"
15670             type.Attributes.Add(attribute2)
15671             type.Particle = sequence
15672             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
15673             If xs.Contains(dsSchema.TargetNamespace) Then
15674                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
15675                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
15676                 Try
15677                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
15678                     dsSchema.Write(s1)
15679                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
15680                     Do While schemas.MoveNext
15681                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
15682                         s2.SetLength(0)
15683                         schema.Write(s2)
15684                         If (s1.Length = s2.Length) Then
15685                             s1.Position = 0
15686                             s2.Position = 0
15687                             
15688                             Do While ((s1.Position <> s1.Length) _
15689                                         AndAlso (s1.ReadByte = s2.ReadByte))
15690                                 
15691                                 
15692                             Loop
15693                             If (s1.Position = s1.Length) Then
15694                                 Return type
15695                             End If
15696                         End If
15697                         
15698                     Loop
15699                 Finally
15700                     If (Not (s1) Is Nothing) Then
15701                         s1.Close
15702                     End If
15703                     If (Not (s2) Is Nothing) Then
15704                         s2.Close
15705                     End If
15706                 End Try
15707             End If
15708             xs.Add(dsSchema)
15709             Return type
15710         End Function
15711     End Class
15712     
15713     '''<summary>
15714     '''Represents the strongly named DataTable class.
15715     '''</summary>
15716     <Global.System.Serializable(), _
15717      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
15718     Partial Public Class StudentDocSubmittedDataTable
15719         Inherits Global.System.Data.TypedTableBase(Of StudentDocSubmittedRow)
15720         
15721         Private columnSDS_id As Global.System.Data.DataColumn
15722         
15723         Private columnAdmissionNo As Global.System.Data.DataColumn
15724         
15725         Private columnDocId As Global.System.Data.DataColumn
15726         
15727         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15728          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15729         Public Sub New()
15730             MyBase.New
15731             Me.TableName = "StudentDocSubmitted"
15732             Me.BeginInit
15733             Me.InitClass
15734             Me.EndInit
15735         End Sub
15736         
15737         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15738          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15739         Friend Sub New(ByVal table As Global.System.Data.DataTable)
15740             MyBase.New
15741             Me.TableName = table.TableName
15742             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
15743                 Me.CaseSensitive = table.CaseSensitive
15744             End If
15745             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
15746                 Me.Locale = table.Locale
15747             End If
15748             If (table.Namespace <> table.DataSet.Namespace) Then
15749                 Me.Namespace = table.Namespace
15750             End If
15751             Me.Prefix = table.Prefix
15752             Me.MinimumCapacity = table.MinimumCapacity
15753         End Sub
15754         
15755         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15756          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15757         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
15758             MyBase.New(info, context)
15759             Me.InitVars
15760         End Sub
15761         
15762         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15763          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15764         Public ReadOnly Property SDS_idColumn() As Global.System.Data.DataColumn
15765             Get
15766                 Return Me.columnSDS_id
15767             End Get
15768         End Property
15769         
15770         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15771          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15772         Public ReadOnly Property AdmissionNoColumn() As Global.System.Data.DataColumn
15773             Get
15774                 Return Me.columnAdmissionNo
15775             End Get
15776         End Property
15777         
15778         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15779          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15780         Public ReadOnly Property DocIdColumn() As Global.System.Data.DataColumn
15781             Get
15782                 Return Me.columnDocId
15783             End Get
15784         End Property
15785         
15786         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15787          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
15788          Global.System.ComponentModel.Browsable(false)> _
15789         Public ReadOnly Property Count() As Integer
15790             Get
15791                 Return Me.Rows.Count
15792             End Get
15793         End Property
15794         
15795         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15796          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15797         Public Default ReadOnly Property Item(ByVal index As Integer) As StudentDocSubmittedRow
15798             Get
15799                 Return CType(Me.Rows(index),StudentDocSubmittedRow)
15800             End Get
15801         End Property
15802         
15803         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15804         Public Event StudentDocSubmittedRowChanging As StudentDocSubmittedRowChangeEventHandler
15805         
15806         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15807         Public Event StudentDocSubmittedRowChanged As StudentDocSubmittedRowChangeEventHandler
15808         
15809         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15810         Public Event StudentDocSubmittedRowDeleting As StudentDocSubmittedRowChangeEventHandler
15811         
15812         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15813         Public Event StudentDocSubmittedRowDeleted As StudentDocSubmittedRowChangeEventHandler
15814         
15815         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15816          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15817         Public Overloads Sub AddStudentDocSubmittedRow(ByVal row As StudentDocSubmittedRow)
15818             Me.Rows.Add(row)
15819         End Sub
15820         
15821         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15822          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15823         Public Overloads Function AddStudentDocSubmittedRow(ByVal parentStudentRowByFK_StudentDocSubmitted_Student As StudentRow, ByVal parentDocumentRowByFK_StudentDocSubmitted_Document As DocumentRow) As StudentDocSubmittedRow
15824             Dim rowStudentDocSubmittedRow As StudentDocSubmittedRow = CType(Me.NewRow,StudentDocSubmittedRow)
15825             Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, Nothing}
15826             If (Not (parentStudentRowByFK_StudentDocSubmitted_Student) Is Nothing) Then
15827                 columnValuesArray(1) = parentStudentRowByFK_StudentDocSubmitted_Student(0)
15828             End If
15829             If (Not (parentDocumentRowByFK_StudentDocSubmitted_Document) Is Nothing) Then
15830                 columnValuesArray(2) = parentDocumentRowByFK_StudentDocSubmitted_Document(0)
15831             End If
15832             rowStudentDocSubmittedRow.ItemArray = columnValuesArray
15833             Me.Rows.Add(rowStudentDocSubmittedRow)
15834             Return rowStudentDocSubmittedRow
15835         End Function
15836         
15837         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15838          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15839         Public Function FindBySDS_id(ByVal SDS_id As Integer) As StudentDocSubmittedRow
15840             Return CType(Me.Rows.Find(New Object() {SDS_id}),StudentDocSubmittedRow)
15841         End Function
15842         
15843         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15844          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15845         Public Overrides Function Clone() As Global.System.Data.DataTable
15846             Dim cln As StudentDocSubmittedDataTable = CType(MyBase.Clone,StudentDocSubmittedDataTable)
15847             cln.InitVars
15848             Return cln
15849         End Function
15850         
15851         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15852          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15853         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
15854             Return New StudentDocSubmittedDataTable()
15855         End Function
15856         
15857         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15858          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15859         Friend Sub InitVars()
15860             Me.columnSDS_id = MyBase.Columns("SDS_id")
15861             Me.columnAdmissionNo = MyBase.Columns("AdmissionNo")
15862             Me.columnDocId = MyBase.Columns("DocId")
15863         End Sub
15864         
15865         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15866          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15867         Private Sub InitClass()
15868             Me.columnSDS_id = New Global.System.Data.DataColumn("SDS_id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
15869             MyBase.Columns.Add(Me.columnSDS_id)
15870             Me.columnAdmissionNo = New Global.System.Data.DataColumn("AdmissionNo", GetType(String), Nothing, Global.System.Data.MappingType.Element)
15871             MyBase.Columns.Add(Me.columnAdmissionNo)
15872             Me.columnDocId = New Global.System.Data.DataColumn("DocId", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
15873             MyBase.Columns.Add(Me.columnDocId)
15874             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnSDS_id}, true))
15875             Me.columnSDS_id.AutoIncrement = true
15876             Me.columnSDS_id.AutoIncrementSeed = -1
15877             Me.columnSDS_id.AutoIncrementStep = -1
15878             Me.columnSDS_id.AllowDBNull = false
15879             Me.columnSDS_id.ReadOnly = true
15880             Me.columnSDS_id.Unique = true
15881             Me.columnAdmissionNo.AllowDBNull = false
15882             Me.columnAdmissionNo.MaxLength = 15
15883             Me.columnDocId.AllowDBNull = false
15884         End Sub
15885         
15886         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15887          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15888         Public Function NewStudentDocSubmittedRow() As StudentDocSubmittedRow
15889             Return CType(Me.NewRow,StudentDocSubmittedRow)
15890         End Function
15891         
15892         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15893          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15894         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
15895             Return New StudentDocSubmittedRow(builder)
15896         End Function
15897         
15898         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15899          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15900         Protected Overrides Function GetRowType() As Global.System.Type
15901             Return GetType(StudentDocSubmittedRow)
15902         End Function
15903         
15904         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15905          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15906         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
15907             MyBase.OnRowChanged(e)
15908             If (Not (Me.StudentDocSubmittedRowChangedEvent) Is Nothing) Then
15909                 RaiseEvent StudentDocSubmittedRowChanged(Me, New StudentDocSubmittedRowChangeEvent(CType(e.Row,StudentDocSubmittedRow), e.Action))
15910             End If
15911         End Sub
15912         
15913         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15914          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15915         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
15916             MyBase.OnRowChanging(e)
15917             If (Not (Me.StudentDocSubmittedRowChangingEvent) Is Nothing) Then
15918                 RaiseEvent StudentDocSubmittedRowChanging(Me, New StudentDocSubmittedRowChangeEvent(CType(e.Row,StudentDocSubmittedRow), e.Action))
15919             End If
15920         End Sub
15921         
15922         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15923          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15924         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
15925             MyBase.OnRowDeleted(e)
15926             If (Not (Me.StudentDocSubmittedRowDeletedEvent) Is Nothing) Then
15927                 RaiseEvent StudentDocSubmittedRowDeleted(Me, New StudentDocSubmittedRowChangeEvent(CType(e.Row,StudentDocSubmittedRow), e.Action))
15928             End If
15929         End Sub
15930         
15931         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15932          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15933         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
15934             MyBase.OnRowDeleting(e)
15935             If (Not (Me.StudentDocSubmittedRowDeletingEvent) Is Nothing) Then
15936                 RaiseEvent StudentDocSubmittedRowDeleting(Me, New StudentDocSubmittedRowChangeEvent(CType(e.Row,StudentDocSubmittedRow), e.Action))
15937             End If
15938         End Sub
15939         
15940         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15941          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15942         Public Sub RemoveStudentDocSubmittedRow(ByVal row As StudentDocSubmittedRow)
15943             Me.Rows.Remove(row)
15944         End Sub
15945         
15946         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15947          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15948         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
15949             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
15950             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
15951             Dim ds As ERPS_DBDataSet1 = New ERPS_DBDataSet1()
15952             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
15953             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
15954             any1.MinOccurs = New Decimal(0)
15955             any1.MaxOccurs = Decimal.MaxValue
15956             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
15957             sequence.Items.Add(any1)
15958             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
15959             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
15960             any2.MinOccurs = New Decimal(1)
15961             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
15962             sequence.Items.Add(any2)
15963             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
15964             attribute1.Name = "namespace"
15965             attribute1.FixedValue = ds.Namespace
15966             type.Attributes.Add(attribute1)
15967             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
15968             attribute2.Name = "tableTypeName"
15969             attribute2.FixedValue = "StudentDocSubmittedDataTable"
15970             type.Attributes.Add(attribute2)
15971             type.Particle = sequence
15972             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
15973             If xs.Contains(dsSchema.TargetNamespace) Then
15974                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
15975                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
15976                 Try
15977                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
15978                     dsSchema.Write(s1)
15979                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
15980                     Do While schemas.MoveNext
15981                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
15982                         s2.SetLength(0)
15983                         schema.Write(s2)
15984                         If (s1.Length = s2.Length) Then
15985                             s1.Position = 0
15986                             s2.Position = 0
15987                             
15988                             Do While ((s1.Position <> s1.Length) _
15989                                         AndAlso (s1.ReadByte = s2.ReadByte))
15990                                 
15991                                 
15992                             Loop
15993                             If (s1.Position = s1.Length) Then
15994                                 Return type
15995                             End If
15996                         End If
15997                         
15998                     Loop
15999                 Finally
16000                     If (Not (s1) Is Nothing) Then
16001                         s1.Close
16002                     End If
16003                     If (Not (s2) Is Nothing) Then
16004                         s2.Close
16005                     End If
16006                 End Try
16007             End If
16008             xs.Add(dsSchema)
16009             Return type
16010         End Function
16011     End Class
16012     
16013     '''<summary>
16014     '''Represents the strongly named DataTable class.
16015     '''</summary>
16016     <Global.System.Serializable(), _
16017      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
16018     Partial Public Class VoucherDataTable
16019         Inherits Global.System.Data.TypedTableBase(Of VoucherRow)
16020         
16021         Private columnID As Global.System.Data.DataColumn
16022         
16023         Private columnVoucherNo As Global.System.Data.DataColumn
16024         
16025         Private columnDate As Global.System.Data.DataColumn
16026         
16027         Private columnName As Global.System.Data.DataColumn
16028         
16029         Private columnDetails As Global.System.Data.DataColumn
16030         
16031         Private columnSchoolID As Global.System.Data.DataColumn
16032         
16033         Private columnGrandTotal As Global.System.Data.DataColumn
16034         
16035         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16036          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16037         Public Sub New()
16038             MyBase.New
16039             Me.TableName = "Voucher"
16040             Me.BeginInit
16041             Me.InitClass
16042             Me.EndInit
16043         End Sub
16044         
16045         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16046          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16047         Friend Sub New(ByVal table As Global.System.Data.DataTable)
16048             MyBase.New
16049             Me.TableName = table.TableName
16050             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
16051                 Me.CaseSensitive = table.CaseSensitive
16052             End If
16053             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
16054                 Me.Locale = table.Locale
16055             End If
16056             If (table.Namespace <> table.DataSet.Namespace) Then
16057                 Me.Namespace = table.Namespace
16058             End If
16059             Me.Prefix = table.Prefix
16060             Me.MinimumCapacity = table.MinimumCapacity
16061         End Sub
16062         
16063         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16064          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16065         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
16066             MyBase.New(info, context)
16067             Me.InitVars
16068         End Sub
16069         
16070         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16071          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16072         Public ReadOnly Property IDColumn() As Global.System.Data.DataColumn
16073             Get
16074                 Return Me.columnID
16075             End Get
16076         End Property
16077         
16078         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16079          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16080         Public ReadOnly Property VoucherNoColumn() As Global.System.Data.DataColumn
16081             Get
16082                 Return Me.columnVoucherNo
16083             End Get
16084         End Property
16085         
16086         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16087          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16088         Public ReadOnly Property DateColumn() As Global.System.Data.DataColumn
16089             Get
16090                 Return Me.columnDate
16091             End Get
16092         End Property
16093         
16094         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16095          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16096         Public ReadOnly Property NameColumn() As Global.System.Data.DataColumn
16097             Get
16098                 Return Me.columnName
16099             End Get
16100         End Property
16101         
16102         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16103          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16104         Public ReadOnly Property DetailsColumn() As Global.System.Data.DataColumn
16105             Get
16106                 Return Me.columnDetails
16107             End Get
16108         End Property
16109         
16110         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16111          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16112         Public ReadOnly Property SchoolIDColumn() As Global.System.Data.DataColumn
16113             Get
16114                 Return Me.columnSchoolID
16115             End Get
16116         End Property
16117         
16118         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16119          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16120         Public ReadOnly Property GrandTotalColumn() As Global.System.Data.DataColumn
16121             Get
16122                 Return Me.columnGrandTotal
16123             End Get
16124         End Property
16125         
16126         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16127          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
16128          Global.System.ComponentModel.Browsable(false)> _
16129         Public ReadOnly Property Count() As Integer
16130             Get
16131                 Return Me.Rows.Count
16132             End Get
16133         End Property
16134         
16135         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16136          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16137         Public Default ReadOnly Property Item(ByVal index As Integer) As VoucherRow
16138             Get
16139                 Return CType(Me.Rows(index),VoucherRow)
16140             End Get
16141         End Property
16142         
16143         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16144         Public Event VoucherRowChanging As VoucherRowChangeEventHandler
16145         
16146         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16147         Public Event VoucherRowChanged As VoucherRowChangeEventHandler
16148         
16149         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16150         Public Event VoucherRowDeleting As VoucherRowChangeEventHandler
16151         
16152         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16153         Public Event VoucherRowDeleted As VoucherRowChangeEventHandler
16154         
16155         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16156          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16157         Public Overloads Sub AddVoucherRow(ByVal row As VoucherRow)
16158             Me.Rows.Add(row)
16159         End Sub
16160         
16161         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16162          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16163         Public Overloads Function AddVoucherRow(ByVal ID As Integer, ByVal VoucherNo As String, ByVal _Date As Date, ByVal Name As String, ByVal Details As String, ByVal parentSchoolInfoRowByFK_Voucher_SchoolInfo As SchoolInfoRow, ByVal GrandTotal As Decimal) As VoucherRow
16164             Dim rowVoucherRow As VoucherRow = CType(Me.NewRow,VoucherRow)
16165             Dim columnValuesArray() As Object = New Object() {ID, VoucherNo, _Date, Name, Details, Nothing, GrandTotal}
16166             If (Not (parentSchoolInfoRowByFK_Voucher_SchoolInfo) Is Nothing) Then
16167                 columnValuesArray(5) = parentSchoolInfoRowByFK_Voucher_SchoolInfo(0)
16168             End If
16169             rowVoucherRow.ItemArray = columnValuesArray
16170             Me.Rows.Add(rowVoucherRow)
16171             Return rowVoucherRow
16172         End Function
16173         
16174         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16175          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16176         Public Function FindByID(ByVal ID As Integer) As VoucherRow
16177             Return CType(Me.Rows.Find(New Object() {ID}),VoucherRow)
16178         End Function
16179         
16180         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16181          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16182         Public Overrides Function Clone() As Global.System.Data.DataTable
16183             Dim cln As VoucherDataTable = CType(MyBase.Clone,VoucherDataTable)
16184             cln.InitVars
16185             Return cln
16186         End Function
16187         
16188         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16189          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16190         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
16191             Return New VoucherDataTable()
16192         End Function
16193         
16194         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16195          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16196         Friend Sub InitVars()
16197             Me.columnID = MyBase.Columns("ID")
16198             Me.columnVoucherNo = MyBase.Columns("VoucherNo")
16199             Me.columnDate = MyBase.Columns("Date")
16200             Me.columnName = MyBase.Columns("Name")
16201             Me.columnDetails = MyBase.Columns("Details")
16202             Me.columnSchoolID = MyBase.Columns("SchoolID")
16203             Me.columnGrandTotal = MyBase.Columns("GrandTotal")
16204         End Sub
16205         
16206         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16207          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16208         Private Sub InitClass()
16209             Me.columnID = New Global.System.Data.DataColumn("ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
16210             MyBase.Columns.Add(Me.columnID)
16211             Me.columnVoucherNo = New Global.System.Data.DataColumn("VoucherNo", GetType(String), Nothing, Global.System.Data.MappingType.Element)
16212             MyBase.Columns.Add(Me.columnVoucherNo)
16213             Me.columnDate = New Global.System.Data.DataColumn("Date", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
16214             Me.columnDate.ExtendedProperties.Add("Generator_ColumnPropNameInTable", "DateColumn")
16215             Me.columnDate.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "columnDate")
16216             Me.columnDate.ExtendedProperties.Add("Generator_UserColumnName", "Date")
16217             MyBase.Columns.Add(Me.columnDate)
16218             Me.columnName = New Global.System.Data.DataColumn("Name", GetType(String), Nothing, Global.System.Data.MappingType.Element)
16219             MyBase.Columns.Add(Me.columnName)
16220             Me.columnDetails = New Global.System.Data.DataColumn("Details", GetType(String), Nothing, Global.System.Data.MappingType.Element)
16221             MyBase.Columns.Add(Me.columnDetails)
16222             Me.columnSchoolID = New Global.System.Data.DataColumn("SchoolID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
16223             MyBase.Columns.Add(Me.columnSchoolID)
16224             Me.columnGrandTotal = New Global.System.Data.DataColumn("GrandTotal", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
16225             MyBase.Columns.Add(Me.columnGrandTotal)
16226             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnID}, true))
16227             Me.columnID.AllowDBNull = false
16228             Me.columnID.Unique = true
16229             Me.columnVoucherNo.AllowDBNull = false
16230             Me.columnVoucherNo.MaxLength = 15
16231             Me.columnDate.AllowDBNull = false
16232             Me.columnName.AllowDBNull = false
16233             Me.columnName.MaxLength = 150
16234             Me.columnDetails.AllowDBNull = false
16235             Me.columnDetails.MaxLength = 250
16236             Me.columnSchoolID.AllowDBNull = false
16237         End Sub
16238         
16239         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16240          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16241         Public Function NewVoucherRow() As VoucherRow
16242             Return CType(Me.NewRow,VoucherRow)
16243         End Function
16244         
16245         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16246          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16247         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
16248             Return New VoucherRow(builder)
16249         End Function
16250         
16251         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16252          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16253         Protected Overrides Function GetRowType() As Global.System.Type
16254             Return GetType(VoucherRow)
16255         End Function
16256         
16257         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16258          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16259         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
16260             MyBase.OnRowChanged(e)
16261             If (Not (Me.VoucherRowChangedEvent) Is Nothing) Then
16262                 RaiseEvent VoucherRowChanged(Me, New VoucherRowChangeEvent(CType(e.Row,VoucherRow), e.Action))
16263             End If
16264         End Sub
16265         
16266         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16267          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16268         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
16269             MyBase.OnRowChanging(e)
16270             If (Not (Me.VoucherRowChangingEvent) Is Nothing) Then
16271                 RaiseEvent VoucherRowChanging(Me, New VoucherRowChangeEvent(CType(e.Row,VoucherRow), e.Action))
16272             End If
16273         End Sub
16274         
16275         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16276          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16277         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
16278             MyBase.OnRowDeleted(e)
16279             If (Not (Me.VoucherRowDeletedEvent) Is Nothing) Then
16280                 RaiseEvent VoucherRowDeleted(Me, New VoucherRowChangeEvent(CType(e.Row,VoucherRow), e.Action))
16281             End If
16282         End Sub
16283         
16284         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16285          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16286         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
16287             MyBase.OnRowDeleting(e)
16288             If (Not (Me.VoucherRowDeletingEvent) Is Nothing) Then
16289                 RaiseEvent VoucherRowDeleting(Me, New VoucherRowChangeEvent(CType(e.Row,VoucherRow), e.Action))
16290             End If
16291         End Sub
16292         
16293         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16294          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16295         Public Sub RemoveVoucherRow(ByVal row As VoucherRow)
16296             Me.Rows.Remove(row)
16297         End Sub
16298         
16299         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16300          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16301         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
16302             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
16303             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
16304             Dim ds As ERPS_DBDataSet1 = New ERPS_DBDataSet1()
16305             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
16306             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
16307             any1.MinOccurs = New Decimal(0)
16308             any1.MaxOccurs = Decimal.MaxValue
16309             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
16310             sequence.Items.Add(any1)
16311             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
16312             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
16313             any2.MinOccurs = New Decimal(1)
16314             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
16315             sequence.Items.Add(any2)
16316             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
16317             attribute1.Name = "namespace"
16318             attribute1.FixedValue = ds.Namespace
16319             type.Attributes.Add(attribute1)
16320             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
16321             attribute2.Name = "tableTypeName"
16322             attribute2.FixedValue = "VoucherDataTable"
16323             type.Attributes.Add(attribute2)
16324             type.Particle = sequence
16325             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
16326             If xs.Contains(dsSchema.TargetNamespace) Then
16327                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
16328                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
16329                 Try
16330                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
16331                     dsSchema.Write(s1)
16332                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
16333                     Do While schemas.MoveNext
16334                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
16335                         s2.SetLength(0)
16336                         schema.Write(s2)
16337                         If (s1.Length = s2.Length) Then
16338                             s1.Position = 0
16339                             s2.Position = 0
16340                             
16341                             Do While ((s1.Position <> s1.Length) _
16342                                         AndAlso (s1.ReadByte = s2.ReadByte))
16343                                 
16344                                 
16345                             Loop
16346                             If (s1.Position = s1.Length) Then
16347                                 Return type
16348                             End If
16349                         End If
16350                         
16351                     Loop
16352                 Finally
16353                     If (Not (s1) Is Nothing) Then
16354                         s1.Close
16355                     End If
16356                     If (Not (s2) Is Nothing) Then
16357                         s2.Close
16358                     End If
16359                 End Try
16360             End If
16361             xs.Add(dsSchema)
16362             Return type
16363         End Function
16364     End Class
16365     
16366     '''<summary>
16367     '''Represents the strongly named DataTable class.
16368     '''</summary>
16369     <Global.System.Serializable(), _
16370      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
16371     Partial Public Class Voucher_OtherDetailsDataTable
16372         Inherits Global.System.Data.TypedTableBase(Of Voucher_OtherDetailsRow)
16373         
16374         Private columnVD_ID As Global.System.Data.DataColumn
16375         
16376         Private columnVoucherID As Global.System.Data.DataColumn
16377         
16378         Private columnParticulars As Global.System.Data.DataColumn
16379         
16380         Private columnAmount As Global.System.Data.DataColumn
16381         
16382         Private columnNote As Global.System.Data.DataColumn
16383         
16384         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16385          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16386         Public Sub New()
16387             MyBase.New
16388             Me.TableName = "Voucher_OtherDetails"
16389             Me.BeginInit
16390             Me.InitClass
16391             Me.EndInit
16392         End Sub
16393         
16394         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16395          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16396         Friend Sub New(ByVal table As Global.System.Data.DataTable)
16397             MyBase.New
16398             Me.TableName = table.TableName
16399             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
16400                 Me.CaseSensitive = table.CaseSensitive
16401             End If
16402             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
16403                 Me.Locale = table.Locale
16404             End If
16405             If (table.Namespace <> table.DataSet.Namespace) Then
16406                 Me.Namespace = table.Namespace
16407             End If
16408             Me.Prefix = table.Prefix
16409             Me.MinimumCapacity = table.MinimumCapacity
16410         End Sub
16411         
16412         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16413          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16414         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
16415             MyBase.New(info, context)
16416             Me.InitVars
16417         End Sub
16418         
16419         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16420          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16421         Public ReadOnly Property VD_IDColumn() As Global.System.Data.DataColumn
16422             Get
16423                 Return Me.columnVD_ID
16424             End Get
16425         End Property
16426         
16427         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16428          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16429         Public ReadOnly Property VoucherIDColumn() As Global.System.Data.DataColumn
16430             Get
16431                 Return Me.columnVoucherID
16432             End Get
16433         End Property
16434         
16435         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16436          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16437         Public ReadOnly Property ParticularsColumn() As Global.System.Data.DataColumn
16438             Get
16439                 Return Me.columnParticulars
16440             End Get
16441         End Property
16442         
16443         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16444          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16445         Public ReadOnly Property AmountColumn() As Global.System.Data.DataColumn
16446             Get
16447                 Return Me.columnAmount
16448             End Get
16449         End Property
16450         
16451         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16452          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16453         Public ReadOnly Property NoteColumn() As Global.System.Data.DataColumn
16454             Get
16455                 Return Me.columnNote
16456             End Get
16457         End Property
16458         
16459         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16460          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
16461          Global.System.ComponentModel.Browsable(false)> _
16462         Public ReadOnly Property Count() As Integer
16463             Get
16464                 Return Me.Rows.Count
16465             End Get
16466         End Property
16467         
16468         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16469          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16470         Public Default ReadOnly Property Item(ByVal index As Integer) As Voucher_OtherDetailsRow
16471             Get
16472                 Return CType(Me.Rows(index),Voucher_OtherDetailsRow)
16473             End Get
16474         End Property
16475         
16476         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16477         Public Event Voucher_OtherDetailsRowChanging As Voucher_OtherDetailsRowChangeEventHandler
16478         
16479         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16480         Public Event Voucher_OtherDetailsRowChanged As Voucher_OtherDetailsRowChangeEventHandler
16481         
16482         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16483         Public Event Voucher_OtherDetailsRowDeleting As Voucher_OtherDetailsRowChangeEventHandler
16484         
16485         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16486         Public Event Voucher_OtherDetailsRowDeleted As Voucher_OtherDetailsRowChangeEventHandler
16487         
16488         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16489          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16490         Public Overloads Sub AddVoucher_OtherDetailsRow(ByVal row As Voucher_OtherDetailsRow)
16491             Me.Rows.Add(row)
16492         End Sub
16493         
16494         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16495          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16496         Public Overloads Function AddVoucher_OtherDetailsRow(ByVal parentVoucherRowByFK_Voucher_OtherDetails_Voucher As VoucherRow, ByVal Particulars As String, ByVal Amount As Decimal, ByVal Note As String) As Voucher_OtherDetailsRow
16497             Dim rowVoucher_OtherDetailsRow As Voucher_OtherDetailsRow = CType(Me.NewRow,Voucher_OtherDetailsRow)
16498             Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, Particulars, Amount, Note}
16499             If (Not (parentVoucherRowByFK_Voucher_OtherDetails_Voucher) Is Nothing) Then
16500                 columnValuesArray(1) = parentVoucherRowByFK_Voucher_OtherDetails_Voucher(0)
16501             End If
16502             rowVoucher_OtherDetailsRow.ItemArray = columnValuesArray
16503             Me.Rows.Add(rowVoucher_OtherDetailsRow)
16504             Return rowVoucher_OtherDetailsRow
16505         End Function
16506         
16507         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16508          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16509         Public Function FindByVD_ID(ByVal VD_ID As Integer) As Voucher_OtherDetailsRow
16510             Return CType(Me.Rows.Find(New Object() {VD_ID}),Voucher_OtherDetailsRow)
16511         End Function
16512         
16513         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16514          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16515         Public Overrides Function Clone() As Global.System.Data.DataTable
16516             Dim cln As Voucher_OtherDetailsDataTable = CType(MyBase.Clone,Voucher_OtherDetailsDataTable)
16517             cln.InitVars
16518             Return cln
16519         End Function
16520         
16521         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16522          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16523         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
16524             Return New Voucher_OtherDetailsDataTable()
16525         End Function
16526         
16527         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16528          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16529         Friend Sub InitVars()
16530             Me.columnVD_ID = MyBase.Columns("VD_ID")
16531             Me.columnVoucherID = MyBase.Columns("VoucherID")
16532             Me.columnParticulars = MyBase.Columns("Particulars")
16533             Me.columnAmount = MyBase.Columns("Amount")
16534             Me.columnNote = MyBase.Columns("Note")
16535         End Sub
16536         
16537         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16538          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16539         Private Sub InitClass()
16540             Me.columnVD_ID = New Global.System.Data.DataColumn("VD_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
16541             MyBase.Columns.Add(Me.columnVD_ID)
16542             Me.columnVoucherID = New Global.System.Data.DataColumn("VoucherID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
16543             MyBase.Columns.Add(Me.columnVoucherID)
16544             Me.columnParticulars = New Global.System.Data.DataColumn("Particulars", GetType(String), Nothing, Global.System.Data.MappingType.Element)
16545             MyBase.Columns.Add(Me.columnParticulars)
16546             Me.columnAmount = New Global.System.Data.DataColumn("Amount", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
16547             MyBase.Columns.Add(Me.columnAmount)
16548             Me.columnNote = New Global.System.Data.DataColumn("Note", GetType(String), Nothing, Global.System.Data.MappingType.Element)
16549             MyBase.Columns.Add(Me.columnNote)
16550             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnVD_ID}, true))
16551             Me.columnVD_ID.AutoIncrement = true
16552             Me.columnVD_ID.AutoIncrementSeed = -1
16553             Me.columnVD_ID.AutoIncrementStep = -1
16554             Me.columnVD_ID.AllowDBNull = false
16555             Me.columnVD_ID.ReadOnly = true
16556             Me.columnVD_ID.Unique = true
16557             Me.columnVoucherID.AllowDBNull = false
16558             Me.columnParticulars.AllowDBNull = false
16559             Me.columnParticulars.MaxLength = 150
16560             Me.columnAmount.AllowDBNull = false
16561             Me.columnNote.AllowDBNull = false
16562             Me.columnNote.MaxLength = 250
16563         End Sub
16564         
16565         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16566          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16567         Public Function NewVoucher_OtherDetailsRow() As Voucher_OtherDetailsRow
16568             Return CType(Me.NewRow,Voucher_OtherDetailsRow)
16569         End Function
16570         
16571         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16572          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16573         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
16574             Return New Voucher_OtherDetailsRow(builder)
16575         End Function
16576         
16577         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16578          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16579         Protected Overrides Function GetRowType() As Global.System.Type
16580             Return GetType(Voucher_OtherDetailsRow)
16581         End Function
16582         
16583         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16584          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16585         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
16586             MyBase.OnRowChanged(e)
16587             If (Not (Me.Voucher_OtherDetailsRowChangedEvent) Is Nothing) Then
16588                 RaiseEvent Voucher_OtherDetailsRowChanged(Me, New Voucher_OtherDetailsRowChangeEvent(CType(e.Row,Voucher_OtherDetailsRow), e.Action))
16589             End If
16590         End Sub
16591         
16592         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16593          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16594         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
16595             MyBase.OnRowChanging(e)
16596             If (Not (Me.Voucher_OtherDetailsRowChangingEvent) Is Nothing) Then
16597                 RaiseEvent Voucher_OtherDetailsRowChanging(Me, New Voucher_OtherDetailsRowChangeEvent(CType(e.Row,Voucher_OtherDetailsRow), e.Action))
16598             End If
16599         End Sub
16600         
16601         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16602          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16603         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
16604             MyBase.OnRowDeleted(e)
16605             If (Not (Me.Voucher_OtherDetailsRowDeletedEvent) Is Nothing) Then
16606                 RaiseEvent Voucher_OtherDetailsRowDeleted(Me, New Voucher_OtherDetailsRowChangeEvent(CType(e.Row,Voucher_OtherDetailsRow), e.Action))
16607             End If
16608         End Sub
16609         
16610         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16611          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16612         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
16613             MyBase.OnRowDeleting(e)
16614             If (Not (Me.Voucher_OtherDetailsRowDeletingEvent) Is Nothing) Then
16615                 RaiseEvent Voucher_OtherDetailsRowDeleting(Me, New Voucher_OtherDetailsRowChangeEvent(CType(e.Row,Voucher_OtherDetailsRow), e.Action))
16616             End If
16617         End Sub
16618         
16619         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16620          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16621         Public Sub RemoveVoucher_OtherDetailsRow(ByVal row As Voucher_OtherDetailsRow)
16622             Me.Rows.Remove(row)
16623         End Sub
16624         
16625         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16626          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16627         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
16628             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
16629             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
16630             Dim ds As ERPS_DBDataSet1 = New ERPS_DBDataSet1()
16631             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
16632             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
16633             any1.MinOccurs = New Decimal(0)
16634             any1.MaxOccurs = Decimal.MaxValue
16635             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
16636             sequence.Items.Add(any1)
16637             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
16638             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
16639             any2.MinOccurs = New Decimal(1)
16640             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
16641             sequence.Items.Add(any2)
16642             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
16643             attribute1.Name = "namespace"
16644             attribute1.FixedValue = ds.Namespace
16645             type.Attributes.Add(attribute1)
16646             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
16647             attribute2.Name = "tableTypeName"
16648             attribute2.FixedValue = "Voucher_OtherDetailsDataTable"
16649             type.Attributes.Add(attribute2)
16650             type.Particle = sequence
16651             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
16652             If xs.Contains(dsSchema.TargetNamespace) Then
16653                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
16654                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
16655                 Try
16656                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
16657                     dsSchema.Write(s1)
16658                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
16659                     Do While schemas.MoveNext
16660                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
16661                         s2.SetLength(0)
16662                         schema.Write(s2)
16663                         If (s1.Length = s2.Length) Then
16664                             s1.Position = 0
16665                             s2.Position = 0
16666                             
16667                             Do While ((s1.Position <> s1.Length) _
16668                                         AndAlso (s1.ReadByte = s2.ReadByte))
16669                                 
16670                                 
16671                             Loop
16672                             If (s1.Position = s1.Length) Then
16673                                 Return type
16674                             End If
16675                         End If
16676                         
16677                     Loop
16678                 Finally
16679                     If (Not (s1) Is Nothing) Then
16680                         s1.Close
16681                     End If
16682                     If (Not (s2) Is Nothing) Then
16683                         s2.Close
16684                     End If
16685                 End Try
16686             End If
16687             xs.Add(dsSchema)
16688             Return type
16689         End Function
16690     End Class
16691     
16692     '''<summary>
16693     '''Represents strongly named DataRow class.
16694     '''</summary>
16695     Partial Public Class ActivationRow
16696         Inherits Global.System.Data.DataRow
16697         
16698         Private tableActivation As ActivationDataTable
16699         
16700         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16701          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16702         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
16703             MyBase.New(rb)
16704             Me.tableActivation = CType(Me.Table,ActivationDataTable)
16705         End Sub
16706         
16707         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16708          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16709         Public Property Id() As Integer
16710             Get
16711                 Return CType(Me(Me.tableActivation.IdColumn),Integer)
16712             End Get
16713             Set
16714                 Me(Me.tableActivation.IdColumn) = value
16715             End Set
16716         End Property
16717         
16718         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16719          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16720         Public Property HardwareID() As String
16721             Get
16722                 Return CType(Me(Me.tableActivation.HardwareIDColumn),String)
16723             End Get
16724             Set
16725                 Me(Me.tableActivation.HardwareIDColumn) = value
16726             End Set
16727         End Property
16728         
16729         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16730          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16731         Public Property SerialNo() As String
16732             Get
16733                 Return CType(Me(Me.tableActivation.SerialNoColumn),String)
16734             End Get
16735             Set
16736                 Me(Me.tableActivation.SerialNoColumn) = value
16737             End Set
16738         End Property
16739         
16740         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16741          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16742         Public Property ActivationID() As String
16743             Get
16744                 Return CType(Me(Me.tableActivation.ActivationIDColumn),String)
16745             End Get
16746             Set
16747                 Me(Me.tableActivation.ActivationIDColumn) = value
16748             End Set
16749         End Property
16750     End Class
16751     
16752     '''<summary>
16753     '''Represents strongly named DataRow class.
16754     '''</summary>
16755     Partial Public Class AdvanceEntryRow
16756         Inherits Global.System.Data.DataRow
16757         
16758         Private tableAdvanceEntry As AdvanceEntryDataTable
16759         
16760         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16761          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16762         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
16763             MyBase.New(rb)
16764             Me.tableAdvanceEntry = CType(Me.Table,AdvanceEntryDataTable)
16765         End Sub
16766         
16767         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16768          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16769         Public Property Id() As Integer
16770             Get
16771                 Return CType(Me(Me.tableAdvanceEntry.IdColumn),Integer)
16772             End Get
16773             Set
16774                 Me(Me.tableAdvanceEntry.IdColumn) = value
16775             End Set
16776         End Property
16777         
16778         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16779          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16780         Public Property StaffID() As Integer
16781             Get
16782                 Return CType(Me(Me.tableAdvanceEntry.StaffIDColumn),Integer)
16783             End Get
16784             Set
16785                 Me(Me.tableAdvanceEntry.StaffIDColumn) = value
16786             End Set
16787         End Property
16788         
16789         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16790          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16791         Public Property Amount() As Decimal
16792             Get
16793                 Return CType(Me(Me.tableAdvanceEntry.AmountColumn),Decimal)
16794             End Get
16795             Set
16796                 Me(Me.tableAdvanceEntry.AmountColumn) = value
16797             End Set
16798         End Property
16799         
16800         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16801          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16802         Public Property Deduction() As Decimal
16803             Get
16804                 Return CType(Me(Me.tableAdvanceEntry.DeductionColumn),Decimal)
16805             End Get
16806             Set
16807                 Me(Me.tableAdvanceEntry.DeductionColumn) = value
16808             End Set
16809         End Property
16810         
16811         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16812          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16813         Public Property WorkingDate() As Date
16814             Get
16815                 Return CType(Me(Me.tableAdvanceEntry.WorkingDateColumn),Date)
16816             End Get
16817             Set
16818                 Me(Me.tableAdvanceEntry.WorkingDateColumn) = value
16819             End Set
16820         End Property
16821         
16822         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16823          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16824         Public Property StaffRow() As StaffRow
16825             Get
16826                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_AdvanceEntry_Staff")),StaffRow)
16827             End Get
16828             Set
16829                 Me.SetParentRow(value, Me.Table.ParentRelations("FK_AdvanceEntry_Staff"))
16830             End Set
16831         End Property
16832     End Class
16833     
16834     '''<summary>
16835     '''Represents strongly named DataRow class.
16836     '''</summary>
16837     Partial Public Class BusCardHolder_StaffRow
16838         Inherits Global.System.Data.DataRow
16839         
16840         Private tableBusCardHolder_Staff As BusCardHolder_StaffDataTable
16841         
16842         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16843          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16844         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
16845             MyBase.New(rb)
16846             Me.tableBusCardHolder_Staff = CType(Me.Table,BusCardHolder_StaffDataTable)
16847         End Sub
16848         
16849         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16850          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16851         Public Property BCH_ID() As Integer
16852             Get
16853                 Return CType(Me(Me.tableBusCardHolder_Staff.BCH_IDColumn),Integer)
16854             End Get
16855             Set
16856                 Me(Me.tableBusCardHolder_Staff.BCH_IDColumn) = value
16857             End Set
16858         End Property
16859         
16860         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16861          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16862         Public Property StaffID() As Integer
16863             Get
16864                 Return CType(Me(Me.tableBusCardHolder_Staff.StaffIDColumn),Integer)
16865             End Get
16866             Set
16867                 Me(Me.tableBusCardHolder_Staff.StaffIDColumn) = value
16868             End Set
16869         End Property
16870         
16871         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16872          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16873         Public Property BusNo() As String
16874             Get
16875                 Return CType(Me(Me.tableBusCardHolder_Staff.BusNoColumn),String)
16876             End Get
16877             Set
16878                 Me(Me.tableBusCardHolder_Staff.BusNoColumn) = value
16879             End Set
16880         End Property
16881         
16882         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16883          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16884         Public Property Location() As String
16885             Get
16886                 Return CType(Me(Me.tableBusCardHolder_Staff.LocationColumn),String)
16887             End Get
16888             Set
16889                 Me(Me.tableBusCardHolder_Staff.LocationColumn) = value
16890             End Set
16891         End Property
16892         
16893         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16894          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16895         Public Property JoiningDate() As Date
16896             Get
16897                 Return CType(Me(Me.tableBusCardHolder_Staff.JoiningDateColumn),Date)
16898             End Get
16899             Set
16900                 Me(Me.tableBusCardHolder_Staff.JoiningDateColumn) = value
16901             End Set
16902         End Property
16903         
16904         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16905          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16906         Public Property Status() As String
16907             Get
16908                 Return CType(Me(Me.tableBusCardHolder_Staff.StatusColumn),String)
16909             End Get
16910             Set
16911                 Me(Me.tableBusCardHolder_Staff.StatusColumn) = value
16912             End Set
16913         End Property
16914         
16915         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16916          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16917         Public Property BusInfoRow() As BusInfoRow
16918             Get
16919                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_BusCardHolder_Staff_BusInfo")),BusInfoRow)
16920             End Get
16921             Set
16922                 Me.SetParentRow(value, Me.Table.ParentRelations("FK_BusCardHolder_Staff_BusInfo"))
16923             End Set
16924         End Property
16925         
16926         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16927          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16928         Public Property LocationRow() As LocationRow
16929             Get
16930                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_BusCardHolder_Staff_Location")),LocationRow)
16931             End Get
16932             Set
16933                 Me.SetParentRow(value, Me.Table.ParentRelations("FK_BusCardHolder_Staff_Location"))
16934             End Set
16935         End Property
16936         
16937         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16938          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16939         Public Property StaffRow() As StaffRow
16940             Get
16941                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_BusCardHolder_Staff_Staff")),StaffRow)
16942             End Get
16943             Set
16944                 Me.SetParentRow(value, Me.Table.ParentRelations("FK_BusCardHolder_Staff_Staff"))
16945             End Set
16946         End Property
16947         
16948         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16949          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16950         Public Function GetBusFeePayment_StaffRows() As BusFeePayment_StaffRow()
16951             If (Me.Table.ChildRelations("FK_BusFeePayment_Staff_BusCardHolder_Staff") Is Nothing) Then
16952                 Return New BusFeePayment_StaffRow(-1) {}
16953             Else
16954                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_BusFeePayment_Staff_BusCardHolder_Staff")),BusFeePayment_StaffRow())
16955             End If
16956         End Function
16957     End Class
16958     
16959     '''<summary>
16960     '''Represents strongly named DataRow class.
16961     '''</summary>
16962     Partial Public Class BusCardHolder_StudentRow
16963         Inherits Global.System.Data.DataRow
16964         
16965         Private tableBusCardHolder_Student As BusCardHolder_StudentDataTable
16966         
16967         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16968          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16969         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
16970             MyBase.New(rb)
16971             Me.tableBusCardHolder_Student = CType(Me.Table,BusCardHolder_StudentDataTable)
16972         End Sub
16973         
16974         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16975          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16976         Public Property BCH_Id() As Integer
16977             Get
16978                 Return CType(Me(Me.tableBusCardHolder_Student.BCH_IdColumn),Integer)
16979             End Get
16980             Set
16981                 Me(Me.tableBusCardHolder_Student.BCH_IdColumn) = value
16982             End Set
16983         End Property
16984         
16985         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16986          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16987         Public Property AdmissionNo() As String
16988             Get
16989                 Return CType(Me(Me.tableBusCardHolder_Student.AdmissionNoColumn),String)
16990             End Get
16991             Set
16992                 Me(Me.tableBusCardHolder_Student.AdmissionNoColumn) = value
16993             End Set
16994         End Property
16995         
16996         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16997          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16998         Public Property BusNo() As String
16999             Get
17000                 Return CType(Me(Me.tableBusCardHolder_Student.BusNoColumn),String)
17001             End Get
17002             Set
17003                 Me(Me.tableBusCardHolder_Student.BusNoColumn) = value
17004             End Set
17005         End Property
17006         
17007         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17008          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17009         Public Property Location() As String
17010             Get
17011                 Return CType(Me(Me.tableBusCardHolder_Student.LocationColumn),String)
17012             End Get
17013             Set
17014                 Me(Me.tableBusCardHolder_Student.LocationColumn) = value
17015             End Set
17016         End Property
17017         
17018         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17019          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17020         Public Property JoiningDate() As Date
17021             Get
17022                 Return CType(Me(Me.tableBusCardHolder_Student.JoiningDateColumn),Date)
17023             End Get
17024             Set
17025                 Me(Me.tableBusCardHolder_Student.JoiningDateColumn) = value
17026             End Set
17027         End Property
17028         
17029         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17030          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17031         Public Property Status() As String
17032             Get
17033                 Return CType(Me(Me.tableBusCardHolder_Student.StatusColumn),String)
17034             End Get
17035             Set
17036                 Me(Me.tableBusCardHolder_Student.StatusColumn) = value
17037             End Set
17038         End Property
17039         
17040         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17041          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17042         Public Property BusInfoRow() As BusInfoRow
17043             Get
17044                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_BusCardHolder_Student_BusInfo")),BusInfoRow)
17045             End Get
17046             Set
17047                 Me.SetParentRow(value, Me.Table.ParentRelations("FK_BusCardHolder_Student_BusInfo"))
17048             End Set
17049         End Property
17050         
17051         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17052          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17053         Public Property LocationRow() As LocationRow
17054             Get
17055                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_BusCardHolder_Student_Location")),LocationRow)
17056             End Get
17057             Set
17058                 Me.SetParentRow(value, Me.Table.ParentRelations("FK_BusCardHolder_Student_Location"))
17059             End Set
17060         End Property
17061         
17062         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17063          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17064         Public Property StudentRow() As StudentRow
17065             Get
17066                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_BusHolder_Student")),StudentRow)
17067             End Get
17068             Set
17069                 Me.SetParentRow(value, Me.Table.ParentRelations("FK_BusHolder_Student"))
17070             End Set
17071         End Property
17072         
17073         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17074          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17075         Public Function GetBusFeePayment_StudentRows() As BusFeePayment_StudentRow()
17076             If (Me.Table.ChildRelations("FK_BusFeePayment_Student_BusCardHolder_Student") Is Nothing) Then
17077                 Return New BusFeePayment_StudentRow(-1) {}
17078             Else
17079                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_BusFeePayment_Student_BusCardHolder_Student")),BusFeePayment_StudentRow())
17080             End If
17081         End Function
17082     End Class
17083     
17084     '''<summary>
17085     '''Represents strongly named DataRow class.
17086     '''</summary>
17087     Partial Public Class BusFeePayment_StaffRow
17088         Inherits Global.System.Data.DataRow
17089         
17090         Private tableBusFeePayment_Staff As BusFeePayment_StaffDataTable
17091         
17092         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17093          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17094         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
17095             MyBase.New(rb)
17096             Me.tableBusFeePayment_Staff = CType(Me.Table,BusFeePayment_StaffDataTable)
17097         End Sub
17098         
17099         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17100          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17101         Public Property Id() As Integer
17102             Get
17103                 Return CType(Me(Me.tableBusFeePayment_Staff.IdColumn),Integer)
17104             End Get
17105             Set
17106                 Me(Me.tableBusFeePayment_Staff.IdColumn) = value
17107             End Set
17108         End Property
17109         
17110         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17111          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17112         Public Property BFP_ID() As Integer
17113             Get
17114                 Return CType(Me(Me.tableBusFeePayment_Staff.BFP_IDColumn),Integer)
17115             End Get
17116             Set
17117                 Me(Me.tableBusFeePayment_Staff.BFP_IDColumn) = value
17118             End Set
17119         End Property
17120         
17121         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17122          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17123         Public Property PaymentID() As String
17124             Get
17125                 Return CType(Me(Me.tableBusFeePayment_Staff.PaymentIDColumn),String)
17126             End Get
17127             Set
17128                 Me(Me.tableBusFeePayment_Staff.PaymentIDColumn) = value
17129             End Set
17130         End Property
17131         
17132         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17133          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17134         Public Property BusHolderID() As Integer
17135             Get
17136                 Return CType(Me(Me.tableBusFeePayment_Staff.BusHolderIDColumn),Integer)
17137             End Get
17138             Set
17139                 Me(Me.tableBusFeePayment_Staff.BusHolderIDColumn) = value
17140             End Set
17141         End Property
17142         
17143         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17144          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17145         Public Property Session() As String
17146             Get
17147                 Return CType(Me(Me.tableBusFeePayment_Staff.SessionColumn),String)
17148             End Get
17149             Set
17150                 Me(Me.tableBusFeePayment_Staff.SessionColumn) = value
17151             End Set
17152         End Property
17153         
17154         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17155          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17156         Public Property Installment() As String
17157             Get
17158                 Return CType(Me(Me.tableBusFeePayment_Staff.InstallmentColumn),String)
17159             End Get
17160             Set
17161                 Me(Me.tableBusFeePayment_Staff.InstallmentColumn) = value
17162             End Set
17163         End Property
17164         
17165         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17166          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17167         Public Property TotalFee() As Decimal
17168             Get
17169                 Return CType(Me(Me.tableBusFeePayment_Staff.TotalFeeColumn),Decimal)
17170             End Get
17171             Set
17172                 Me(Me.tableBusFeePayment_Staff.TotalFeeColumn) = value
17173             End Set
17174         End Property
17175         
17176         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17177          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17178         Public Property DiscountPer() As Decimal
17179             Get
17180                 Return CType(Me(Me.tableBusFeePayment_Staff.DiscountPerColumn),Decimal)
17181             End Get
17182             Set
17183                 Me(Me.tableBusFeePayment_Staff.DiscountPerColumn) = value
17184             End Set
17185         End Property
17186         
17187         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17188          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17189         Public Property DiscountAmt() As Decimal
17190             Get
17191                 Return CType(Me(Me.tableBusFeePayment_Staff.DiscountAmtColumn),Decimal)
17192             End Get
17193             Set
17194                 Me(Me.tableBusFeePayment_Staff.DiscountAmtColumn) = value
17195             End Set
17196         End Property
17197         
17198         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17199          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17200         Public Property PreviousDue() As Decimal
17201             Get
17202                 Return CType(Me(Me.tableBusFeePayment_Staff.PreviousDueColumn),Decimal)
17203             End Get
17204             Set
17205                 Me(Me.tableBusFeePayment_Staff.PreviousDueColumn) = value
17206             End Set
17207         End Property
17208         
17209         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17210          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17211         Public Property Fine() As Decimal
17212             Get
17213                 Return CType(Me(Me.tableBusFeePayment_Staff.FineColumn),Decimal)
17214             End Get
17215             Set
17216                 Me(Me.tableBusFeePayment_Staff.FineColumn) = value
17217             End Set
17218         End Property
17219         
17220         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17221          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17222         Public Property GrandTotal() As Decimal
17223             Get
17224                 Return CType(Me(Me.tableBusFeePayment_Staff.GrandTotalColumn),Decimal)
17225             End Get
17226             Set
17227                 Me(Me.tableBusFeePayment_Staff.GrandTotalColumn) = value
17228             End Set
17229         End Property
17230         
17231         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17232          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17233         Public Property TotalPaid() As Decimal
17234             Get
17235                 Return CType(Me(Me.tableBusFeePayment_Staff.TotalPaidColumn),Decimal)
17236             End Get
17237             Set
17238                 Me(Me.tableBusFeePayment_Staff.TotalPaidColumn) = value
17239             End Set
17240         End Property
17241         
17242         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17243          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17244         Public Property ModeOfPayment() As String
17245             Get
17246                 Return CType(Me(Me.tableBusFeePayment_Staff.ModeOfPaymentColumn),String)
17247             End Get
17248             Set
17249                 Me(Me.tableBusFeePayment_Staff.ModeOfPaymentColumn) = value
17250             End Set
17251         End Property
17252         
17253         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17254          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17255         Public Property PaymentModeDetails() As String
17256             Get
17257                 Try
17258                     Return CType(Me(Me.tableBusFeePayment_Staff.PaymentModeDetailsColumn),String)
17259                 Catch e As Global.System.InvalidCastException
17260                     Throw New Global.System.Data.StrongTypingException("The value for column 'PaymentModeDetails' in table 'BusFeePayment_Staff' is DBNul"& _
17261                             "l.", e)
17262                 End Try
17263             End Get
17264             Set
17265                 Me(Me.tableBusFeePayment_Staff.PaymentModeDetailsColumn) = value
17266             End Set
17267         End Property
17268         
17269         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17270          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17271         Public Property PaymentDate() As Date
17272             Get
17273                 Return CType(Me(Me.tableBusFeePayment_Staff.PaymentDateColumn),Date)
17274             End Get
17275             Set
17276                 Me(Me.tableBusFeePayment_Staff.PaymentDateColumn) = value
17277             End Set
17278         End Property
17279         
17280         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17281          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17282         Public Property PaymentDue() As Decimal
17283             Get
17284                 Return CType(Me(Me.tableBusFeePayment_Staff.PaymentDueColumn),Decimal)
17285             End Get
17286             Set
17287                 Me(Me.tableBusFeePayment_Staff.PaymentDueColumn) = value
17288             End Set
17289         End Property
17290         
17291         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17292          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17293         Public Property BusCardHolder_StaffRow() As BusCardHolder_StaffRow
17294             Get
17295                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_BusFeePayment_Staff_BusCardHolder_Staff")),BusCardHolder_StaffRow)
17296             End Get
17297             Set
17298                 Me.SetParentRow(value, Me.Table.ParentRelations("FK_BusFeePayment_Staff_BusCardHolder_Staff"))
17299             End Set
17300         End Property
17301         
17302         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17303          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17304         Public Function IsPaymentModeDetailsNull() As Boolean
17305             Return Me.IsNull(Me.tableBusFeePayment_Staff.PaymentModeDetailsColumn)
17306         End Function
17307         
17308         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17309          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17310         Public Sub SetPaymentModeDetailsNull()
17311             Me(Me.tableBusFeePayment_Staff.PaymentModeDetailsColumn) = Global.System.Convert.DBNull
17312         End Sub
17313     End Class
17314     
17315     '''<summary>
17316     '''Represents strongly named DataRow class.
17317     '''</summary>
17318     Partial Public Class BusFeePayment_StudentRow
17319         Inherits Global.System.Data.DataRow
17320         
17321         Private tableBusFeePayment_Student As BusFeePayment_StudentDataTable
17322         
17323         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17324          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17325         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
17326             MyBase.New(rb)
17327             Me.tableBusFeePayment_Student = CType(Me.Table,BusFeePayment_StudentDataTable)
17328         End Sub
17329         
17330         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17331          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17332         Public Property Id() As Integer
17333             Get
17334                 Return CType(Me(Me.tableBusFeePayment_Student.IdColumn),Integer)
17335             End Get
17336             Set
17337                 Me(Me.tableBusFeePayment_Student.IdColumn) = value
17338             End Set
17339         End Property
17340         
17341         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17342          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17343         Public Property BFP_ID() As Integer
17344             Get
17345                 Return CType(Me(Me.tableBusFeePayment_Student.BFP_IDColumn),Integer)
17346             End Get
17347             Set
17348                 Me(Me.tableBusFeePayment_Student.BFP_IDColumn) = value
17349             End Set
17350         End Property
17351         
17352         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17353          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17354         Public Property PaymentID() As String
17355             Get
17356                 Return CType(Me(Me.tableBusFeePayment_Student.PaymentIDColumn),String)
17357             End Get
17358             Set
17359                 Me(Me.tableBusFeePayment_Student.PaymentIDColumn) = value
17360             End Set
17361         End Property
17362         
17363         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17364          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17365         Public Property BusHolderID() As Integer
17366             Get
17367                 Return CType(Me(Me.tableBusFeePayment_Student.BusHolderIDColumn),Integer)
17368             End Get
17369             Set
17370                 Me(Me.tableBusFeePayment_Student.BusHolderIDColumn) = value
17371             End Set
17372         End Property
17373         
17374         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17375          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17376         Public Property Session() As String
17377             Get
17378                 Return CType(Me(Me.tableBusFeePayment_Student.SessionColumn),String)
17379             End Get
17380             Set
17381                 Me(Me.tableBusFeePayment_Student.SessionColumn) = value
17382             End Set
17383         End Property
17384         
17385         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17386          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17387         Public Property Installment() As String
17388             Get
17389                 Return CType(Me(Me.tableBusFeePayment_Student.InstallmentColumn),String)
17390             End Get
17391             Set
17392                 Me(Me.tableBusFeePayment_Student.InstallmentColumn) = value
17393             End Set
17394         End Property
17395         
17396         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17397          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17398         Public Property TotalFee() As Decimal
17399             Get
17400                 Return CType(Me(Me.tableBusFeePayment_Student.TotalFeeColumn),Decimal)
17401             End Get
17402             Set
17403                 Me(Me.tableBusFeePayment_Student.TotalFeeColumn) = value
17404             End Set
17405         End Property
17406         
17407         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17408          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17409         Public Property DiscountPer() As Decimal
17410             Get
17411                 Return CType(Me(Me.tableBusFeePayment_Student.DiscountPerColumn),Decimal)
17412             End Get
17413             Set
17414                 Me(Me.tableBusFeePayment_Student.DiscountPerColumn) = value
17415             End Set
17416         End Property
17417         
17418         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17419          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17420         Public Property DiscountAmt() As Decimal
17421             Get
17422                 Return CType(Me(Me.tableBusFeePayment_Student.DiscountAmtColumn),Decimal)
17423             End Get
17424             Set
17425                 Me(Me.tableBusFeePayment_Student.DiscountAmtColumn) = value
17426             End Set
17427         End Property
17428         
17429         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17430          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17431         Public Property PreviousDue() As Decimal
17432             Get
17433                 Return CType(Me(Me.tableBusFeePayment_Student.PreviousDueColumn),Decimal)
17434             End Get
17435             Set
17436                 Me(Me.tableBusFeePayment_Student.PreviousDueColumn) = value
17437             End Set
17438         End Property
17439         
17440         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17441          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17442         Public Property Fine() As Decimal
17443             Get
17444                 Return CType(Me(Me.tableBusFeePayment_Student.FineColumn),Decimal)
17445             End Get
17446             Set
17447                 Me(Me.tableBusFeePayment_Student.FineColumn) = value
17448             End Set
17449         End Property
17450         
17451         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17452          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17453         Public Property GrandTotal() As Decimal
17454             Get
17455                 Return CType(Me(Me.tableBusFeePayment_Student.GrandTotalColumn),Decimal)
17456             End Get
17457             Set
17458                 Me(Me.tableBusFeePayment_Student.GrandTotalColumn) = value
17459             End Set
17460         End Property
17461         
17462         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17463          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17464         Public Property TotalPaid() As Decimal
17465             Get
17466                 Return CType(Me(Me.tableBusFeePayment_Student.TotalPaidColumn),Decimal)
17467             End Get
17468             Set
17469                 Me(Me.tableBusFeePayment_Student.TotalPaidColumn) = value
17470             End Set
17471         End Property
17472         
17473         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17474          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17475         Public Property ModeOfPayment() As String
17476             Get
17477                 Return CType(Me(Me.tableBusFeePayment_Student.ModeOfPaymentColumn),String)
17478             End Get
17479             Set
17480                 Me(Me.tableBusFeePayment_Student.ModeOfPaymentColumn) = value
17481             End Set
17482         End Property
17483         
17484         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17485          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17486         Public Property PaymentModeDetails() As String
17487             Get
17488                 Try
17489                     Return CType(Me(Me.tableBusFeePayment_Student.PaymentModeDetailsColumn),String)
17490                 Catch e As Global.System.InvalidCastException
17491                     Throw New Global.System.Data.StrongTypingException("The value for column 'PaymentModeDetails' in table 'BusFeePayment_Student' is DBN"& _
17492                             "ull.", e)
17493                 End Try
17494             End Get
17495             Set
17496                 Me(Me.tableBusFeePayment_Student.PaymentModeDetailsColumn) = value
17497             End Set
17498         End Property
17499         
17500         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17501          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17502         Public Property PaymentDate() As Date
17503             Get
17504                 Return CType(Me(Me.tableBusFeePayment_Student.PaymentDateColumn),Date)
17505             End Get
17506             Set
17507                 Me(Me.tableBusFeePayment_Student.PaymentDateColumn) = value
17508             End Set
17509         End Property
17510         
17511         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17512          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17513         Public Property PaymentDue() As Decimal
17514             Get
17515                 Return CType(Me(Me.tableBusFeePayment_Student.PaymentDueColumn),Decimal)
17516             End Get
17517             Set
17518                 Me(Me.tableBusFeePayment_Student.PaymentDueColumn) = value
17519             End Set
17520         End Property
17521         
17522         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17523          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17524         Public Property ClassType() As String
17525             Get
17526                 Return CType(Me(Me.tableBusFeePayment_Student.ClassTypeColumn),String)
17527             End Get
17528             Set
17529                 Me(Me.tableBusFeePayment_Student.ClassTypeColumn) = value
17530             End Set
17531         End Property
17532         
17533         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17534          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17535         Public Property SchoolType() As String
17536             Get
17537                 Return CType(Me(Me.tableBusFeePayment_Student.SchoolTypeColumn),String)
17538             End Get
17539             Set
17540                 Me(Me.tableBusFeePayment_Student.SchoolTypeColumn) = value
17541             End Set
17542         End Property
17543         
17544         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17545          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17546         Public Property _Class() As String
17547             Get
17548                 Return CType(Me(Me.tableBusFeePayment_Student.ClassColumn),String)
17549             End Get
17550             Set
17551                 Me(Me.tableBusFeePayment_Student.ClassColumn) = value
17552             End Set
17553         End Property
17554         
17555         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17556          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17557         Public Property Section() As String
17558             Get
17559                 Return CType(Me(Me.tableBusFeePayment_Student.SectionColumn),String)
17560             End Get
17561             Set
17562                 Me(Me.tableBusFeePayment_Student.SectionColumn) = value
17563             End Set
17564         End Property
17565         
17566         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17567          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17568         Public Property BusCardHolder_StudentRow() As BusCardHolder_StudentRow
17569             Get
17570                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_BusFeePayment_Student_BusCardHolder_Student")),BusCardHolder_StudentRow)
17571             End Get
17572             Set
17573                 Me.SetParentRow(value, Me.Table.ParentRelations("FK_BusFeePayment_Student_BusCardHolder_Student"))
17574             End Set
17575         End Property
17576         
17577         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17578          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17579         Public Function IsPaymentModeDetailsNull() As Boolean
17580             Return Me.IsNull(Me.tableBusFeePayment_Student.PaymentModeDetailsColumn)
17581         End Function
17582         
17583         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17584          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17585         Public Sub SetPaymentModeDetailsNull()
17586             Me(Me.tableBusFeePayment_Student.PaymentModeDetailsColumn) = Global.System.Convert.DBNull
17587         End Sub
17588     End Class
17589     
17590     '''<summary>
17591     '''Represents strongly named DataRow class.
17592     '''</summary>
17593     Partial Public Class BusInfoRow
17594         Inherits Global.System.Data.DataRow
17595         
17596         Private tableBusInfo As BusInfoDataTable
17597         
17598         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17599          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17600         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
17601             MyBase.New(rb)
17602             Me.tableBusInfo = CType(Me.Table,BusInfoDataTable)
17603         End Sub
17604         
17605         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17606          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17607         Public Property BusNo() As String
17608             Get
17609                 Return CType(Me(Me.tableBusInfo.BusNoColumn),String)
17610             End Get
17611             Set
17612                 Me(Me.tableBusInfo.BusNoColumn) = value
17613             End Set
17614         End Property
17615         
17616         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17617          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17618         Public Property DriverName() As String
17619             Get
17620                 Return CType(Me(Me.tableBusInfo.DriverNameColumn),String)
17621             End Get
17622             Set
17623                 Me(Me.tableBusInfo.DriverNameColumn) = value
17624             End Set
17625         End Property
17626         
17627         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17628          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17629         Public Property ContactNo() As String
17630             Get
17631                 Return CType(Me(Me.tableBusInfo.ContactNoColumn),String)
17632             End Get
17633             Set
17634                 Me(Me.tableBusInfo.ContactNoColumn) = value
17635             End Set
17636         End Property
17637         
17638         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17639          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17640         Public Property SupporterName() As String
17641             Get
17642                 Try
17643                     Return CType(Me(Me.tableBusInfo.SupporterNameColumn),String)
17644                 Catch e As Global.System.InvalidCastException
17645                     Throw New Global.System.Data.StrongTypingException("The value for column 'SupporterName' in table 'BusInfo' is DBNull.", e)
17646                 End Try
17647             End Get
17648             Set
17649                 Me(Me.tableBusInfo.SupporterNameColumn) = value
17650             End Set
17651         End Property
17652         
17653         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17654          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17655         Public Property S_ContactNo() As String
17656             Get
17657                 Try
17658                     Return CType(Me(Me.tableBusInfo.S_ContactNoColumn),String)
17659                 Catch e As Global.System.InvalidCastException
17660                     Throw New Global.System.Data.StrongTypingException("The value for column 'S_ContactNo' in table 'BusInfo' is DBNull.", e)
17661                 End Try
17662             End Get
17663             Set
17664                 Me(Me.tableBusInfo.S_ContactNoColumn) = value
17665             End Set
17666         End Property
17667         
17668         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17669          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17670         Public Function IsSupporterNameNull() As Boolean
17671             Return Me.IsNull(Me.tableBusInfo.SupporterNameColumn)
17672         End Function
17673         
17674         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17675          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17676         Public Sub SetSupporterNameNull()
17677             Me(Me.tableBusInfo.SupporterNameColumn) = Global.System.Convert.DBNull
17678         End Sub
17679         
17680         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17681          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17682         Public Function IsS_ContactNoNull() As Boolean
17683             Return Me.IsNull(Me.tableBusInfo.S_ContactNoColumn)
17684         End Function
17685         
17686         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17687          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17688         Public Sub SetS_ContactNoNull()
17689             Me(Me.tableBusInfo.S_ContactNoColumn) = Global.System.Convert.DBNull
17690         End Sub
17691         
17692         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17693          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17694         Public Function GetBusCardHolder_StaffRows() As BusCardHolder_StaffRow()
17695             If (Me.Table.ChildRelations("FK_BusCardHolder_Staff_BusInfo") Is Nothing) Then
17696                 Return New BusCardHolder_StaffRow(-1) {}
17697             Else
17698                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_BusCardHolder_Staff_BusInfo")),BusCardHolder_StaffRow())
17699             End If
17700         End Function
17701         
17702         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17703          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17704         Public Function GetBusCardHolder_StudentRows() As BusCardHolder_StudentRow()
17705             If (Me.Table.ChildRelations("FK_BusCardHolder_Student_BusInfo") Is Nothing) Then
17706                 Return New BusCardHolder_StudentRow(-1) {}
17707             Else
17708                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_BusCardHolder_Student_BusInfo")),BusCardHolder_StudentRow())
17709             End If
17710         End Function
17711     End Class
17712     
17713     '''<summary>
17714     '''Represents strongly named DataRow class.
17715     '''</summary>
17716     Partial Public Class Cards_StaffRow
17717         Inherits Global.System.Data.DataRow
17718         
17719         Private tableCards_Staff As Cards_StaffDataTable
17720         
17721         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17722          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17723         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
17724             MyBase.New(rb)
17725             Me.tableCards_Staff = CType(Me.Table,Cards_StaffDataTable)
17726         End Sub
17727         
17728         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17729          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17730         Public Property StaffID() As Integer
17731             Get
17732                 Return CType(Me(Me.tableCards_Staff.StaffIDColumn),Integer)
17733             End Get
17734             Set
17735                 Me(Me.tableCards_Staff.StaffIDColumn) = value
17736             End Set
17737         End Property
17738         
17739         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17740          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17741         Public Property Status() As String
17742             Get
17743                 Try
17744                     Return CType(Me(Me.tableCards_Staff.StatusColumn),String)
17745                 Catch e As Global.System.InvalidCastException
17746                     Throw New Global.System.Data.StrongTypingException("The value for column 'Status' in table 'Cards_Staff' is DBNull.", e)
17747                 End Try
17748             End Get
17749             Set
17750                 Me(Me.tableCards_Staff.StatusColumn) = value
17751             End Set
17752         End Property
17753         
17754         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17755          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17756         Public Property StaffRow() As StaffRow
17757             Get
17758                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_Cards_Staff_Staff")),StaffRow)
17759             End Get
17760             Set
17761                 Me.SetParentRow(value, Me.Table.ParentRelations("FK_Cards_Staff_Staff"))
17762             End Set
17763         End Property
17764         
17765         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17766          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17767         Public Function IsStatusNull() As Boolean
17768             Return Me.IsNull(Me.tableCards_Staff.StatusColumn)
17769         End Function
17770         
17771         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17772          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17773         Public Sub SetStatusNull()
17774             Me(Me.tableCards_Staff.StatusColumn) = Global.System.Convert.DBNull
17775         End Sub
17776     End Class
17777     
17778     '''<summary>
17779     '''Represents strongly named DataRow class.
17780     '''</summary>
17781     Partial Public Class Cards_StudentRow
17782         Inherits Global.System.Data.DataRow
17783         
17784         Private tableCards_Student As Cards_StudentDataTable
17785         
17786         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17787          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17788         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
17789             MyBase.New(rb)
17790             Me.tableCards_Student = CType(Me.Table,Cards_StudentDataTable)
17791         End Sub
17792         
17793         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17794          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17795         Public Property AdmissionNo() As String
17796             Get
17797                 Return CType(Me(Me.tableCards_Student.AdmissionNoColumn),String)
17798             End Get
17799             Set
17800                 Me(Me.tableCards_Student.AdmissionNoColumn) = value
17801             End Set
17802         End Property
17803         
17804         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17805          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17806         Public Property Status() As String
17807             Get
17808                 Try
17809                     Return CType(Me(Me.tableCards_Student.StatusColumn),String)
17810                 Catch e As Global.System.InvalidCastException
17811                     Throw New Global.System.Data.StrongTypingException("The value for column 'Status' in table 'Cards_Student' is DBNull.", e)
17812                 End Try
17813             End Get
17814             Set
17815                 Me(Me.tableCards_Student.StatusColumn) = value
17816             End Set
17817         End Property
17818         
17819         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17820          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17821         Public Property StudentRow() As StudentRow
17822             Get
17823                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_Cards_Student_Student")),StudentRow)
17824             End Get
17825             Set
17826                 Me.SetParentRow(value, Me.Table.ParentRelations("FK_Cards_Student_Student"))
17827             End Set
17828         End Property
17829         
17830         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17831          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17832         Public Function IsStatusNull() As Boolean
17833             Return Me.IsNull(Me.tableCards_Student.StatusColumn)
17834         End Function
17835         
17836         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17837          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17838         Public Sub SetStatusNull()
17839             Me(Me.tableCards_Student.StatusColumn) = Global.System.Convert.DBNull
17840         End Sub
17841     End Class
17842     
17843     '''<summary>
17844     '''Represents strongly named DataRow class.
17845     '''</summary>
17846     Partial Public Class ClassRow
17847         Inherits Global.System.Data.DataRow
17848         
17849         Private tableClass As ClassDataTable
17850         
17851         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17852          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17853         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
17854             MyBase.New(rb)
17855             Me.tableClass = CType(Me.Table,ClassDataTable)
17856         End Sub
17857         
17858         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17859          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17860         Public Property ClassName() As String
17861             Get
17862                 Return CType(Me(Me.tableClass.ClassNameColumn),String)
17863             End Get
17864             Set
17865                 Me(Me.tableClass.ClassNameColumn) = value
17866             End Set
17867         End Property
17868         
17869         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17870          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17871         Public Property ClassType() As String
17872             Get
17873                 Return CType(Me(Me.tableClass.ClassTypeColumn),String)
17874             End Get
17875             Set
17876                 Me(Me.tableClass.ClassTypeColumn) = value
17877             End Set
17878         End Property
17879         
17880         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17881          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17882         Public Property ClassTypeRow() As ClassTypeRow
17883             Get
17884                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_Class_ClassType")),ClassTypeRow)
17885             End Get
17886             Set
17887                 Me.SetParentRow(value, Me.Table.ParentRelations("FK_Class_ClassType"))
17888             End Set
17889         End Property
17890         
17891         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17892          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17893         Public Function GetCourseFeeRows() As CourseFeeRow()
17894             If (Me.Table.ChildRelations("FK_CourseFee_CourseFee") Is Nothing) Then
17895                 Return New CourseFeeRow(-1) {}
17896             Else
17897                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_CourseFee_CourseFee")),CourseFeeRow())
17898             End If
17899         End Function
17900         
17901         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17902          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17903         Public Function GetInstallment_HostelRows() As Installment_HostelRow()
17904             If (Me.Table.ChildRelations("FK_Installment_Hostel_Class") Is Nothing) Then
17905                 Return New Installment_HostelRow(-1) {}
17906             Else
17907                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_Installment_Hostel_Class")),Installment_HostelRow())
17908             End If
17909         End Function
17910         
17911         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17912          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17913         Public Function GetSectionRows() As SectionRow()
17914             If (Me.Table.ChildRelations("FK_Section_Class") Is Nothing) Then
17915                 Return New SectionRow(-1) {}
17916             Else
17917                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_Section_Class")),SectionRow())
17918             End If
17919         End Function
17920     End Class
17921     
17922     '''<summary>
17923     '''Represents strongly named DataRow class.
17924     '''</summary>
17925     Partial Public Class ClassTypeRow
17926         Inherits Global.System.Data.DataRow
17927         
17928         Private tableClassType As ClassTypeDataTable
17929         
17930         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17931          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17932         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
17933             MyBase.New(rb)
17934             Me.tableClassType = CType(Me.Table,ClassTypeDataTable)
17935         End Sub
17936         
17937         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17938          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17939         Public Property Type() As String
17940             Get
17941                 Return CType(Me(Me.tableClassType.TypeColumn),String)
17942             End Get
17943             Set
17944                 Me(Me.tableClassType.TypeColumn) = value
17945             End Set
17946         End Property
17947         
17948         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17949          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17950         Public Function GetClassRows() As ClassRow()
17951             If (Me.Table.ChildRelations("FK_Class_ClassType") Is Nothing) Then
17952                 Return New ClassRow(-1) {}
17953             Else
17954                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_Class_ClassType")),ClassRow())
17955             End If
17956         End Function
17957         
17958         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17959          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17960         Public Function GetStaffRows() As StaffRow()
17961             If (Me.Table.ChildRelations("FK_Staff_ClassType") Is Nothing) Then
17962                 Return New StaffRow(-1) {}
17963             Else
17964                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_Staff_ClassType")),StaffRow())
17965             End If
17966         End Function
17967     End Class
17968     
17969     '''<summary>
17970     '''Represents strongly named DataRow class.
17971     '''</summary>
17972     Partial Public Class CourseFeeRow
17973         Inherits Global.System.Data.DataRow
17974         
17975         Private tableCourseFee As CourseFeeDataTable
17976         
17977         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17978          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17979         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
17980             MyBase.New(rb)
17981             Me.tableCourseFee = CType(Me.Table,CourseFeeDataTable)
17982         End Sub
17983         
17984         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17985          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17986         Public Property C_ID() As Integer
17987             Get
17988                 Return CType(Me(Me.tableCourseFee.C_IDColumn),Integer)
17989             End Get
17990             Set
17991                 Me(Me.tableCourseFee.C_IDColumn) = value
17992             End Set
17993         End Property
17994         
17995         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17996          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17997         Public Property SchoolID() As Integer
17998             Get
17999                 Return CType(Me(Me.tableCourseFee.SchoolIDColumn),Integer)
18000             End Get
18001             Set
18002                 Me(Me.tableCourseFee.SchoolIDColumn) = value
18003             End Set
18004         End Property
18005         
18006         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18007          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18008         Public Property _Class() As String
18009             Get
18010                 Return CType(Me(Me.tableCourseFee.ClassColumn),String)
18011             End Get
18012             Set
18013                 Me(Me.tableCourseFee.ClassColumn) = value
18014             End Set
18015         End Property
18016         
18017         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18018          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18019         Public Property FeeName() As String
18020             Get
18021                 Return CType(Me(Me.tableCourseFee.FeeNameColumn),String)
18022             End Get
18023             Set
18024                 Me(Me.tableCourseFee.FeeNameColumn) = value
18025             End Set
18026         End Property
18027         
18028         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18029          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18030         Public Property Semester() As String
18031             Get
18032                 Return CType(Me(Me.tableCourseFee.SemesterColumn),String)
18033             End Get
18034             Set
18035                 Me(Me.tableCourseFee.SemesterColumn) = value
18036             End Set
18037         End Property
18038         
18039         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18040          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18041         Public Property Fee() As Decimal
18042             Get
18043                 Return CType(Me(Me.tableCourseFee.FeeColumn),Decimal)
18044             End Get
18045             Set
18046                 Me(Me.tableCourseFee.FeeColumn) = value
18047             End Set
18048         End Property
18049         
18050         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18051          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18052         Public Property ClassRow() As ClassRow
18053             Get
18054                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_CourseFee_CourseFee")),ClassRow)
18055             End Get
18056             Set
18057                 Me.SetParentRow(value, Me.Table.ParentRelations("FK_CourseFee_CourseFee"))
18058             End Set
18059         End Property
18060         
18061         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18062          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18063         Public Property FeeRow() As FeeRow
18064             Get
18065                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_CourseFee_Fee")),FeeRow)
18066             End Get
18067             Set
18068                 Me.SetParentRow(value, Me.Table.ParentRelations("FK_CourseFee_Fee"))
18069             End Set
18070         End Property
18071         
18072         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18073          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18074         Public Property SchoolInfoRow() As SchoolInfoRow
18075             Get
18076                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_CourseFee_SchoolInfo")),SchoolInfoRow)
18077             End Get
18078             Set
18079                 Me.SetParentRow(value, Me.Table.ParentRelations("FK_CourseFee_SchoolInfo"))
18080             End Set
18081         End Property
18082     End Class
18083     
18084     '''<summary>
18085     '''Represents strongly named DataRow class.
18086     '''</summary>
18087     Partial Public Class CourseFeePaymentRow
18088         Inherits Global.System.Data.DataRow
18089         
18090         Private tableCourseFeePayment As CourseFeePaymentDataTable
18091         
18092         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18093          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18094         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
18095             MyBase.New(rb)
18096             Me.tableCourseFeePayment = CType(Me.Table,CourseFeePaymentDataTable)
18097         End Sub
18098         
18099         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18100          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18101         Public Property Id() As Integer
18102             Get
18103                 Return CType(Me(Me.tableCourseFeePayment.IdColumn),Integer)
18104             End Get
18105             Set
18106                 Me(Me.tableCourseFeePayment.IdColumn) = value
18107             End Set
18108         End Property
18109         
18110         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18111          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18112         Public Property CFP_ID() As Integer
18113             Get
18114                 Return CType(Me(Me.tableCourseFeePayment.CFP_IDColumn),Integer)
18115             End Get
18116             Set
18117                 Me(Me.tableCourseFeePayment.CFP_IDColumn) = value
18118             End Set
18119         End Property
18120         
18121         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18122          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18123         Public Property PaymentID() As String
18124             Get
18125                 Return CType(Me(Me.tableCourseFeePayment.PaymentIDColumn),String)
18126             End Get
18127             Set
18128                 Me(Me.tableCourseFeePayment.PaymentIDColumn) = value
18129             End Set
18130         End Property
18131         
18132         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18133          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18134         Public Property AdmissionNo() As String
18135             Get
18136                 Return CType(Me(Me.tableCourseFeePayment.AdmissionNoColumn),String)
18137             End Get
18138             Set
18139                 Me(Me.tableCourseFeePayment.AdmissionNoColumn) = value
18140             End Set
18141         End Property
18142         
18143         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18144          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18145         Public Property Session() As String
18146             Get
18147                 Return CType(Me(Me.tableCourseFeePayment.SessionColumn),String)
18148             End Get
18149             Set
18150                 Me(Me.tableCourseFeePayment.SessionColumn) = value
18151             End Set
18152         End Property
18153         
18154         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18155          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18156         Public Property Semester() As String
18157             Get
18158                 Return CType(Me(Me.tableCourseFeePayment.SemesterColumn),String)
18159             End Get
18160             Set
18161                 Me(Me.tableCourseFeePayment.SemesterColumn) = value
18162             End Set
18163         End Property
18164         
18165         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18166          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18167         Public Property TotalFee() As Decimal
18168             Get
18169                 Return CType(Me(Me.tableCourseFeePayment.TotalFeeColumn),Decimal)
18170             End Get
18171             Set
18172                 Me(Me.tableCourseFeePayment.TotalFeeColumn) = value
18173             End Set
18174         End Property
18175         
18176         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18177          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18178         Public Property DiscountPer() As Decimal
18179             Get
18180                 Return CType(Me(Me.tableCourseFeePayment.DiscountPerColumn),Decimal)
18181             End Get
18182             Set
18183                 Me(Me.tableCourseFeePayment.DiscountPerColumn) = value
18184             End Set
18185         End Property
18186         
18187         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18188          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18189         Public Property DiscountAmt() As Decimal
18190             Get
18191                 Return CType(Me(Me.tableCourseFeePayment.DiscountAmtColumn),Decimal)
18192             End Get
18193             Set
18194                 Me(Me.tableCourseFeePayment.DiscountAmtColumn) = value
18195             End Set
18196         End Property
18197         
18198         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18199          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18200         Public Property PreviousDue() As Decimal
18201             Get
18202                 Return CType(Me(Me.tableCourseFeePayment.PreviousDueColumn),Decimal)
18203             End Get
18204             Set
18205                 Me(Me.tableCourseFeePayment.PreviousDueColumn) = value
18206             End Set
18207         End Property
18208         
18209         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18210          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18211         Public Property Fine() As Decimal
18212             Get
18213                 Return CType(Me(Me.tableCourseFeePayment.FineColumn),Decimal)
18214             End Get
18215             Set
18216                 Me(Me.tableCourseFeePayment.FineColumn) = value
18217             End Set
18218         End Property
18219         
18220         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18221          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18222         Public Property GrandTotal() As Decimal
18223             Get
18224                 Return CType(Me(Me.tableCourseFeePayment.GrandTotalColumn),Decimal)
18225             End Get
18226             Set
18227                 Me(Me.tableCourseFeePayment.GrandTotalColumn) = value
18228             End Set
18229         End Property
18230         
18231         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18232          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18233         Public Property TotalPaid() As Decimal
18234             Get
18235                 Return CType(Me(Me.tableCourseFeePayment.TotalPaidColumn),Decimal)
18236             End Get
18237             Set
18238                 Me(Me.tableCourseFeePayment.TotalPaidColumn) = value
18239             End Set
18240         End Property
18241         
18242         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18243          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18244         Public Property ModeOfPayment() As String
18245             Get
18246                 Return CType(Me(Me.tableCourseFeePayment.ModeOfPaymentColumn),String)
18247             End Get
18248             Set
18249                 Me(Me.tableCourseFeePayment.ModeOfPaymentColumn) = value
18250             End Set
18251         End Property
18252         
18253         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18254          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18255         Public Property PaymentModeDetails() As String
18256             Get
18257                 Try
18258                     Return CType(Me(Me.tableCourseFeePayment.PaymentModeDetailsColumn),String)
18259                 Catch e As Global.System.InvalidCastException
18260                     Throw New Global.System.Data.StrongTypingException("The value for column 'PaymentModeDetails' in table 'CourseFeePayment' is DBNull.", e)
18261                 End Try
18262             End Get
18263             Set
18264                 Me(Me.tableCourseFeePayment.PaymentModeDetailsColumn) = value
18265             End Set
18266         End Property
18267         
18268         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18269          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18270         Public Property PaymentDate() As Date
18271             Get
18272                 Return CType(Me(Me.tableCourseFeePayment.PaymentDateColumn),Date)
18273             End Get
18274             Set
18275                 Me(Me.tableCourseFeePayment.PaymentDateColumn) = value
18276             End Set
18277         End Property
18278         
18279         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18280          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18281         Public Property PaymentDue() As Decimal
18282             Get
18283                 Return CType(Me(Me.tableCourseFeePayment.PaymentDueColumn),Decimal)
18284             End Get
18285             Set
18286                 Me(Me.tableCourseFeePayment.PaymentDueColumn) = value
18287             End Set
18288         End Property
18289         
18290         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18291          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18292         Public Property ClassType() As String
18293             Get
18294                 Return CType(Me(Me.tableCourseFeePayment.ClassTypeColumn),String)
18295             End Get
18296             Set
18297                 Me(Me.tableCourseFeePayment.ClassTypeColumn) = value
18298             End Set
18299         End Property
18300         
18301         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18302          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18303         Public Property SchoolType() As String
18304             Get
18305                 Return CType(Me(Me.tableCourseFeePayment.SchoolTypeColumn),String)
18306             End Get
18307             Set
18308                 Me(Me.tableCourseFeePayment.SchoolTypeColumn) = value
18309             End Set
18310         End Property
18311         
18312         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18313          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18314         Public Property _Class() As String
18315             Get
18316                 Return CType(Me(Me.tableCourseFeePayment.ClassColumn),String)
18317             End Get
18318             Set
18319                 Me(Me.tableCourseFeePayment.ClassColumn) = value
18320             End Set
18321         End Property
18322         
18323         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18324          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18325         Public Property Section() As String
18326             Get
18327                 Return CType(Me(Me.tableCourseFeePayment.SectionColumn),String)
18328             End Get
18329             Set
18330                 Me(Me.tableCourseFeePayment.SectionColumn) = value
18331             End Set
18332         End Property
18333         
18334         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18335          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18336         Public Property StudentRow() As StudentRow
18337             Get
18338                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_CourseFeePayment_Student")),StudentRow)
18339             End Get
18340             Set
18341                 Me.SetParentRow(value, Me.Table.ParentRelations("FK_CourseFeePayment_Student"))
18342             End Set
18343         End Property
18344         
18345         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18346          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18347         Public Function IsPaymentModeDetailsNull() As Boolean
18348             Return Me.IsNull(Me.tableCourseFeePayment.PaymentModeDetailsColumn)
18349         End Function
18350         
18351         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18352          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18353         Public Sub SetPaymentModeDetailsNull()
18354             Me(Me.tableCourseFeePayment.PaymentModeDetailsColumn) = Global.System.Convert.DBNull
18355         End Sub
18356         
18357         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18358          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18359         Public Function GetCourseFeePayment_JoinRows() As CourseFeePayment_JoinRow()
18360             If (Me.Table.ChildRelations("FK_CourseFeePayment_Join_CourseFeePayment") Is Nothing) Then
18361                 Return New CourseFeePayment_JoinRow(-1) {}
18362             Else
18363                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_CourseFeePayment_Join_CourseFeePayment")),CourseFeePayment_JoinRow())
18364             End If
18365         End Function
18366     End Class
18367     
18368     '''<summary>
18369     '''Represents strongly named DataRow class.
18370     '''</summary>
18371     Partial Public Class CourseFeePayment_JoinRow
18372         Inherits Global.System.Data.DataRow
18373         
18374         Private tableCourseFeePayment_Join As CourseFeePayment_JoinDataTable
18375         
18376         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18377          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18378         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
18379             MyBase.New(rb)
18380             Me.tableCourseFeePayment_Join = CType(Me.Table,CourseFeePayment_JoinDataTable)
18381         End Sub
18382         
18383         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18384          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18385         Public Property CFPJ_Id() As Integer
18386             Get
18387                 Return CType(Me(Me.tableCourseFeePayment_Join.CFPJ_IdColumn),Integer)
18388             End Get
18389             Set
18390                 Me(Me.tableCourseFeePayment_Join.CFPJ_IdColumn) = value
18391             End Set
18392         End Property
18393         
18394         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18395          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18396         Public Property C_PaymentID() As Integer
18397             Get
18398                 Return CType(Me(Me.tableCourseFeePayment_Join.C_PaymentIDColumn),Integer)
18399             End Get
18400             Set
18401                 Me(Me.tableCourseFeePayment_Join.C_PaymentIDColumn) = value
18402             End Set
18403         End Property
18404         
18405         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18406          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18407         Public Property FeeName() As String
18408             Get
18409                 Return CType(Me(Me.tableCourseFeePayment_Join.FeeNameColumn),String)
18410             End Get
18411             Set
18412                 Me(Me.tableCourseFeePayment_Join.FeeNameColumn) = value
18413             End Set
18414         End Property
18415         
18416         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18417          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18418         Public Property Fee() As Decimal
18419             Get
18420                 Return CType(Me(Me.tableCourseFeePayment_Join.FeeColumn),Decimal)
18421             End Get
18422             Set
18423                 Me(Me.tableCourseFeePayment_Join.FeeColumn) = value
18424             End Set
18425         End Property
18426         
18427         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18428          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18429         Public Property CourseFeePaymentRow() As CourseFeePaymentRow
18430             Get
18431                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_CourseFeePayment_Join_CourseFeePayment")),CourseFeePaymentRow)
18432             End Get
18433             Set
18434                 Me.SetParentRow(value, Me.Table.ParentRelations("FK_CourseFeePayment_Join_CourseFeePayment"))
18435             End Set
18436         End Property
18437     End Class
18438     
18439     '''<summary>
18440     '''Represents strongly named DataRow class.
18441     '''</summary>
18442     Partial Public Class DepartmentRow
18443         Inherits Global.System.Data.DataRow
18444         
18445         Private tableDepartment As DepartmentDataTable
18446         
18447         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18448          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18449         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
18450             MyBase.New(rb)
18451             Me.tableDepartment = CType(Me.Table,DepartmentDataTable)
18452         End Sub
18453         
18454         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18455          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18456         Public Property id() As Integer
18457             Get
18458                 Return CType(Me(Me.tableDepartment.idColumn),Integer)
18459             End Get
18460             Set
18461                 Me(Me.tableDepartment.idColumn) = value
18462             End Set
18463         End Property
18464         
18465         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18466          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18467         Public Property DepartmentName() As String
18468             Get
18469                 Return CType(Me(Me.tableDepartment.DepartmentNameColumn),String)
18470             End Get
18471             Set
18472                 Me(Me.tableDepartment.DepartmentNameColumn) = value
18473             End Set
18474         End Property
18475         
18476         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18477          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18478         Public Function GetStaff_DepartmentRows() As Staff_DepartmentRow()
18479             If (Me.Table.ChildRelations("FK_Staff_Department_Department") Is Nothing) Then
18480                 Return New Staff_DepartmentRow(-1) {}
18481             Else
18482                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_Staff_Department_Department")),Staff_DepartmentRow())
18483             End If
18484         End Function
18485     End Class
18486     
18487     '''<summary>
18488     '''Represents strongly named DataRow class.
18489     '''</summary>
18490     Partial Public Class DesignationRow
18491         Inherits Global.System.Data.DataRow
18492         
18493         Private tableDesignation As DesignationDataTable
18494         
18495         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18496          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18497         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
18498             MyBase.New(rb)
18499             Me.tableDesignation = CType(Me.Table,DesignationDataTable)
18500         End Sub
18501         
18502         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18503          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18504         Public Property Designation() As String
18505             Get
18506                 Return CType(Me(Me.tableDesignation.DesignationColumn),String)
18507             End Get
18508             Set
18509                 Me(Me.tableDesignation.DesignationColumn) = value
18510             End Set
18511         End Property
18512         
18513         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18514          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18515         Public Function GetStaffRows() As StaffRow()
18516             If (Me.Table.ChildRelations("FK_Staff_Designation") Is Nothing) Then
18517                 Return New StaffRow(-1) {}
18518             Else
18519                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_Staff_Designation")),StaffRow())
18520             End If
18521         End Function
18522     End Class
18523     
18524     '''<summary>
18525     '''Represents strongly named DataRow class.
18526     '''</summary>
18527     Partial Public Class DiscountRow
18528         Inherits Global.System.Data.DataRow
18529         
18530         Private tableDiscount As DiscountDataTable
18531         
18532         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18533          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18534         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
18535             MyBase.New(rb)
18536             Me.tableDiscount = CType(Me.Table,DiscountDataTable)
18537         End Sub
18538         
18539         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18540          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18541         Public Property Id() As Integer
18542             Get
18543                 Return CType(Me(Me.tableDiscount.IdColumn),Integer)
18544             End Get
18545             Set
18546                 Me(Me.tableDiscount.IdColumn) = value
18547             End Set
18548         End Property
18549         
18550         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18551          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18552         Public Property AdmissionNo() As String
18553             Get
18554                 Return CType(Me(Me.tableDiscount.AdmissionNoColumn),String)
18555             End Get
18556             Set
18557                 Me(Me.tableDiscount.AdmissionNoColumn) = value
18558             End Set
18559         End Property
18560         
18561         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18562          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18563         Public Property Feetype() As String
18564             Get
18565                 Return CType(Me(Me.tableDiscount.FeetypeColumn),String)
18566             End Get
18567             Set
18568                 Me(Me.tableDiscount.FeetypeColumn) = value
18569             End Set
18570         End Property
18571         
18572         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18573          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18574         Public Property Discount() As Decimal
18575             Get
18576                 Return CType(Me(Me.tableDiscount.DiscountColumn),Decimal)
18577             End Get
18578             Set
18579                 Me(Me.tableDiscount.DiscountColumn) = value
18580             End Set
18581         End Property
18582         
18583         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18584          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18585         Public Property StudentRow() As StudentRow
18586             Get
18587                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_Discount_Student")),StudentRow)
18588             End Get
18589             Set
18590                 Me.SetParentRow(value, Me.Table.ParentRelations("FK_Discount_Student"))
18591             End Set
18592         End Property
18593     End Class
18594     
18595     '''<summary>
18596     '''Represents strongly named DataRow class.
18597     '''</summary>
18598     Partial Public Class Discount_StaffRow
18599         Inherits Global.System.Data.DataRow
18600         
18601         Private tableDiscount_Staff As Discount_StaffDataTable
18602         
18603         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18604          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18605         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
18606             MyBase.New(rb)
18607             Me.tableDiscount_Staff = CType(Me.Table,Discount_StaffDataTable)
18608         End Sub
18609         
18610         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18611          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18612         Public Property Id() As Integer
18613             Get
18614                 Return CType(Me(Me.tableDiscount_Staff.IdColumn),Integer)
18615             End Get
18616             Set
18617                 Me(Me.tableDiscount_Staff.IdColumn) = value
18618             End Set
18619         End Property
18620         
18621         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18622          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18623         Public Property StaffID() As Integer
18624             Get
18625                 Return CType(Me(Me.tableDiscount_Staff.StaffIDColumn),Integer)
18626             End Get
18627             Set
18628                 Me(Me.tableDiscount_Staff.StaffIDColumn) = value
18629             End Set
18630         End Property
18631         
18632         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18633          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18634         Public Property Discount() As Decimal
18635             Get
18636                 Return CType(Me(Me.tableDiscount_Staff.DiscountColumn),Decimal)
18637             End Get
18638             Set
18639                 Me(Me.tableDiscount_Staff.DiscountColumn) = value
18640             End Set
18641         End Property
18642         
18643         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18644          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18645         Public Property StaffRow() As StaffRow
18646             Get
18647                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_Discount_Staff_Staff")),StaffRow)
18648             End Get
18649             Set
18650                 Me.SetParentRow(value, Me.Table.ParentRelations("FK_Discount_Staff_Staff"))
18651             End Set
18652         End Property
18653     End Class
18654     
18655     '''<summary>
18656     '''Represents strongly named DataRow class.
18657     '''</summary>
18658     Partial Public Class DocumentRow
18659         Inherits Global.System.Data.DataRow
18660         
18661         Private tableDocument As DocumentDataTable
18662         
18663         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18664          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18665         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
18666             MyBase.New(rb)
18667             Me.tableDocument = CType(Me.Table,DocumentDataTable)
18668         End Sub
18669         
18670         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18671          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18672         Public Property Doc_Id() As Integer
18673             Get
18674                 Return CType(Me(Me.tableDocument.Doc_IdColumn),Integer)
18675             End Get
18676             Set
18677                 Me(Me.tableDocument.Doc_IdColumn) = value
18678             End Set
18679         End Property
18680         
18681         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18682          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18683         Public Property DocName() As String
18684             Get
18685                 Return CType(Me(Me.tableDocument.DocNameColumn),String)
18686             End Get
18687             Set
18688                 Me(Me.tableDocument.DocNameColumn) = value
18689             End Set
18690         End Property
18691         
18692         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18693          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18694         Public Function GetStudentDocSubmittedRows() As StudentDocSubmittedRow()
18695             If (Me.Table.ChildRelations("FK_StudentDocSubmitted_Document") Is Nothing) Then
18696                 Return New StudentDocSubmittedRow(-1) {}
18697             Else
18698                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_StudentDocSubmitted_Document")),StudentDocSubmittedRow())
18699             End If
18700         End Function
18701     End Class
18702     
18703     '''<summary>
18704     '''Represents strongly named DataRow class.
18705     '''</summary>
18706     Partial Public Class FeeRow
18707         Inherits Global.System.Data.DataRow
18708         
18709         Private tableFee As FeeDataTable
18710         
18711         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18712          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18713         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
18714             MyBase.New(rb)
18715             Me.tableFee = CType(Me.Table,FeeDataTable)
18716         End Sub
18717         
18718         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18719          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18720         Public Property Feename() As String
18721             Get
18722                 Return CType(Me(Me.tableFee.FeenameColumn),String)
18723             End Get
18724             Set
18725                 Me(Me.tableFee.FeenameColumn) = value
18726             End Set
18727         End Property
18728         
18729         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18730          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18731         Public Function GetCourseFeeRows() As CourseFeeRow()
18732             If (Me.Table.ChildRelations("FK_CourseFee_Fee") Is Nothing) Then
18733                 Return New CourseFeeRow(-1) {}
18734             Else
18735                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_CourseFee_Fee")),CourseFeeRow())
18736             End If
18737         End Function
18738     End Class
18739     
18740     '''<summary>
18741     '''Represents strongly named DataRow class.
18742     '''</summary>
18743     Partial Public Class HostelerRow
18744         Inherits Global.System.Data.DataRow
18745         
18746         Private tableHosteler As HostelerDataTable
18747         
18748         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18749          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18750         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
18751             MyBase.New(rb)
18752             Me.tableHosteler = CType(Me.Table,HostelerDataTable)
18753         End Sub
18754         
18755         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18756          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18757         Public Property H_Id() As Integer
18758             Get
18759                 Return CType(Me(Me.tableHosteler.H_IdColumn),Integer)
18760             End Get
18761             Set
18762                 Me(Me.tableHosteler.H_IdColumn) = value
18763             End Set
18764         End Property
18765         
18766         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18767          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18768         Public Property AdmissionNo() As String
18769             Get
18770                 Return CType(Me(Me.tableHosteler.AdmissionNoColumn),String)
18771             End Get
18772             Set
18773                 Me(Me.tableHosteler.AdmissionNoColumn) = value
18774             End Set
18775         End Property
18776         
18777         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18778          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18779         Public Property HostelID() As Integer
18780             Get
18781                 Return CType(Me(Me.tableHosteler.HostelIDColumn),Integer)
18782             End Get
18783             Set
18784                 Me(Me.tableHosteler.HostelIDColumn) = value
18785             End Set
18786         End Property
18787         
18788         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18789          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18790         Public Property JoiningDate() As Date
18791             Get
18792                 Return CType(Me(Me.tableHosteler.JoiningDateColumn),Date)
18793             End Get
18794             Set
18795                 Me(Me.tableHosteler.JoiningDateColumn) = value
18796             End Set
18797         End Property
18798         
18799         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18800          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18801         Public Property Status() As String
18802             Get
18803                 Return CType(Me(Me.tableHosteler.StatusColumn),String)
18804             End Get
18805             Set
18806                 Me(Me.tableHosteler.StatusColumn) = value
18807             End Set
18808         End Property
18809         
18810         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18811          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18812         Public Property HostelInfoRow() As HostelInfoRow
18813             Get
18814                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_Hosteler_HostelInfo")),HostelInfoRow)
18815             End Get
18816             Set
18817                 Me.SetParentRow(value, Me.Table.ParentRelations("FK_Hosteler_HostelInfo"))
18818             End Set
18819         End Property
18820         
18821         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18822          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18823         Public Property StudentRow() As StudentRow
18824             Get
18825                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_Hosteler_Student")),StudentRow)
18826             End Get
18827             Set
18828                 Me.SetParentRow(value, Me.Table.ParentRelations("FK_Hosteler_Student"))
18829             End Set
18830         End Property
18831         
18832         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18833          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18834         Public Function GetHostelFeePaymentRows() As HostelFeePaymentRow()
18835             If (Me.Table.ChildRelations("FK_HostelFeePayment_Hosteler") Is Nothing) Then
18836                 Return New HostelFeePaymentRow(-1) {}
18837             Else
18838                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_HostelFeePayment_Hosteler")),HostelFeePaymentRow())
18839             End If
18840         End Function
18841     End Class
18842     
18843     '''<summary>
18844     '''Represents strongly named DataRow class.
18845     '''</summary>
18846     Partial Public Class HostelFeePaymentRow
18847         Inherits Global.System.Data.DataRow
18848         
18849         Private tableHostelFeePayment As HostelFeePaymentDataTable
18850         
18851         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18852          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18853         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
18854             MyBase.New(rb)
18855             Me.tableHostelFeePayment = CType(Me.Table,HostelFeePaymentDataTable)
18856         End Sub
18857         
18858         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18859          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18860         Public Property Id() As Integer
18861             Get
18862                 Return CType(Me(Me.tableHostelFeePayment.IdColumn),Integer)
18863             End Get
18864             Set
18865                 Me(Me.tableHostelFeePayment.IdColumn) = value
18866             End Set
18867         End Property
18868         
18869         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18870          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18871         Public Property HFP_Id() As Integer
18872             Get
18873                 Return CType(Me(Me.tableHostelFeePayment.HFP_IdColumn),Integer)
18874             End Get
18875             Set
18876                 Me(Me.tableHostelFeePayment.HFP_IdColumn) = value
18877             End Set
18878         End Property
18879         
18880         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18881          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18882         Public Property PaymentID() As String
18883             Get
18884                 Return CType(Me(Me.tableHostelFeePayment.PaymentIDColumn),String)
18885             End Get
18886             Set
18887                 Me(Me.tableHostelFeePayment.PaymentIDColumn) = value
18888             End Set
18889         End Property
18890         
18891         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18892          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18893         Public Property HostelerID() As Integer
18894             Get
18895                 Return CType(Me(Me.tableHostelFeePayment.HostelerIDColumn),Integer)
18896             End Get
18897             Set
18898                 Me(Me.tableHostelFeePayment.HostelerIDColumn) = value
18899             End Set
18900         End Property
18901         
18902         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18903          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18904         Public Property Session() As String
18905             Get
18906                 Return CType(Me(Me.tableHostelFeePayment.SessionColumn),String)
18907             End Get
18908             Set
18909                 Me(Me.tableHostelFeePayment.SessionColumn) = value
18910             End Set
18911         End Property
18912         
18913         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18914          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18915         Public Property Installment() As String
18916             Get
18917                 Return CType(Me(Me.tableHostelFeePayment.InstallmentColumn),String)
18918             End Get
18919             Set
18920                 Me(Me.tableHostelFeePayment.InstallmentColumn) = value
18921             End Set
18922         End Property
18923         
18924         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18925          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18926         Public Property TotalFee() As Decimal
18927             Get
18928                 Return CType(Me(Me.tableHostelFeePayment.TotalFeeColumn),Decimal)
18929             End Get
18930             Set
18931                 Me(Me.tableHostelFeePayment.TotalFeeColumn) = value
18932             End Set
18933         End Property
18934         
18935         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18936          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18937         Public Property DiscountPer() As Decimal
18938             Get
18939                 Return CType(Me(Me.tableHostelFeePayment.DiscountPerColumn),Decimal)
18940             End Get
18941             Set
18942                 Me(Me.tableHostelFeePayment.DiscountPerColumn) = value
18943             End Set
18944         End Property
18945         
18946         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18947          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18948         Public Property DiscountAmt() As Decimal
18949             Get
18950                 Return CType(Me(Me.tableHostelFeePayment.DiscountAmtColumn),Decimal)
18951             End Get
18952             Set
18953                 Me(Me.tableHostelFeePayment.DiscountAmtColumn) = value
18954             End Set
18955         End Property
18956         
18957         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18958          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18959         Public Property PreviousDue() As Decimal
18960             Get
18961                 Return CType(Me(Me.tableHostelFeePayment.PreviousDueColumn),Decimal)
18962             End Get
18963             Set
18964                 Me(Me.tableHostelFeePayment.PreviousDueColumn) = value
18965             End Set
18966         End Property
18967         
18968         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18969          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18970         Public Property Fine() As Decimal
18971             Get
18972                 Return CType(Me(Me.tableHostelFeePayment.FineColumn),Decimal)
18973             End Get
18974             Set
18975                 Me(Me.tableHostelFeePayment.FineColumn) = value
18976             End Set
18977         End Property
18978         
18979         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18980          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18981         Public Property GrandTotal() As Decimal
18982             Get
18983                 Return CType(Me(Me.tableHostelFeePayment.GrandTotalColumn),Decimal)
18984             End Get
18985             Set
18986                 Me(Me.tableHostelFeePayment.GrandTotalColumn) = value
18987             End Set
18988         End Property
18989         
18990         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18991          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18992         Public Property TotalPaid() As Decimal
18993             Get
18994                 Return CType(Me(Me.tableHostelFeePayment.TotalPaidColumn),Decimal)
18995             End Get
18996             Set
18997                 Me(Me.tableHostelFeePayment.TotalPaidColumn) = value
18998             End Set
18999         End Property
19000         
19001         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19002          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19003         Public Property ModeOfPayment() As String
19004             Get
19005                 Return CType(Me(Me.tableHostelFeePayment.ModeOfPaymentColumn),String)
19006             End Get
19007             Set
19008                 Me(Me.tableHostelFeePayment.ModeOfPaymentColumn) = value
19009             End Set
19010         End Property
19011         
19012         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19013          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19014         Public Property PaymentModeDetails() As String
19015             Get
19016                 Try
19017                     Return CType(Me(Me.tableHostelFeePayment.PaymentModeDetailsColumn),String)
19018                 Catch e As Global.System.InvalidCastException
19019                     Throw New Global.System.Data.StrongTypingException("The value for column 'PaymentModeDetails' in table 'HostelFeePayment' is DBNull.", e)
19020                 End Try
19021             End Get
19022             Set
19023                 Me(Me.tableHostelFeePayment.PaymentModeDetailsColumn) = value
19024             End Set
19025         End Property
19026         
19027         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19028          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19029         Public Property Paymentdate() As Date
19030             Get
19031                 Return CType(Me(Me.tableHostelFeePayment.PaymentdateColumn),Date)
19032             End Get
19033             Set
19034                 Me(Me.tableHostelFeePayment.PaymentdateColumn) = value
19035             End Set
19036         End Property
19037         
19038         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19039          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19040         Public Property PaymentDue() As Decimal
19041             Get
19042                 Return CType(Me(Me.tableHostelFeePayment.PaymentDueColumn),Decimal)
19043             End Get
19044             Set
19045                 Me(Me.tableHostelFeePayment.PaymentDueColumn) = value
19046             End Set
19047         End Property
19048         
19049         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19050          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19051         Public Property ClassType() As String
19052             Get
19053                 Return CType(Me(Me.tableHostelFeePayment.ClassTypeColumn),String)
19054             End Get
19055             Set
19056                 Me(Me.tableHostelFeePayment.ClassTypeColumn) = value
19057             End Set
19058         End Property
19059         
19060         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19061          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19062         Public Property SchoolType() As String
19063             Get
19064                 Return CType(Me(Me.tableHostelFeePayment.SchoolTypeColumn),String)
19065             End Get
19066             Set
19067                 Me(Me.tableHostelFeePayment.SchoolTypeColumn) = value
19068             End Set
19069         End Property
19070         
19071         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19072          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19073         Public Property _Class() As String
19074             Get
19075                 Return CType(Me(Me.tableHostelFeePayment.ClassColumn),String)
19076             End Get
19077             Set
19078                 Me(Me.tableHostelFeePayment.ClassColumn) = value
19079             End Set
19080         End Property
19081         
19082         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19083          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19084         Public Property Section() As String
19085             Get
19086                 Return CType(Me(Me.tableHostelFeePayment.SectionColumn),String)
19087             End Get
19088             Set
19089                 Me(Me.tableHostelFeePayment.SectionColumn) = value
19090             End Set
19091         End Property
19092         
19093         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19094          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19095         Public Property HostelerRow() As HostelerRow
19096             Get
19097                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_HostelFeePayment_Hosteler")),HostelerRow)
19098             End Get
19099             Set
19100                 Me.SetParentRow(value, Me.Table.ParentRelations("FK_HostelFeePayment_Hosteler"))
19101             End Set
19102         End Property
19103         
19104         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19105          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19106         Public Function IsPaymentModeDetailsNull() As Boolean
19107             Return Me.IsNull(Me.tableHostelFeePayment.PaymentModeDetailsColumn)
19108         End Function
19109         
19110         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19111          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19112         Public Sub SetPaymentModeDetailsNull()
19113             Me(Me.tableHostelFeePayment.PaymentModeDetailsColumn) = Global.System.Convert.DBNull
19114         End Sub
19115     End Class
19116     
19117     '''<summary>
19118     '''Represents strongly named DataRow class.
19119     '''</summary>
19120     Partial Public Class HostelInfoRow
19121         Inherits Global.System.Data.DataRow
19122         
19123         Private tableHostelInfo As HostelInfoDataTable
19124         
19125         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19126          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19127         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
19128             MyBase.New(rb)
19129             Me.tableHostelInfo = CType(Me.Table,HostelInfoDataTable)
19130         End Sub
19131         
19132         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19133          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19134         Public Property HI_Id() As Integer
19135             Get
19136                 Return CType(Me(Me.tableHostelInfo.HI_IdColumn),Integer)
19137             End Get
19138             Set
19139                 Me(Me.tableHostelInfo.HI_IdColumn) = value
19140             End Set
19141         End Property
19142         
19143         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19144          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19145         Public Property Hostelname() As String
19146             Get
19147                 Return CType(Me(Me.tableHostelInfo.HostelnameColumn),String)
19148             End Get
19149             Set
19150                 Me(Me.tableHostelInfo.HostelnameColumn) = value
19151             End Set
19152         End Property
19153         
19154         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19155          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19156         Public Property Address() As String
19157             Get
19158                 Return CType(Me(Me.tableHostelInfo.AddressColumn),String)
19159             End Get
19160             Set
19161                 Me(Me.tableHostelInfo.AddressColumn) = value
19162             End Set
19163         End Property
19164         
19165         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19166          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19167         Public Property ContactNo() As String
19168             Get
19169                 Return CType(Me(Me.tableHostelInfo.ContactNoColumn),String)
19170             End Get
19171             Set
19172                 Me(Me.tableHostelInfo.ContactNoColumn) = value
19173             End Set
19174         End Property
19175         
19176         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19177          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19178         Public Property ManagedBy() As String
19179             Get
19180                 Try
19181                     Return CType(Me(Me.tableHostelInfo.ManagedByColumn),String)
19182                 Catch e As Global.System.InvalidCastException
19183                     Throw New Global.System.Data.StrongTypingException("The value for column 'ManagedBy' in table 'HostelInfo' is DBNull.", e)
19184                 End Try
19185             End Get
19186             Set
19187                 Me(Me.tableHostelInfo.ManagedByColumn) = value
19188             End Set
19189         End Property
19190         
19191         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19192          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19193         Public Property Person_ContactNo() As String
19194             Get
19195                 Try
19196                     Return CType(Me(Me.tableHostelInfo.Person_ContactNoColumn),String)
19197                 Catch e As Global.System.InvalidCastException
19198                     Throw New Global.System.Data.StrongTypingException("The value for column 'Person_ContactNo' in table 'HostelInfo' is DBNull.", e)
19199                 End Try
19200             End Get
19201             Set
19202                 Me(Me.tableHostelInfo.Person_ContactNoColumn) = value
19203             End Set
19204         End Property
19205         
19206         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19207          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19208         Public Function IsManagedByNull() As Boolean
19209             Return Me.IsNull(Me.tableHostelInfo.ManagedByColumn)
19210         End Function
19211         
19212         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19213          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19214         Public Sub SetManagedByNull()
19215             Me(Me.tableHostelInfo.ManagedByColumn) = Global.System.Convert.DBNull
19216         End Sub
19217         
19218         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19219          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19220         Public Function IsPerson_ContactNoNull() As Boolean
19221             Return Me.IsNull(Me.tableHostelInfo.Person_ContactNoColumn)
19222         End Function
19223         
19224         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19225          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19226         Public Sub SetPerson_ContactNoNull()
19227             Me(Me.tableHostelInfo.Person_ContactNoColumn) = Global.System.Convert.DBNull
19228         End Sub
19229         
19230         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19231          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19232         Public Function GetHostelerRows() As HostelerRow()
19233             If (Me.Table.ChildRelations("FK_Hosteler_HostelInfo") Is Nothing) Then
19234                 Return New HostelerRow(-1) {}
19235             Else
19236                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_Hosteler_HostelInfo")),HostelerRow())
19237             End If
19238         End Function
19239         
19240         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19241          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19242         Public Function GetInstallment_HostelRows() As Installment_HostelRow()
19243             If (Me.Table.ChildRelations("FK_Installment_Hostel_HostelInfo") Is Nothing) Then
19244                 Return New Installment_HostelRow(-1) {}
19245             Else
19246                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_Installment_Hostel_HostelInfo")),Installment_HostelRow())
19247             End If
19248         End Function
19249     End Class
19250     
19251     '''<summary>
19252     '''Represents strongly named DataRow class.
19253     '''</summary>
19254     Partial Public Class Installment_BusRow
19255         Inherits Global.System.Data.DataRow
19256         
19257         Private tableInstallment_Bus As Installment_BusDataTable
19258         
19259         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19260          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19261         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
19262             MyBase.New(rb)
19263             Me.tableInstallment_Bus = CType(Me.Table,Installment_BusDataTable)
19264         End Sub
19265         
19266         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19267          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19268         Public Property IB_ID() As Integer
19269             Get
19270                 Return CType(Me(Me.tableInstallment_Bus.IB_IDColumn),Integer)
19271             End Get
19272             Set
19273                 Me(Me.tableInstallment_Bus.IB_IDColumn) = value
19274             End Set
19275         End Property
19276         
19277         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19278          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19279         Public Property Installment() As String
19280             Get
19281                 Return CType(Me(Me.tableInstallment_Bus.InstallmentColumn),String)
19282             End Get
19283             Set
19284                 Me(Me.tableInstallment_Bus.InstallmentColumn) = value
19285             End Set
19286         End Property
19287         
19288         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19289          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19290         Public Property Charges() As Decimal
19291             Get
19292                 Return CType(Me(Me.tableInstallment_Bus.ChargesColumn),Decimal)
19293             End Get
19294             Set
19295                 Me(Me.tableInstallment_Bus.ChargesColumn) = value
19296             End Set
19297         End Property
19298         
19299         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19300          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19301         Public Property Location() As String
19302             Get
19303                 Try
19304                     Return CType(Me(Me.tableInstallment_Bus.LocationColumn),String)
19305                 Catch e As Global.System.InvalidCastException
19306                     Throw New Global.System.Data.StrongTypingException("The value for column 'Location' in table 'Installment_Bus' is DBNull.", e)
19307                 End Try
19308             End Get
19309             Set
19310                 Me(Me.tableInstallment_Bus.LocationColumn) = value
19311             End Set
19312         End Property
19313         
19314         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19315          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19316         Public Property LocationRow() As LocationRow
19317             Get
19318                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_Installment_Bus_Location")),LocationRow)
19319             End Get
19320             Set
19321                 Me.SetParentRow(value, Me.Table.ParentRelations("FK_Installment_Bus_Location"))
19322             End Set
19323         End Property
19324         
19325         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19326          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19327         Public Function IsLocationNull() As Boolean
19328             Return Me.IsNull(Me.tableInstallment_Bus.LocationColumn)
19329         End Function
19330         
19331         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19332          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19333         Public Sub SetLocationNull()
19334             Me(Me.tableInstallment_Bus.LocationColumn) = Global.System.Convert.DBNull
19335         End Sub
19336     End Class
19337     
19338     '''<summary>
19339     '''Represents strongly named DataRow class.
19340     '''</summary>
19341     Partial Public Class Installment_HostelRow
19342         Inherits Global.System.Data.DataRow
19343         
19344         Private tableInstallment_Hostel As Installment_HostelDataTable
19345         
19346         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19347          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19348         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
19349             MyBase.New(rb)
19350             Me.tableInstallment_Hostel = CType(Me.Table,Installment_HostelDataTable)
19351         End Sub
19352         
19353         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19354          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19355         Public Property IH_ID() As Integer
19356             Get
19357                 Return CType(Me(Me.tableInstallment_Hostel.IH_IDColumn),Integer)
19358             End Get
19359             Set
19360                 Me(Me.tableInstallment_Hostel.IH_IDColumn) = value
19361             End Set
19362         End Property
19363         
19364         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19365          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19366         Public Property Installment() As String
19367             Get
19368                 Return CType(Me(Me.tableInstallment_Hostel.InstallmentColumn),String)
19369             End Get
19370             Set
19371                 Me(Me.tableInstallment_Hostel.InstallmentColumn) = value
19372             End Set
19373         End Property
19374         
19375         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19376          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19377         Public Property Charges() As Decimal
19378             Get
19379                 Return CType(Me(Me.tableInstallment_Hostel.ChargesColumn),Decimal)
19380             End Get
19381             Set
19382                 Me(Me.tableInstallment_Hostel.ChargesColumn) = value
19383             End Set
19384         End Property
19385         
19386         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19387          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19388         Public Property HostelID() As Integer
19389             Get
19390                 Return CType(Me(Me.tableInstallment_Hostel.HostelIDColumn),Integer)
19391             End Get
19392             Set
19393                 Me(Me.tableInstallment_Hostel.HostelIDColumn) = value
19394             End Set
19395         End Property
19396         
19397         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19398          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19399         Public Property _Class() As String
19400             Get
19401                 Return CType(Me(Me.tableInstallment_Hostel.ClassColumn),String)
19402             End Get
19403             Set
19404                 Me(Me.tableInstallment_Hostel.ClassColumn) = value
19405             End Set
19406         End Property
19407         
19408         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19409          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19410         Public Property SchoolID() As Integer
19411             Get
19412                 Return CType(Me(Me.tableInstallment_Hostel.SchoolIDColumn),Integer)
19413             End Get
19414             Set
19415                 Me(Me.tableInstallment_Hostel.SchoolIDColumn) = value
19416             End Set
19417         End Property
19418         
19419         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19420          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19421         Public Property ClassRow() As ClassRow
19422             Get
19423                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_Installment_Hostel_Class")),ClassRow)
19424             End Get
19425             Set
19426                 Me.SetParentRow(value, Me.Table.ParentRelations("FK_Installment_Hostel_Class"))
19427             End Set
19428         End Property
19429         
19430         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19431          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19432         Public Property HostelInfoRow() As HostelInfoRow
19433             Get
19434                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_Installment_Hostel_HostelInfo")),HostelInfoRow)
19435             End Get
19436             Set
19437                 Me.SetParentRow(value, Me.Table.ParentRelations("FK_Installment_Hostel_HostelInfo"))
19438             End Set
19439         End Property
19440         
19441         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19442          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19443         Public Property SchoolInfoRow() As SchoolInfoRow
19444             Get
19445                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_Installment_Hostel_SchoolInfo")),SchoolInfoRow)
19446             End Get
19447             Set
19448                 Me.SetParentRow(value, Me.Table.ParentRelations("FK_Installment_Hostel_SchoolInfo"))
19449             End Set
19450         End Property
19451     End Class
19452     
19453     '''<summary>
19454     '''Represents strongly named DataRow class.
19455     '''</summary>
19456     Partial Public Class LocationRow
19457         Inherits Global.System.Data.DataRow
19458         
19459         Private tableLocation As LocationDataTable
19460         
19461         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19462          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19463         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
19464             MyBase.New(rb)
19465             Me.tableLocation = CType(Me.Table,LocationDataTable)
19466         End Sub
19467         
19468         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19469          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19470         Public Property LocationName() As String
19471             Get
19472                 Return CType(Me(Me.tableLocation.LocationNameColumn),String)
19473             End Get
19474             Set
19475                 Me(Me.tableLocation.LocationNameColumn) = value
19476             End Set
19477         End Property
19478         
19479         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19480          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19481         Public Function GetBusCardHolder_StaffRows() As BusCardHolder_StaffRow()
19482             If (Me.Table.ChildRelations("FK_BusCardHolder_Staff_Location") Is Nothing) Then
19483                 Return New BusCardHolder_StaffRow(-1) {}
19484             Else
19485                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_BusCardHolder_Staff_Location")),BusCardHolder_StaffRow())
19486             End If
19487         End Function
19488         
19489         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19490          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19491         Public Function GetBusCardHolder_StudentRows() As BusCardHolder_StudentRow()
19492             If (Me.Table.ChildRelations("FK_BusCardHolder_Student_Location") Is Nothing) Then
19493                 Return New BusCardHolder_StudentRow(-1) {}
19494             Else
19495                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_BusCardHolder_Student_Location")),BusCardHolder_StudentRow())
19496             End If
19497         End Function
19498         
19499         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19500          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19501         Public Function GetInstallment_BusRows() As Installment_BusRow()
19502             If (Me.Table.ChildRelations("FK_Installment_Bus_Location") Is Nothing) Then
19503                 Return New Installment_BusRow(-1) {}
19504             Else
19505                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_Installment_Bus_Location")),Installment_BusRow())
19506             End If
19507         End Function
19508     End Class
19509     
19510     '''<summary>
19511     '''Represents strongly named DataRow class.
19512     '''</summary>
19513     Partial Public Class LogsRow
19514         Inherits Global.System.Data.DataRow
19515         
19516         Private tableLogs As LogsDataTable
19517         
19518         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19519          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19520         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
19521             MyBase.New(rb)
19522             Me.tableLogs = CType(Me.Table,LogsDataTable)
19523         End Sub
19524         
19525         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19526          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19527         Public Property Id() As Integer
19528             Get
19529                 Return CType(Me(Me.tableLogs.IdColumn),Integer)
19530             End Get
19531             Set
19532                 Me(Me.tableLogs.IdColumn) = value
19533             End Set
19534         End Property
19535         
19536         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19537          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19538         Public Property UserID() As String
19539             Get
19540                 Return CType(Me(Me.tableLogs.UserIDColumn),String)
19541             End Get
19542             Set
19543                 Me(Me.tableLogs.UserIDColumn) = value
19544             End Set
19545         End Property
19546         
19547         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19548          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19549         Public Property _Date() As Date
19550             Get
19551                 Return CType(Me(Me.tableLogs.DateColumn),Date)
19552             End Get
19553             Set
19554                 Me(Me.tableLogs.DateColumn) = value
19555             End Set
19556         End Property
19557         
19558         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19559          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19560         Public Property Operation() As String
19561             Get
19562                 Return CType(Me(Me.tableLogs.OperationColumn),String)
19563             End Get
19564             Set
19565                 Me(Me.tableLogs.OperationColumn) = value
19566             End Set
19567         End Property
19568         
19569         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19570          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19571         Public Property RegistrationRow() As RegistrationRow
19572             Get
19573                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_Logs_Registration")),RegistrationRow)
19574             End Get
19575             Set
19576                 Me.SetParentRow(value, Me.Table.ParentRelations("FK_Logs_Registration"))
19577             End Set
19578         End Property
19579     End Class
19580     
19581     '''<summary>
19582     '''Represents strongly named DataRow class.
19583     '''</summary>
19584     Partial Public Class NoDues_StaffRow
19585         Inherits Global.System.Data.DataRow
19586         
19587         Private tableNoDues_Staff As NoDues_StaffDataTable
19588         
19589         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19590          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19591         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
19592             MyBase.New(rb)
19593             Me.tableNoDues_Staff = CType(Me.Table,NoDues_StaffDataTable)
19594         End Sub
19595         
19596         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19597          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19598         Public Property StaffID() As Integer
19599             Get
19600                 Return CType(Me(Me.tableNoDues_Staff.StaffIDColumn),Integer)
19601             End Get
19602             Set
19603                 Me(Me.tableNoDues_Staff.StaffIDColumn) = value
19604             End Set
19605         End Property
19606         
19607         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19608          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19609         Public Property Staff() As String
19610             Get
19611                 Try
19612                     Return CType(Me(Me.tableNoDues_Staff.StaffColumn),String)
19613                 Catch e As Global.System.InvalidCastException
19614                     Throw New Global.System.Data.StrongTypingException("The value for column 'Staff' in table 'NoDues_Staff' is DBNull.", e)
19615                 End Try
19616             End Get
19617             Set
19618                 Me(Me.tableNoDues_Staff.StaffColumn) = value
19619             End Set
19620         End Property
19621         
19622         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19623          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19624         Public Property StaffRow() As StaffRow
19625             Get
19626                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_NoDues_Staff_Staff")),StaffRow)
19627             End Get
19628             Set
19629                 Me.SetParentRow(value, Me.Table.ParentRelations("FK_NoDues_Staff_Staff"))
19630             End Set
19631         End Property
19632         
19633         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19634          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19635         Public Function IsStaffNull() As Boolean
19636             Return Me.IsNull(Me.tableNoDues_Staff.StaffColumn)
19637         End Function
19638         
19639         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19640          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19641         Public Sub SetStaffNull()
19642             Me(Me.tableNoDues_Staff.StaffColumn) = Global.System.Convert.DBNull
19643         End Sub
19644     End Class
19645     
19646     '''<summary>
19647     '''Represents strongly named DataRow class.
19648     '''</summary>
19649     Partial Public Class NoDues_StudentRow
19650         Inherits Global.System.Data.DataRow
19651         
19652         Private tableNoDues_Student As NoDues_StudentDataTable
19653         
19654         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19655          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19656         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
19657             MyBase.New(rb)
19658             Me.tableNoDues_Student = CType(Me.Table,NoDues_StudentDataTable)
19659         End Sub
19660         
19661         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19662          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19663         Public Property AdmissionNo() As String
19664             Get
19665                 Return CType(Me(Me.tableNoDues_Student.AdmissionNoColumn),String)
19666             End Get
19667             Set
19668                 Me(Me.tableNoDues_Student.AdmissionNoColumn) = value
19669             End Set
19670         End Property
19671         
19672         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19673          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19674         Public Property Status() As String
19675             Get
19676                 Try
19677                     Return CType(Me(Me.tableNoDues_Student.StatusColumn),String)
19678                 Catch e As Global.System.InvalidCastException
19679                     Throw New Global.System.Data.StrongTypingException("The value for column 'Status' in table 'NoDues_Student' is DBNull.", e)
19680                 End Try
19681             End Get
19682             Set
19683                 Me(Me.tableNoDues_Student.StatusColumn) = value
19684             End Set
19685         End Property
19686         
19687         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19688          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19689         Public Property StudentRow() As StudentRow
19690             Get
19691                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_NoDues_Student_Student")),StudentRow)
19692             End Get
19693             Set
19694                 Me.SetParentRow(value, Me.Table.ParentRelations("FK_NoDues_Student_Student"))
19695             End Set
19696         End Property
19697         
19698         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19699          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19700         Public Function IsStatusNull() As Boolean
19701             Return Me.IsNull(Me.tableNoDues_Student.StatusColumn)
19702         End Function
19703         
19704         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19705          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19706         Public Sub SetStatusNull()
19707             Me(Me.tableNoDues_Student.StatusColumn) = Global.System.Convert.DBNull
19708         End Sub
19709     End Class
19710     
19711     '''<summary>
19712     '''Represents strongly named DataRow class.
19713     '''</summary>
19714     Partial Public Class RegistrationRow
19715         Inherits Global.System.Data.DataRow
19716         
19717         Private tableRegistration As RegistrationDataTable
19718         
19719         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19720          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19721         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
19722             MyBase.New(rb)
19723             Me.tableRegistration = CType(Me.Table,RegistrationDataTable)
19724         End Sub
19725         
19726         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19727          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19728         Public Property UserID() As String
19729             Get
19730                 Return CType(Me(Me.tableRegistration.UserIDColumn),String)
19731             End Get
19732             Set
19733                 Me(Me.tableRegistration.UserIDColumn) = value
19734             End Set
19735         End Property
19736         
19737         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19738          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19739         Public Property Password() As String
19740             Get
19741                 Return CType(Me(Me.tableRegistration.PasswordColumn),String)
19742             End Get
19743             Set
19744                 Me(Me.tableRegistration.PasswordColumn) = value
19745             End Set
19746         End Property
19747         
19748         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19749          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19750         Public Property Name() As String
19751             Get
19752                 Return CType(Me(Me.tableRegistration.NameColumn),String)
19753             End Get
19754             Set
19755                 Me(Me.tableRegistration.NameColumn) = value
19756             End Set
19757         End Property
19758         
19759         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19760          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19761         Public Property Usertype() As String
19762             Get
19763                 Return CType(Me(Me.tableRegistration.UsertypeColumn),String)
19764             End Get
19765             Set
19766                 Me(Me.tableRegistration.UsertypeColumn) = value
19767             End Set
19768         End Property
19769         
19770         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19771          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19772         Public Property ContactNo() As String
19773             Get
19774                 Return CType(Me(Me.tableRegistration.ContactNoColumn),String)
19775             End Get
19776             Set
19777                 Me(Me.tableRegistration.ContactNoColumn) = value
19778             End Set
19779         End Property
19780         
19781         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19782          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19783         Public Property EmailID() As String
19784             Get
19785                 Try
19786                     Return CType(Me(Me.tableRegistration.EmailIDColumn),String)
19787                 Catch e As Global.System.InvalidCastException
19788                     Throw New Global.System.Data.StrongTypingException("The value for column 'EmailID' in table 'Registration' is DBNull.", e)
19789                 End Try
19790             End Get
19791             Set
19792                 Me(Me.tableRegistration.EmailIDColumn) = value
19793             End Set
19794         End Property
19795         
19796         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19797          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19798         Public Property JoiningDate() As Date
19799             Get
19800                 Try
19801                     Return CType(Me(Me.tableRegistration.JoiningDateColumn),Date)
19802                 Catch e As Global.System.InvalidCastException
19803                     Throw New Global.System.Data.StrongTypingException("The value for column 'JoiningDate' in table 'Registration' is DBNull.", e)
19804                 End Try
19805             End Get
19806             Set
19807                 Me(Me.tableRegistration.JoiningDateColumn) = value
19808             End Set
19809         End Property
19810         
19811         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19812          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19813         Public Function IsEmailIDNull() As Boolean
19814             Return Me.IsNull(Me.tableRegistration.EmailIDColumn)
19815         End Function
19816         
19817         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19818          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19819         Public Sub SetEmailIDNull()
19820             Me(Me.tableRegistration.EmailIDColumn) = Global.System.Convert.DBNull
19821         End Sub
19822         
19823         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19824          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19825         Public Function IsJoiningDateNull() As Boolean
19826             Return Me.IsNull(Me.tableRegistration.JoiningDateColumn)
19827         End Function
19828         
19829         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19830          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19831         Public Sub SetJoiningDateNull()
19832             Me(Me.tableRegistration.JoiningDateColumn) = Global.System.Convert.DBNull
19833         End Sub
19834         
19835         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19836          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19837         Public Function GetLogsRows() As LogsRow()
19838             If (Me.Table.ChildRelations("FK_Logs_Registration") Is Nothing) Then
19839                 Return New LogsRow(-1) {}
19840             Else
19841                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_Logs_Registration")),LogsRow())
19842             End If
19843         End Function
19844     End Class
19845     
19846     '''<summary>
19847     '''Represents strongly named DataRow class.
19848     '''</summary>
19849     Partial Public Class SchoolInfoRow
19850         Inherits Global.System.Data.DataRow
19851         
19852         Private tableSchoolInfo As SchoolInfoDataTable
19853         
19854         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19855          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19856         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
19857             MyBase.New(rb)
19858             Me.tableSchoolInfo = CType(Me.Table,SchoolInfoDataTable)
19859         End Sub
19860         
19861         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19862          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19863         Public Property S_Id() As Integer
19864             Get
19865                 Return CType(Me(Me.tableSchoolInfo.S_IdColumn),Integer)
19866             End Get
19867             Set
19868                 Me(Me.tableSchoolInfo.S_IdColumn) = value
19869             End Set
19870         End Property
19871         
19872         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19873          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19874         Public Property SchoolName() As String
19875             Get
19876                 Return CType(Me(Me.tableSchoolInfo.SchoolNameColumn),String)
19877             End Get
19878             Set
19879                 Me(Me.tableSchoolInfo.SchoolNameColumn) = value
19880             End Set
19881         End Property
19882         
19883         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19884          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19885         Public Property Address() As String
19886             Get
19887                 Return CType(Me(Me.tableSchoolInfo.AddressColumn),String)
19888             End Get
19889             Set
19890                 Me(Me.tableSchoolInfo.AddressColumn) = value
19891             End Set
19892         End Property
19893         
19894         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19895          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19896         Public Property ContactNo() As String
19897             Get
19898                 Return CType(Me(Me.tableSchoolInfo.ContactNoColumn),String)
19899             End Get
19900             Set
19901                 Me(Me.tableSchoolInfo.ContactNoColumn) = value
19902             End Set
19903         End Property
19904         
19905         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19906          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19907         Public Property AltContactNo() As String
19908             Get
19909                 Try
19910                     Return CType(Me(Me.tableSchoolInfo.AltContactNoColumn),String)
19911                 Catch e As Global.System.InvalidCastException
19912                     Throw New Global.System.Data.StrongTypingException("The value for column 'AltContactNo' in table 'SchoolInfo' is DBNull.", e)
19913                 End Try
19914             End Get
19915             Set
19916                 Me(Me.tableSchoolInfo.AltContactNoColumn) = value
19917             End Set
19918         End Property
19919         
19920         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19921          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19922         Public Property FaxNo() As String
19923             Get
19924                 Try
19925                     Return CType(Me(Me.tableSchoolInfo.FaxNoColumn),String)
19926                 Catch e As Global.System.InvalidCastException
19927                     Throw New Global.System.Data.StrongTypingException("The value for column 'FaxNo' in table 'SchoolInfo' is DBNull.", e)
19928                 End Try
19929             End Get
19930             Set
19931                 Me(Me.tableSchoolInfo.FaxNoColumn) = value
19932             End Set
19933         End Property
19934         
19935         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19936          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19937         Public Property Email() As String
19938             Get
19939                 Return CType(Me(Me.tableSchoolInfo.EmailColumn),String)
19940             End Get
19941             Set
19942                 Me(Me.tableSchoolInfo.EmailColumn) = value
19943             End Set
19944         End Property
19945         
19946         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19947          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19948         Public Property Website() As String
19949             Get
19950                 Try
19951                     Return CType(Me(Me.tableSchoolInfo.WebsiteColumn),String)
19952                 Catch e As Global.System.InvalidCastException
19953                     Throw New Global.System.Data.StrongTypingException("The value for column 'Website' in table 'SchoolInfo' is DBNull.", e)
19954                 End Try
19955             End Get
19956             Set
19957                 Me(Me.tableSchoolInfo.WebsiteColumn) = value
19958             End Set
19959         End Property
19960         
19961         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19962          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19963         Public Property Logo() As Byte()
19964             Get
19965                 Return CType(Me(Me.tableSchoolInfo.LogoColumn),Byte())
19966             End Get
19967             Set
19968                 Me(Me.tableSchoolInfo.LogoColumn) = value
19969             End Set
19970         End Property
19971         
19972         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19973          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19974         Public Property RegistrationNo() As String
19975             Get
19976                 Try
19977                     Return CType(Me(Me.tableSchoolInfo.RegistrationNoColumn),String)
19978                 Catch e As Global.System.InvalidCastException
19979                     Throw New Global.System.Data.StrongTypingException("The value for column 'RegistrationNo' in table 'SchoolInfo' is DBNull.", e)
19980                 End Try
19981             End Get
19982             Set
19983                 Me(Me.tableSchoolInfo.RegistrationNoColumn) = value
19984             End Set
19985         End Property
19986         
19987         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19988          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19989         Public Property DiseNo() As String
19990             Get
19991                 Try
19992                     Return CType(Me(Me.tableSchoolInfo.DiseNoColumn),String)
19993                 Catch e As Global.System.InvalidCastException
19994                     Throw New Global.System.Data.StrongTypingException("The value for column 'DiseNo' in table 'SchoolInfo' is DBNull.", e)
19995                 End Try
19996             End Get
19997             Set
19998                 Me(Me.tableSchoolInfo.DiseNoColumn) = value
19999             End Set
20000         End Property
20001         
20002         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20003          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20004         Public Property IndexNo() As String
20005             Get
20006                 Try
20007                     Return CType(Me(Me.tableSchoolInfo.IndexNoColumn),String)
20008                 Catch e As Global.System.InvalidCastException
20009                     Throw New Global.System.Data.StrongTypingException("The value for column 'IndexNo' in table 'SchoolInfo' is DBNull.", e)
20010                 End Try
20011             End Get
20012             Set
20013                 Me(Me.tableSchoolInfo.IndexNoColumn) = value
20014             End Set
20015         End Property
20016         
20017         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20018          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20019         Public Property EstablishedYear() As Integer
20020             Get
20021                 Return CType(Me(Me.tableSchoolInfo.EstablishedYearColumn),Integer)
20022             End Get
20023             Set
20024                 Me(Me.tableSchoolInfo.EstablishedYearColumn) = value
20025             End Set
20026         End Property
20027         
20028         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20029          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20030         Public Property _Class() As String
20031             Get
20032                 Try
20033                     Return CType(Me(Me.tableSchoolInfo.ClassColumn),String)
20034                 Catch e As Global.System.InvalidCastException
20035                     Throw New Global.System.Data.StrongTypingException("The value for column 'Class' in table 'SchoolInfo' is DBNull.", e)
20036                 End Try
20037             End Get
20038             Set
20039                 Me(Me.tableSchoolInfo.ClassColumn) = value
20040             End Set
20041         End Property
20042         
20043         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20044          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20045         Public Property SchoolType() As String
20046             Get
20047                 Return CType(Me(Me.tableSchoolInfo.SchoolTypeColumn),String)
20048             End Get
20049             Set
20050                 Me(Me.tableSchoolInfo.SchoolTypeColumn) = value
20051             End Set
20052         End Property
20053         
20054         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20055          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20056         Public Property SchoolTypeRow() As SchoolTypeRow
20057             Get
20058                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_SchoolInfo_SchoolType")),SchoolTypeRow)
20059             End Get
20060             Set
20061                 Me.SetParentRow(value, Me.Table.ParentRelations("FK_SchoolInfo_SchoolType"))
20062             End Set
20063         End Property
20064         
20065         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20066          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20067         Public Function IsAltContactNoNull() As Boolean
20068             Return Me.IsNull(Me.tableSchoolInfo.AltContactNoColumn)
20069         End Function
20070         
20071         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20072          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20073         Public Sub SetAltContactNoNull()
20074             Me(Me.tableSchoolInfo.AltContactNoColumn) = Global.System.Convert.DBNull
20075         End Sub
20076         
20077         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20078          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20079         Public Function IsFaxNoNull() As Boolean
20080             Return Me.IsNull(Me.tableSchoolInfo.FaxNoColumn)
20081         End Function
20082         
20083         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20084          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20085         Public Sub SetFaxNoNull()
20086             Me(Me.tableSchoolInfo.FaxNoColumn) = Global.System.Convert.DBNull
20087         End Sub
20088         
20089         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20090          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20091         Public Function IsWebsiteNull() As Boolean
20092             Return Me.IsNull(Me.tableSchoolInfo.WebsiteColumn)
20093         End Function
20094         
20095         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20096          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20097         Public Sub SetWebsiteNull()
20098             Me(Me.tableSchoolInfo.WebsiteColumn) = Global.System.Convert.DBNull
20099         End Sub
20100         
20101         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20102          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20103         Public Function IsRegistrationNoNull() As Boolean
20104             Return Me.IsNull(Me.tableSchoolInfo.RegistrationNoColumn)
20105         End Function
20106         
20107         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20108          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20109         Public Sub SetRegistrationNoNull()
20110             Me(Me.tableSchoolInfo.RegistrationNoColumn) = Global.System.Convert.DBNull
20111         End Sub
20112         
20113         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20114          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20115         Public Function IsDiseNoNull() As Boolean
20116             Return Me.IsNull(Me.tableSchoolInfo.DiseNoColumn)
20117         End Function
20118         
20119         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20120          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20121         Public Sub SetDiseNoNull()
20122             Me(Me.tableSchoolInfo.DiseNoColumn) = Global.System.Convert.DBNull
20123         End Sub
20124         
20125         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20126          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20127         Public Function IsIndexNoNull() As Boolean
20128             Return Me.IsNull(Me.tableSchoolInfo.IndexNoColumn)
20129         End Function
20130         
20131         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20132          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20133         Public Sub SetIndexNoNull()
20134             Me(Me.tableSchoolInfo.IndexNoColumn) = Global.System.Convert.DBNull
20135         End Sub
20136         
20137         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20138          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20139         Public Function Is_ClassNull() As Boolean
20140             Return Me.IsNull(Me.tableSchoolInfo.ClassColumn)
20141         End Function
20142         
20143         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20144          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20145         Public Sub Set_ClassNull()
20146             Me(Me.tableSchoolInfo.ClassColumn) = Global.System.Convert.DBNull
20147         End Sub
20148         
20149         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20150          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20151         Public Function GetCourseFeeRows() As CourseFeeRow()
20152             If (Me.Table.ChildRelations("FK_CourseFee_SchoolInfo") Is Nothing) Then
20153                 Return New CourseFeeRow(-1) {}
20154             Else
20155                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_CourseFee_SchoolInfo")),CourseFeeRow())
20156             End If
20157         End Function
20158         
20159         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20160          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20161         Public Function GetInstallment_HostelRows() As Installment_HostelRow()
20162             If (Me.Table.ChildRelations("FK_Installment_Hostel_SchoolInfo") Is Nothing) Then
20163                 Return New Installment_HostelRow(-1) {}
20164             Else
20165                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_Installment_Hostel_SchoolInfo")),Installment_HostelRow())
20166             End If
20167         End Function
20168         
20169         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20170          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20171         Public Function GetStaffRows() As StaffRow()
20172             If (Me.Table.ChildRelations("FK_Staff_SchoolInfo") Is Nothing) Then
20173                 Return New StaffRow(-1) {}
20174             Else
20175                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_Staff_SchoolInfo")),StaffRow())
20176             End If
20177         End Function
20178         
20179         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20180          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20181         Public Function GetStudentRows() As StudentRow()
20182             If (Me.Table.ChildRelations("FK_Student_SchoolInfo") Is Nothing) Then
20183                 Return New StudentRow(-1) {}
20184             Else
20185                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_Student_SchoolInfo")),StudentRow())
20186             End If
20187         End Function
20188         
20189         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20190          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20191         Public Function GetVoucherRows() As VoucherRow()
20192             If (Me.Table.ChildRelations("FK_Voucher_SchoolInfo") Is Nothing) Then
20193                 Return New VoucherRow(-1) {}
20194             Else
20195                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_Voucher_SchoolInfo")),VoucherRow())
20196             End If
20197         End Function
20198     End Class
20199     
20200     '''<summary>
20201     '''Represents strongly named DataRow class.
20202     '''</summary>
20203     Partial Public Class SchoolTypeRow
20204         Inherits Global.System.Data.DataRow
20205         
20206         Private tableSchoolType As SchoolTypeDataTable
20207         
20208         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20209          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20210         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
20211             MyBase.New(rb)
20212             Me.tableSchoolType = CType(Me.Table,SchoolTypeDataTable)
20213         End Sub
20214         
20215         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20216          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20217         Public Property Type() As String
20218             Get
20219                 Return CType(Me(Me.tableSchoolType.TypeColumn),String)
20220             End Get
20221             Set
20222                 Me(Me.tableSchoolType.TypeColumn) = value
20223             End Set
20224         End Property
20225         
20226         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20227          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20228         Public Function GetSchoolInfoRows() As SchoolInfoRow()
20229             If (Me.Table.ChildRelations("FK_SchoolInfo_SchoolType") Is Nothing) Then
20230                 Return New SchoolInfoRow(-1) {}
20231             Else
20232                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_SchoolInfo_SchoolType")),SchoolInfoRow())
20233             End If
20234         End Function
20235     End Class
20236     
20237     '''<summary>
20238     '''Represents strongly named DataRow class.
20239     '''</summary>
20240     Partial Public Class SectionRow
20241         Inherits Global.System.Data.DataRow
20242         
20243         Private tableSection As SectionDataTable
20244         
20245         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20246          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20247         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
20248             MyBase.New(rb)
20249             Me.tableSection = CType(Me.Table,SectionDataTable)
20250         End Sub
20251         
20252         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20253          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20254         Public Property Id() As Integer
20255             Get
20256                 Return CType(Me(Me.tableSection.IdColumn),Integer)
20257             End Get
20258             Set
20259                 Me(Me.tableSection.IdColumn) = value
20260             End Set
20261         End Property
20262         
20263         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20264          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20265         Public Property SectionName() As String
20266             Get
20267                 Return CType(Me(Me.tableSection.SectionNameColumn),String)
20268             End Get
20269             Set
20270                 Me(Me.tableSection.SectionNameColumn) = value
20271             End Set
20272         End Property
20273         
20274         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20275          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20276         Public Property _Class() As String
20277             Get
20278                 Return CType(Me(Me.tableSection.ClassColumn),String)
20279             End Get
20280             Set
20281                 Me(Me.tableSection.ClassColumn) = value
20282             End Set
20283         End Property
20284         
20285         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20286          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20287         Public Property ClassRow() As ClassRow
20288             Get
20289                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_Section_Class")),ClassRow)
20290             End Get
20291             Set
20292                 Me.SetParentRow(value, Me.Table.ParentRelations("FK_Section_Class"))
20293             End Set
20294         End Property
20295         
20296         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20297          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20298         Public Function GetStudentRows() As StudentRow()
20299             If (Me.Table.ChildRelations("FK_Student_Section") Is Nothing) Then
20300                 Return New StudentRow(-1) {}
20301             Else
20302                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_Student_Section")),StudentRow())
20303             End If
20304         End Function
20305     End Class
20306     
20307     '''<summary>
20308     '''Represents strongly named DataRow class.
20309     '''</summary>
20310     Partial Public Class Session_MasterRow
20311         Inherits Global.System.Data.DataRow
20312         
20313         Private tableSession_Master As Session_MasterDataTable
20314         
20315         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20316          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20317         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
20318             MyBase.New(rb)
20319             Me.tableSession_Master = CType(Me.Table,Session_MasterDataTable)
20320         End Sub
20321         
20322         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20323          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20324         Public Property Session() As String
20325             Get
20326                 Return CType(Me(Me.tableSession_Master.SessionColumn),String)
20327             End Get
20328             Set
20329                 Me(Me.tableSession_Master.SessionColumn) = value
20330             End Set
20331         End Property
20332         
20333         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20334          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20335         Public Function GetStudentRows() As StudentRow()
20336             If (Me.Table.ChildRelations("FK_Student_Session_Master") Is Nothing) Then
20337                 Return New StudentRow(-1) {}
20338             Else
20339                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_Student_Session_Master")),StudentRow())
20340             End If
20341         End Function
20342     End Class
20343     
20344     '''<summary>
20345     '''Represents strongly named DataRow class.
20346     '''</summary>
20347     Partial Public Class StaffRow
20348         Inherits Global.System.Data.DataRow
20349         
20350         Private tableStaff As StaffDataTable
20351         
20352         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20353          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20354         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
20355             MyBase.New(rb)
20356             Me.tableStaff = CType(Me.Table,StaffDataTable)
20357         End Sub
20358         
20359         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20360          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20361         Public Property St_ID() As Integer
20362             Get
20363                 Return CType(Me(Me.tableStaff.St_IDColumn),Integer)
20364             End Get
20365             Set
20366                 Me(Me.tableStaff.St_IDColumn) = value
20367             End Set
20368         End Property
20369         
20370         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20371          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20372         Public Property StaffID() As String
20373             Get
20374                 Return CType(Me(Me.tableStaff.StaffIDColumn),String)
20375             End Get
20376             Set
20377                 Me(Me.tableStaff.StaffIDColumn) = value
20378             End Set
20379         End Property
20380         
20381         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20382          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20383         Public Property StaffName() As String
20384             Get
20385                 Return CType(Me(Me.tableStaff.StaffNameColumn),String)
20386             End Get
20387             Set
20388                 Me(Me.tableStaff.StaffNameColumn) = value
20389             End Set
20390         End Property
20391         
20392         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20393          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20394         Public Property DateOfJoining() As Date
20395             Get
20396                 Return CType(Me(Me.tableStaff.DateOfJoiningColumn),Date)
20397             End Get
20398             Set
20399                 Me(Me.tableStaff.DateOfJoiningColumn) = value
20400             End Set
20401         End Property
20402         
20403         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20404          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20405         Public Property Gender() As String
20406             Get
20407                 Return CType(Me(Me.tableStaff.GenderColumn),String)
20408             End Get
20409             Set
20410                 Me(Me.tableStaff.GenderColumn) = value
20411             End Set
20412         End Property
20413         
20414         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20415          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20416         Public Property FatherName() As String
20417             Get
20418                 Return CType(Me(Me.tableStaff.FatherNameColumn),String)
20419             End Get
20420             Set
20421                 Me(Me.tableStaff.FatherNameColumn) = value
20422             End Set
20423         End Property
20424         
20425         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20426          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20427         Public Property TemporaryAddress() As String
20428             Get
20429                 Return CType(Me(Me.tableStaff.TemporaryAddressColumn),String)
20430             End Get
20431             Set
20432                 Me(Me.tableStaff.TemporaryAddressColumn) = value
20433             End Set
20434         End Property
20435         
20436         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20437          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20438         Public Property PermanentAddress() As String
20439             Get
20440                 Return CType(Me(Me.tableStaff.PermanentAddressColumn),String)
20441             End Get
20442             Set
20443                 Me(Me.tableStaff.PermanentAddressColumn) = value
20444             End Set
20445         End Property
20446         
20447         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20448          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20449         Public Property Designation() As String
20450             Get
20451                 Return CType(Me(Me.tableStaff.DesignationColumn),String)
20452             End Get
20453             Set
20454                 Me(Me.tableStaff.DesignationColumn) = value
20455             End Set
20456         End Property
20457         
20458         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20459          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20460         Public Property Qualifications() As String
20461             Get
20462                 Return CType(Me(Me.tableStaff.QualificationsColumn),String)
20463             End Get
20464             Set
20465                 Me(Me.tableStaff.QualificationsColumn) = value
20466             End Set
20467         End Property
20468         
20469         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20470          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20471         Public Property DOB() As Date
20472             Get
20473                 Return CType(Me(Me.tableStaff.DOBColumn),Date)
20474             End Get
20475             Set
20476                 Me(Me.tableStaff.DOBColumn) = value
20477             End Set
20478         End Property
20479         
20480         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20481          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20482         Public Property PhoneNo() As String
20483             Get
20484                 Try
20485                     Return CType(Me(Me.tableStaff.PhoneNoColumn),String)
20486                 Catch e As Global.System.InvalidCastException
20487                     Throw New Global.System.Data.StrongTypingException("The value for column 'PhoneNo' in table 'Staff' is DBNull.", e)
20488                 End Try
20489             End Get
20490             Set
20491                 Me(Me.tableStaff.PhoneNoColumn) = value
20492             End Set
20493         End Property
20494         
20495         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20496          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20497         Public Property MobileNo() As String
20498             Get
20499                 Return CType(Me(Me.tableStaff.MobileNoColumn),String)
20500             End Get
20501             Set
20502                 Me(Me.tableStaff.MobileNoColumn) = value
20503             End Set
20504         End Property
20505         
20506         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20507          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20508         Public Property Email() As String
20509             Get
20510                 Try
20511                     Return CType(Me(Me.tableStaff.EmailColumn),String)
20512                 Catch e As Global.System.InvalidCastException
20513                     Throw New Global.System.Data.StrongTypingException("The value for column 'Email' in table 'Staff' is DBNull.", e)
20514                 End Try
20515             End Get
20516             Set
20517                 Me(Me.tableStaff.EmailColumn) = value
20518             End Set
20519         End Property
20520         
20521         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20522          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20523         Public Property Photo() As Byte()
20524             Get
20525                 Return CType(Me(Me.tableStaff.PhotoColumn),Byte())
20526             End Get
20527             Set
20528                 Me(Me.tableStaff.PhotoColumn) = value
20529             End Set
20530         End Property
20531         
20532         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20533          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20534         Public Property ClassType() As String
20535             Get
20536                 Return CType(Me(Me.tableStaff.ClassTypeColumn),String)
20537             End Get
20538             Set
20539                 Me(Me.tableStaff.ClassTypeColumn) = value
20540             End Set
20541         End Property
20542         
20543         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20544          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20545         Public Property SchoolID() As Integer
20546             Get
20547                 Return CType(Me(Me.tableStaff.SchoolIDColumn),Integer)
20548             End Get
20549             Set
20550                 Me(Me.tableStaff.SchoolIDColumn) = value
20551             End Set
20552         End Property
20553         
20554         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20555          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20556         Public Property AccountName() As String
20557             Get
20558                 Return CType(Me(Me.tableStaff.AccountNameColumn),String)
20559             End Get
20560             Set
20561                 Me(Me.tableStaff.AccountNameColumn) = value
20562             End Set
20563         End Property
20564         
20565         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20566          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20567         Public Property AccountNumber() As String
20568             Get
20569                 Return CType(Me(Me.tableStaff.AccountNumberColumn),String)
20570             End Get
20571             Set
20572                 Me(Me.tableStaff.AccountNumberColumn) = value
20573             End Set
20574         End Property
20575         
20576         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20577          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20578         Public Property Bank() As String
20579             Get
20580                 Return CType(Me(Me.tableStaff.BankColumn),String)
20581             End Get
20582             Set
20583                 Me(Me.tableStaff.BankColumn) = value
20584             End Set
20585         End Property
20586         
20587         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20588          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20589         Public Property Branch() As String
20590             Get
20591                 Return CType(Me(Me.tableStaff.BranchColumn),String)
20592             End Get
20593             Set
20594                 Me(Me.tableStaff.BranchColumn) = value
20595             End Set
20596         End Property
20597         
20598         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20599          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20600         Public Property IFSCcode() As String
20601             Get
20602                 Try
20603                     Return CType(Me(Me.tableStaff.IFSCcodeColumn),String)
20604                 Catch e As Global.System.InvalidCastException
20605                     Throw New Global.System.Data.StrongTypingException("The value for column 'IFSCcode' in table 'Staff' is DBNull.", e)
20606                 End Try
20607             End Get
20608             Set
20609                 Me(Me.tableStaff.IFSCcodeColumn) = value
20610             End Set
20611         End Property
20612         
20613         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20614          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20615         Public Property Status() As String
20616             Get
20617                 Return CType(Me(Me.tableStaff.StatusColumn),String)
20618             End Get
20619             Set
20620                 Me(Me.tableStaff.StatusColumn) = value
20621             End Set
20622         End Property
20623         
20624         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20625          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20626         Public Property Salary() As Decimal
20627             Get
20628                 Return CType(Me(Me.tableStaff.SalaryColumn),Decimal)
20629             End Get
20630             Set
20631                 Me(Me.tableStaff.SalaryColumn) = value
20632             End Set
20633         End Property
20634         
20635         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20636          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20637         Public Property ClassTypeRow() As ClassTypeRow
20638             Get
20639                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_Staff_ClassType")),ClassTypeRow)
20640             End Get
20641             Set
20642                 Me.SetParentRow(value, Me.Table.ParentRelations("FK_Staff_ClassType"))
20643             End Set
20644         End Property
20645         
20646         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20647          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20648         Public Property DesignationRow() As DesignationRow
20649             Get
20650                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_Staff_Designation")),DesignationRow)
20651             End Get
20652             Set
20653                 Me.SetParentRow(value, Me.Table.ParentRelations("FK_Staff_Designation"))
20654             End Set
20655         End Property
20656         
20657         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20658          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20659         Public Property SchoolInfoRow() As SchoolInfoRow
20660             Get
20661                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_Staff_SchoolInfo")),SchoolInfoRow)
20662             End Get
20663             Set
20664                 Me.SetParentRow(value, Me.Table.ParentRelations("FK_Staff_SchoolInfo"))
20665             End Set
20666         End Property
20667         
20668         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20669          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20670         Public Function IsPhoneNoNull() As Boolean
20671             Return Me.IsNull(Me.tableStaff.PhoneNoColumn)
20672         End Function
20673         
20674         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20675          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20676         Public Sub SetPhoneNoNull()
20677             Me(Me.tableStaff.PhoneNoColumn) = Global.System.Convert.DBNull
20678         End Sub
20679         
20680         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20681          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20682         Public Function IsEmailNull() As Boolean
20683             Return Me.IsNull(Me.tableStaff.EmailColumn)
20684         End Function
20685         
20686         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20687          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20688         Public Sub SetEmailNull()
20689             Me(Me.tableStaff.EmailColumn) = Global.System.Convert.DBNull
20690         End Sub
20691         
20692         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20693          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20694         Public Function IsIFSCcodeNull() As Boolean
20695             Return Me.IsNull(Me.tableStaff.IFSCcodeColumn)
20696         End Function
20697         
20698         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20699          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20700         Public Sub SetIFSCcodeNull()
20701             Me(Me.tableStaff.IFSCcodeColumn) = Global.System.Convert.DBNull
20702         End Sub
20703         
20704         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20705          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20706         Public Function GetAdvanceEntryRows() As AdvanceEntryRow()
20707             If (Me.Table.ChildRelations("FK_AdvanceEntry_Staff") Is Nothing) Then
20708                 Return New AdvanceEntryRow(-1) {}
20709             Else
20710                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_AdvanceEntry_Staff")),AdvanceEntryRow())
20711             End If
20712         End Function
20713         
20714         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20715          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20716         Public Function GetBusCardHolder_StaffRows() As BusCardHolder_StaffRow()
20717             If (Me.Table.ChildRelations("FK_BusCardHolder_Staff_Staff") Is Nothing) Then
20718                 Return New BusCardHolder_StaffRow(-1) {}
20719             Else
20720                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_BusCardHolder_Staff_Staff")),BusCardHolder_StaffRow())
20721             End If
20722         End Function
20723         
20724         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20725          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20726         Public Function GetCards_StaffRows() As Cards_StaffRow()
20727             If (Me.Table.ChildRelations("FK_Cards_Staff_Staff") Is Nothing) Then
20728                 Return New Cards_StaffRow(-1) {}
20729             Else
20730                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_Cards_Staff_Staff")),Cards_StaffRow())
20731             End If
20732         End Function
20733         
20734         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20735          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20736         Public Function GetDiscount_StaffRows() As Discount_StaffRow()
20737             If (Me.Table.ChildRelations("FK_Discount_Staff_Staff") Is Nothing) Then
20738                 Return New Discount_StaffRow(-1) {}
20739             Else
20740                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_Discount_Staff_Staff")),Discount_StaffRow())
20741             End If
20742         End Function
20743         
20744         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20745          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20746         Public Function GetNoDues_StaffRows() As NoDues_StaffRow()
20747             If (Me.Table.ChildRelations("FK_NoDues_Staff_Staff") Is Nothing) Then
20748                 Return New NoDues_StaffRow(-1) {}
20749             Else
20750                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_NoDues_Staff_Staff")),NoDues_StaffRow())
20751             End If
20752         End Function
20753         
20754         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20755          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20756         Public Function GetStaff_DepartmentRows() As Staff_DepartmentRow()
20757             If (Me.Table.ChildRelations("FK_Staff_Department_Staff") Is Nothing) Then
20758                 Return New Staff_DepartmentRow(-1) {}
20759             Else
20760                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_Staff_Department_Staff")),Staff_DepartmentRow())
20761             End If
20762         End Function
20763         
20764         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20765          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20766         Public Function GetStaffAttendanceRows() As StaffAttendanceRow()
20767             If (Me.Table.ChildRelations("FK_StaffAttendance_Staff") Is Nothing) Then
20768                 Return New StaffAttendanceRow(-1) {}
20769             Else
20770                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_StaffAttendance_Staff")),StaffAttendanceRow())
20771             End If
20772         End Function
20773         
20774         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20775          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20776         Public Function GetStaffPaymentRows() As StaffPaymentRow()
20777             If (Me.Table.ChildRelations("FK_StaffPayment_Staff") Is Nothing) Then
20778                 Return New StaffPaymentRow(-1) {}
20779             Else
20780                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_StaffPayment_Staff")),StaffPaymentRow())
20781             End If
20782         End Function
20783     End Class
20784     
20785     '''<summary>
20786     '''Represents strongly named DataRow class.
20787     '''</summary>
20788     Partial Public Class Staff_DepartmentRow
20789         Inherits Global.System.Data.DataRow
20790         
20791         Private tableStaff_Department As Staff_DepartmentDataTable
20792         
20793         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20794          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20795         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
20796             MyBase.New(rb)
20797             Me.tableStaff_Department = CType(Me.Table,Staff_DepartmentDataTable)
20798         End Sub
20799         
20800         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20801          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20802         Public Property SD_ID() As Integer
20803             Get
20804                 Return CType(Me(Me.tableStaff_Department.SD_IDColumn),Integer)
20805             End Get
20806             Set
20807                 Me(Me.tableStaff_Department.SD_IDColumn) = value
20808             End Set
20809         End Property
20810         
20811         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20812          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20813         Public Property DepartmentID() As Integer
20814             Get
20815                 Return CType(Me(Me.tableStaff_Department.DepartmentIDColumn),Integer)
20816             End Get
20817             Set
20818                 Me(Me.tableStaff_Department.DepartmentIDColumn) = value
20819             End Set
20820         End Property
20821         
20822         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20823          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20824         Public Property StaffID() As Integer
20825             Get
20826                 Return CType(Me(Me.tableStaff_Department.StaffIDColumn),Integer)
20827             End Get
20828             Set
20829                 Me(Me.tableStaff_Department.StaffIDColumn) = value
20830             End Set
20831         End Property
20832         
20833         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20834          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20835         Public Property DepartmentRow() As DepartmentRow
20836             Get
20837                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_Staff_Department_Department")),DepartmentRow)
20838             End Get
20839             Set
20840                 Me.SetParentRow(value, Me.Table.ParentRelations("FK_Staff_Department_Department"))
20841             End Set
20842         End Property
20843         
20844         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20845          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20846         Public Property StaffRow() As StaffRow
20847             Get
20848                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_Staff_Department_Staff")),StaffRow)
20849             End Get
20850             Set
20851                 Me.SetParentRow(value, Me.Table.ParentRelations("FK_Staff_Department_Staff"))
20852             End Set
20853         End Property
20854     End Class
20855     
20856     '''<summary>
20857     '''Represents strongly named DataRow class.
20858     '''</summary>
20859     Partial Public Class StaffAttendanceRow
20860         Inherits Global.System.Data.DataRow
20861         
20862         Private tableStaffAttendance As StaffAttendanceDataTable
20863         
20864         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20865          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20866         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
20867             MyBase.New(rb)
20868             Me.tableStaffAttendance = CType(Me.Table,StaffAttendanceDataTable)
20869         End Sub
20870         
20871         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20872          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20873         Public Property Id() As Integer
20874             Get
20875                 Return CType(Me(Me.tableStaffAttendance.IdColumn),Integer)
20876             End Get
20877             Set
20878                 Me(Me.tableStaffAttendance.IdColumn) = value
20879             End Set
20880         End Property
20881         
20882         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20883          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20884         Public Property WorkingDate() As Date
20885             Get
20886                 Return CType(Me(Me.tableStaffAttendance.WorkingDateColumn),Date)
20887             End Get
20888             Set
20889                 Me(Me.tableStaffAttendance.WorkingDateColumn) = value
20890             End Set
20891         End Property
20892         
20893         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20894          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20895         Public Property StaffID() As Integer
20896             Get
20897                 Return CType(Me(Me.tableStaffAttendance.StaffIDColumn),Integer)
20898             End Get
20899             Set
20900                 Me(Me.tableStaffAttendance.StaffIDColumn) = value
20901             End Set
20902         End Property
20903         
20904         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20905          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20906         Public Property Status() As String
20907             Get
20908                 Return CType(Me(Me.tableStaffAttendance.StatusColumn),String)
20909             End Get
20910             Set
20911                 Me(Me.tableStaffAttendance.StatusColumn) = value
20912             End Set
20913         End Property
20914         
20915         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20916          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20917         Public Property InTime() As String
20918             Get
20919                 Return CType(Me(Me.tableStaffAttendance.InTimeColumn),String)
20920             End Get
20921             Set
20922                 Me(Me.tableStaffAttendance.InTimeColumn) = value
20923             End Set
20924         End Property
20925         
20926         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20927          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20928         Public Property OutTime() As String
20929             Get
20930                 Return CType(Me(Me.tableStaffAttendance.OutTimeColumn),String)
20931             End Get
20932             Set
20933                 Me(Me.tableStaffAttendance.OutTimeColumn) = value
20934             End Set
20935         End Property
20936         
20937         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20938          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20939         Public Property StaffRow() As StaffRow
20940             Get
20941                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_StaffAttendance_Staff")),StaffRow)
20942             End Get
20943             Set
20944                 Me.SetParentRow(value, Me.Table.ParentRelations("FK_StaffAttendance_Staff"))
20945             End Set
20946         End Property
20947     End Class
20948     
20949     '''<summary>
20950     '''Represents strongly named DataRow class.
20951     '''</summary>
20952     Partial Public Class StaffPaymentRow
20953         Inherits Global.System.Data.DataRow
20954         
20955         Private tableStaffPayment As StaffPaymentDataTable
20956         
20957         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20958          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20959         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
20960             MyBase.New(rb)
20961             Me.tableStaffPayment = CType(Me.Table,StaffPaymentDataTable)
20962         End Sub
20963         
20964         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20965          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20966         Public Property Id() As Integer
20967             Get
20968                 Return CType(Me(Me.tableStaffPayment.IdColumn),Integer)
20969             End Get
20970             Set
20971                 Me(Me.tableStaffPayment.IdColumn) = value
20972             End Set
20973         End Property
20974         
20975         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20976          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20977         Public Property PaymentID() As String
20978             Get
20979                 Return CType(Me(Me.tableStaffPayment.PaymentIDColumn),String)
20980             End Get
20981             Set
20982                 Me(Me.tableStaffPayment.PaymentIDColumn) = value
20983             End Set
20984         End Property
20985         
20986         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20987          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20988         Public Property DateFrom() As Date
20989             Get
20990                 Return CType(Me(Me.tableStaffPayment.DateFromColumn),Date)
20991             End Get
20992             Set
20993                 Me(Me.tableStaffPayment.DateFromColumn) = value
20994             End Set
20995         End Property
20996         
20997         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20998          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20999         Public Property DateTo() As Date
21000             Get
21001                 Return CType(Me(Me.tableStaffPayment.DateToColumn),Date)
21002             End Get
21003             Set
21004                 Me(Me.tableStaffPayment.DateToColumn) = value
21005             End Set
21006         End Property
21007         
21008         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21009          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21010         Public Property StaffID() As Integer
21011             Get
21012                 Return CType(Me(Me.tableStaffPayment.StaffIDColumn),Integer)
21013             End Get
21014             Set
21015                 Me(Me.tableStaffPayment.StaffIDColumn) = value
21016             End Set
21017         End Property
21018         
21019         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21020          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21021         Public Property PresentDays() As Integer
21022             Get
21023                 Return CType(Me(Me.tableStaffPayment.PresentDaysColumn),Integer)
21024             End Get
21025             Set
21026                 Me(Me.tableStaffPayment.PresentDaysColumn) = value
21027             End Set
21028         End Property
21029         
21030         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21031          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21032         Public Property Salary() As Decimal
21033             Get
21034                 Return CType(Me(Me.tableStaffPayment.SalaryColumn),Decimal)
21035             End Get
21036             Set
21037                 Me(Me.tableStaffPayment.SalaryColumn) = value
21038             End Set
21039         End Property
21040         
21041         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21042          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21043         Public Property Advance() As Decimal
21044             Get
21045                 Return CType(Me(Me.tableStaffPayment.AdvanceColumn),Decimal)
21046             End Get
21047             Set
21048                 Me(Me.tableStaffPayment.AdvanceColumn) = value
21049             End Set
21050         End Property
21051         
21052         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21053          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21054         Public Property Deduction() As Decimal
21055             Get
21056                 Return CType(Me(Me.tableStaffPayment.DeductionColumn),Decimal)
21057             End Get
21058             Set
21059                 Me(Me.tableStaffPayment.DeductionColumn) = value
21060             End Set
21061         End Property
21062         
21063         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21064          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21065         Public Property PaymentDate() As Date
21066             Get
21067                 Return CType(Me(Me.tableStaffPayment.PaymentDateColumn),Date)
21068             End Get
21069             Set
21070                 Me(Me.tableStaffPayment.PaymentDateColumn) = value
21071             End Set
21072         End Property
21073         
21074         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21075          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21076         Public Property ModeOfPayment() As String
21077             Get
21078                 Return CType(Me(Me.tableStaffPayment.ModeOfPaymentColumn),String)
21079             End Get
21080             Set
21081                 Me(Me.tableStaffPayment.ModeOfPaymentColumn) = value
21082             End Set
21083         End Property
21084         
21085         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21086          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21087         Public Property PaymentModeDetails() As String
21088             Get
21089                 Try
21090                     Return CType(Me(Me.tableStaffPayment.PaymentModeDetailsColumn),String)
21091                 Catch e As Global.System.InvalidCastException
21092                     Throw New Global.System.Data.StrongTypingException("The value for column 'PaymentModeDetails' in table 'StaffPayment' is DBNull.", e)
21093                 End Try
21094             End Get
21095             Set
21096                 Me(Me.tableStaffPayment.PaymentModeDetailsColumn) = value
21097             End Set
21098         End Property
21099         
21100         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21101          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21102         Public Property NetPay() As Decimal
21103             Get
21104                 Return CType(Me(Me.tableStaffPayment.NetPayColumn),Decimal)
21105             End Get
21106             Set
21107                 Me(Me.tableStaffPayment.NetPayColumn) = value
21108             End Set
21109         End Property
21110         
21111         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21112          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21113         Public Property StaffRow() As StaffRow
21114             Get
21115                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_StaffPayment_Staff")),StaffRow)
21116             End Get
21117             Set
21118                 Me.SetParentRow(value, Me.Table.ParentRelations("FK_StaffPayment_Staff"))
21119             End Set
21120         End Property
21121         
21122         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21123          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21124         Public Function IsPaymentModeDetailsNull() As Boolean
21125             Return Me.IsNull(Me.tableStaffPayment.PaymentModeDetailsColumn)
21126         End Function
21127         
21128         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21129          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21130         Public Sub SetPaymentModeDetailsNull()
21131             Me(Me.tableStaffPayment.PaymentModeDetailsColumn) = Global.System.Convert.DBNull
21132         End Sub
21133     End Class
21134     
21135     '''<summary>
21136     '''Represents strongly named DataRow class.
21137     '''</summary>
21138     Partial Public Class StudentRow
21139         Inherits Global.System.Data.DataRow
21140         
21141         Private tableStudent As StudentDataTable
21142         
21143         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21144          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21145         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
21146             MyBase.New(rb)
21147             Me.tableStudent = CType(Me.Table,StudentDataTable)
21148         End Sub
21149         
21150         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21151          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21152         Public Property AdmissionNo() As String
21153             Get
21154                 Return CType(Me(Me.tableStudent.AdmissionNoColumn),String)
21155             End Get
21156             Set
21157                 Me(Me.tableStudent.AdmissionNoColumn) = value
21158             End Set
21159         End Property
21160         
21161         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21162          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21163         Public Property EnrollmentNo() As String
21164             Get
21165                 Try
21166                     Return CType(Me(Me.tableStudent.EnrollmentNoColumn),String)
21167                 Catch e As Global.System.InvalidCastException
21168                     Throw New Global.System.Data.StrongTypingException("The value for column 'EnrollmentNo' in table 'Student' is DBNull.", e)
21169                 End Try
21170             End Get
21171             Set
21172                 Me(Me.tableStudent.EnrollmentNoColumn) = value
21173             End Set
21174         End Property
21175         
21176         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21177          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21178         Public Property GRNo() As String
21179             Get
21180                 Try
21181                     Return CType(Me(Me.tableStudent.GRNoColumn),String)
21182                 Catch e As Global.System.InvalidCastException
21183                     Throw New Global.System.Data.StrongTypingException("The value for column 'GRNo' in table 'Student' is DBNull.", e)
21184                 End Try
21185             End Get
21186             Set
21187                 Me(Me.tableStudent.GRNoColumn) = value
21188             End Set
21189         End Property
21190         
21191         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21192          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21193         Public Property UID() As String
21194             Get
21195                 Try
21196                     Return CType(Me(Me.tableStudent.UIDColumn),String)
21197                 Catch e As Global.System.InvalidCastException
21198                     Throw New Global.System.Data.StrongTypingException("The value for column 'UID' in table 'Student' is DBNull.", e)
21199                 End Try
21200             End Get
21201             Set
21202                 Me(Me.tableStudent.UIDColumn) = value
21203             End Set
21204         End Property
21205         
21206         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21207          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21208         Public Property StudentName() As String
21209             Get
21210                 Return CType(Me(Me.tableStudent.StudentNameColumn),String)
21211             End Get
21212             Set
21213                 Me(Me.tableStudent.StudentNameColumn) = value
21214             End Set
21215         End Property
21216         
21217         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21218          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21219         Public Property FatherName() As String
21220             Get
21221                 Return CType(Me(Me.tableStudent.FatherNameColumn),String)
21222             End Get
21223             Set
21224                 Me(Me.tableStudent.FatherNameColumn) = value
21225             End Set
21226         End Property
21227         
21228         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21229          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21230         Public Property MotherName() As String
21231             Get
21232                 Return CType(Me(Me.tableStudent.MotherNameColumn),String)
21233             End Get
21234             Set
21235                 Me(Me.tableStudent.MotherNameColumn) = value
21236             End Set
21237         End Property
21238         
21239         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21240          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21241         Public Property FatherCN() As String
21242             Get
21243                 Try
21244                     Return CType(Me(Me.tableStudent.FatherCNColumn),String)
21245                 Catch e As Global.System.InvalidCastException
21246                     Throw New Global.System.Data.StrongTypingException("The value for column 'FatherCN' in table 'Student' is DBNull.", e)
21247                 End Try
21248             End Get
21249             Set
21250                 Me(Me.tableStudent.FatherCNColumn) = value
21251             End Set
21252         End Property
21253         
21254         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21255          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21256         Public Property PermanentAddress() As String
21257             Get
21258                 Return CType(Me(Me.tableStudent.PermanentAddressColumn),String)
21259             End Get
21260             Set
21261                 Me(Me.tableStudent.PermanentAddressColumn) = value
21262             End Set
21263         End Property
21264         
21265         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21266          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21267         Public Property TemporaryAddress() As String
21268             Get
21269                 Return CType(Me(Me.tableStudent.TemporaryAddressColumn),String)
21270             End Get
21271             Set
21272                 Me(Me.tableStudent.TemporaryAddressColumn) = value
21273             End Set
21274         End Property
21275         
21276         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21277          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21278         Public Property ContactNo() As String
21279             Get
21280                 Return CType(Me(Me.tableStudent.ContactNoColumn),String)
21281             End Get
21282             Set
21283                 Me(Me.tableStudent.ContactNoColumn) = value
21284             End Set
21285         End Property
21286         
21287         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21288          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21289         Public Property EmailID() As String
21290             Get
21291                 Try
21292                     Return CType(Me(Me.tableStudent.EmailIDColumn),String)
21293                 Catch e As Global.System.InvalidCastException
21294                     Throw New Global.System.Data.StrongTypingException("The value for column 'EmailID' in table 'Student' is DBNull.", e)
21295                 End Try
21296             End Get
21297             Set
21298                 Me(Me.tableStudent.EmailIDColumn) = value
21299             End Set
21300         End Property
21301         
21302         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21303          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21304         Public Property DOB() As Date
21305             Get
21306                 Return CType(Me(Me.tableStudent.DOBColumn),Date)
21307             End Get
21308             Set
21309                 Me(Me.tableStudent.DOBColumn) = value
21310             End Set
21311         End Property
21312         
21313         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21314          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21315         Public Property Gender() As String
21316             Get
21317                 Return CType(Me(Me.tableStudent.GenderColumn),String)
21318             End Get
21319             Set
21320                 Me(Me.tableStudent.GenderColumn) = value
21321             End Set
21322         End Property
21323         
21324         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21325          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21326         Public Property AdmissionDate() As Date
21327             Get
21328                 Return CType(Me(Me.tableStudent.AdmissionDateColumn),Date)
21329             End Get
21330             Set
21331                 Me(Me.tableStudent.AdmissionDateColumn) = value
21332             End Set
21333         End Property
21334         
21335         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21336          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21337         Public Property Session() As String
21338             Get
21339                 Return CType(Me(Me.tableStudent.SessionColumn),String)
21340             End Get
21341             Set
21342                 Me(Me.tableStudent.SessionColumn) = value
21343             End Set
21344         End Property
21345         
21346         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21347          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21348         Public Property Caste() As String
21349             Get
21350                 Return CType(Me(Me.tableStudent.CasteColumn),String)
21351             End Get
21352             Set
21353                 Me(Me.tableStudent.CasteColumn) = value
21354             End Set
21355         End Property
21356         
21357         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21358          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21359         Public Property Religion() As String
21360             Get
21361                 Return CType(Me(Me.tableStudent.ReligionColumn),String)
21362             End Get
21363             Set
21364                 Me(Me.tableStudent.ReligionColumn) = value
21365             End Set
21366         End Property
21367         
21368         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21369          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21370         Public Property SectionID() As Integer
21371             Get
21372                 Return CType(Me(Me.tableStudent.SectionIDColumn),Integer)
21373             End Get
21374             Set
21375                 Me(Me.tableStudent.SectionIDColumn) = value
21376             End Set
21377         End Property
21378         
21379         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21380          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21381         Public Property Photo() As Byte()
21382             Get
21383                 Return CType(Me(Me.tableStudent.PhotoColumn),Byte())
21384             End Get
21385             Set
21386                 Me(Me.tableStudent.PhotoColumn) = value
21387             End Set
21388         End Property
21389         
21390         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21391          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21392         Public Property Nationality() As String
21393             Get
21394                 Try
21395                     Return CType(Me(Me.tableStudent.NationalityColumn),String)
21396                 Catch e As Global.System.InvalidCastException
21397                     Throw New Global.System.Data.StrongTypingException("The value for column 'Nationality' in table 'Student' is DBNull.", e)
21398                 End Try
21399             End Get
21400             Set
21401                 Me(Me.tableStudent.NationalityColumn) = value
21402             End Set
21403         End Property
21404         
21405         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21406          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21407         Public Property SchoolID() As Integer
21408             Get
21409                 Return CType(Me(Me.tableStudent.SchoolIDColumn),Integer)
21410             End Get
21411             Set
21412                 Me(Me.tableStudent.SchoolIDColumn) = value
21413             End Set
21414         End Property
21415         
21416         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21417          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21418         Public Property LastSchoolAttended() As String
21419             Get
21420                 Try
21421                     Return CType(Me(Me.tableStudent.LastSchoolAttendedColumn),String)
21422                 Catch e As Global.System.InvalidCastException
21423                     Throw New Global.System.Data.StrongTypingException("The value for column 'LastSchoolAttended' in table 'Student' is DBNull.", e)
21424                 End Try
21425             End Get
21426             Set
21427                 Me(Me.tableStudent.LastSchoolAttendedColumn) = value
21428             End Set
21429         End Property
21430         
21431         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21432          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21433         Public Property Result() As String
21434             Get
21435                 Try
21436                     Return CType(Me(Me.tableStudent.ResultColumn),String)
21437                 Catch e As Global.System.InvalidCastException
21438                     Throw New Global.System.Data.StrongTypingException("The value for column 'Result' in table 'Student' is DBNull.", e)
21439                 End Try
21440             End Get
21441             Set
21442                 Me(Me.tableStudent.ResultColumn) = value
21443             End Set
21444         End Property
21445         
21446         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21447          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21448         Public Property PassPercentage() As String
21449             Get
21450                 Try
21451                     Return CType(Me(Me.tableStudent.PassPercentageColumn),String)
21452                 Catch e As Global.System.InvalidCastException
21453                     Throw New Global.System.Data.StrongTypingException("The value for column 'PassPercentage' in table 'Student' is DBNull.", e)
21454                 End Try
21455             End Get
21456             Set
21457                 Me(Me.tableStudent.PassPercentageColumn) = value
21458             End Set
21459         End Property
21460         
21461         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21462          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21463         Public Property Status() As String
21464             Get
21465                 Return CType(Me(Me.tableStudent.StatusColumn),String)
21466             End Get
21467             Set
21468                 Me(Me.tableStudent.StatusColumn) = value
21469             End Set
21470         End Property
21471         
21472         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21473          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21474         Public Property SchoolInfoRow() As SchoolInfoRow
21475             Get
21476                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_Student_SchoolInfo")),SchoolInfoRow)
21477             End Get
21478             Set
21479                 Me.SetParentRow(value, Me.Table.ParentRelations("FK_Student_SchoolInfo"))
21480             End Set
21481         End Property
21482         
21483         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21484          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21485         Public Property SectionRow() As SectionRow
21486             Get
21487                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_Student_Section")),SectionRow)
21488             End Get
21489             Set
21490                 Me.SetParentRow(value, Me.Table.ParentRelations("FK_Student_Section"))
21491             End Set
21492         End Property
21493         
21494         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21495          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21496         Public Property Session_MasterRow() As Session_MasterRow
21497             Get
21498                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_Student_Session_Master")),Session_MasterRow)
21499             End Get
21500             Set
21501                 Me.SetParentRow(value, Me.Table.ParentRelations("FK_Student_Session_Master"))
21502             End Set
21503         End Property
21504         
21505         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21506          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21507         Public Function IsEnrollmentNoNull() As Boolean
21508             Return Me.IsNull(Me.tableStudent.EnrollmentNoColumn)
21509         End Function
21510         
21511         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21512          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21513         Public Sub SetEnrollmentNoNull()
21514             Me(Me.tableStudent.EnrollmentNoColumn) = Global.System.Convert.DBNull
21515         End Sub
21516         
21517         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21518          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21519         Public Function IsGRNoNull() As Boolean
21520             Return Me.IsNull(Me.tableStudent.GRNoColumn)
21521         End Function
21522         
21523         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21524          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21525         Public Sub SetGRNoNull()
21526             Me(Me.tableStudent.GRNoColumn) = Global.System.Convert.DBNull
21527         End Sub
21528         
21529         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21530          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21531         Public Function IsUIDNull() As Boolean
21532             Return Me.IsNull(Me.tableStudent.UIDColumn)
21533         End Function
21534         
21535         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21536          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21537         Public Sub SetUIDNull()
21538             Me(Me.tableStudent.UIDColumn) = Global.System.Convert.DBNull
21539         End Sub
21540         
21541         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21542          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21543         Public Function IsFatherCNNull() As Boolean
21544             Return Me.IsNull(Me.tableStudent.FatherCNColumn)
21545         End Function
21546         
21547         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21548          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21549         Public Sub SetFatherCNNull()
21550             Me(Me.tableStudent.FatherCNColumn) = Global.System.Convert.DBNull
21551         End Sub
21552         
21553         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21554          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21555         Public Function IsEmailIDNull() As Boolean
21556             Return Me.IsNull(Me.tableStudent.EmailIDColumn)
21557         End Function
21558         
21559         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21560          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21561         Public Sub SetEmailIDNull()
21562             Me(Me.tableStudent.EmailIDColumn) = Global.System.Convert.DBNull
21563         End Sub
21564         
21565         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21566          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21567         Public Function IsNationalityNull() As Boolean
21568             Return Me.IsNull(Me.tableStudent.NationalityColumn)
21569         End Function
21570         
21571         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21572          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21573         Public Sub SetNationalityNull()
21574             Me(Me.tableStudent.NationalityColumn) = Global.System.Convert.DBNull
21575         End Sub
21576         
21577         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21578          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21579         Public Function IsLastSchoolAttendedNull() As Boolean
21580             Return Me.IsNull(Me.tableStudent.LastSchoolAttendedColumn)
21581         End Function
21582         
21583         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21584          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21585         Public Sub SetLastSchoolAttendedNull()
21586             Me(Me.tableStudent.LastSchoolAttendedColumn) = Global.System.Convert.DBNull
21587         End Sub
21588         
21589         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21590          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21591         Public Function IsResultNull() As Boolean
21592             Return Me.IsNull(Me.tableStudent.ResultColumn)
21593         End Function
21594         
21595         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21596          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21597         Public Sub SetResultNull()
21598             Me(Me.tableStudent.ResultColumn) = Global.System.Convert.DBNull
21599         End Sub
21600         
21601         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21602          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21603         Public Function IsPassPercentageNull() As Boolean
21604             Return Me.IsNull(Me.tableStudent.PassPercentageColumn)
21605         End Function
21606         
21607         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21608          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21609         Public Sub SetPassPercentageNull()
21610             Me(Me.tableStudent.PassPercentageColumn) = Global.System.Convert.DBNull
21611         End Sub
21612         
21613         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21614          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21615         Public Function GetBusCardHolder_StudentRows() As BusCardHolder_StudentRow()
21616             If (Me.Table.ChildRelations("FK_BusHolder_Student") Is Nothing) Then
21617                 Return New BusCardHolder_StudentRow(-1) {}
21618             Else
21619                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_BusHolder_Student")),BusCardHolder_StudentRow())
21620             End If
21621         End Function
21622         
21623         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21624          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21625         Public Function GetCards_StudentRows() As Cards_StudentRow()
21626             If (Me.Table.ChildRelations("FK_Cards_Student_Student") Is Nothing) Then
21627                 Return New Cards_StudentRow(-1) {}
21628             Else
21629                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_Cards_Student_Student")),Cards_StudentRow())
21630             End If
21631         End Function
21632         
21633         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21634          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21635         Public Function GetCourseFeePaymentRows() As CourseFeePaymentRow()
21636             If (Me.Table.ChildRelations("FK_CourseFeePayment_Student") Is Nothing) Then
21637                 Return New CourseFeePaymentRow(-1) {}
21638             Else
21639                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_CourseFeePayment_Student")),CourseFeePaymentRow())
21640             End If
21641         End Function
21642         
21643         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21644          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21645         Public Function GetDiscountRows() As DiscountRow()
21646             If (Me.Table.ChildRelations("FK_Discount_Student") Is Nothing) Then
21647                 Return New DiscountRow(-1) {}
21648             Else
21649                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_Discount_Student")),DiscountRow())
21650             End If
21651         End Function
21652         
21653         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21654          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21655         Public Function GetHostelerRows() As HostelerRow()
21656             If (Me.Table.ChildRelations("FK_Hosteler_Student") Is Nothing) Then
21657                 Return New HostelerRow(-1) {}
21658             Else
21659                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_Hosteler_Student")),HostelerRow())
21660             End If
21661         End Function
21662         
21663         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21664          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21665         Public Function GetNoDues_StudentRows() As NoDues_StudentRow()
21666             If (Me.Table.ChildRelations("FK_NoDues_Student_Student") Is Nothing) Then
21667                 Return New NoDues_StudentRow(-1) {}
21668             Else
21669                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_NoDues_Student_Student")),NoDues_StudentRow())
21670             End If
21671         End Function
21672         
21673         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21674          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21675         Public Function GetStudentDocSubmittedRows() As StudentDocSubmittedRow()
21676             If (Me.Table.ChildRelations("FK_StudentDocSubmitted_Student") Is Nothing) Then
21677                 Return New StudentDocSubmittedRow(-1) {}
21678             Else
21679                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_StudentDocSubmitted_Student")),StudentDocSubmittedRow())
21680             End If
21681         End Function
21682     End Class
21683     
21684     '''<summary>
21685     '''Represents strongly named DataRow class.
21686     '''</summary>
21687     Partial Public Class StudentDocSubmittedRow
21688         Inherits Global.System.Data.DataRow
21689         
21690         Private tableStudentDocSubmitted As StudentDocSubmittedDataTable
21691         
21692         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21693          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21694         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
21695             MyBase.New(rb)
21696             Me.tableStudentDocSubmitted = CType(Me.Table,StudentDocSubmittedDataTable)
21697         End Sub
21698         
21699         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21700          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21701         Public Property SDS_id() As Integer
21702             Get
21703                 Return CType(Me(Me.tableStudentDocSubmitted.SDS_idColumn),Integer)
21704             End Get
21705             Set
21706                 Me(Me.tableStudentDocSubmitted.SDS_idColumn) = value
21707             End Set
21708         End Property
21709         
21710         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21711          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21712         Public Property AdmissionNo() As String
21713             Get
21714                 Return CType(Me(Me.tableStudentDocSubmitted.AdmissionNoColumn),String)
21715             End Get
21716             Set
21717                 Me(Me.tableStudentDocSubmitted.AdmissionNoColumn) = value
21718             End Set
21719         End Property
21720         
21721         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21722          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21723         Public Property DocId() As Integer
21724             Get
21725                 Return CType(Me(Me.tableStudentDocSubmitted.DocIdColumn),Integer)
21726             End Get
21727             Set
21728                 Me(Me.tableStudentDocSubmitted.DocIdColumn) = value
21729             End Set
21730         End Property
21731         
21732         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21733          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21734         Public Property DocumentRow() As DocumentRow
21735             Get
21736                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_StudentDocSubmitted_Document")),DocumentRow)
21737             End Get
21738             Set
21739                 Me.SetParentRow(value, Me.Table.ParentRelations("FK_StudentDocSubmitted_Document"))
21740             End Set
21741         End Property
21742         
21743         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21744          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21745         Public Property StudentRow() As StudentRow
21746             Get
21747                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_StudentDocSubmitted_Student")),StudentRow)
21748             End Get
21749             Set
21750                 Me.SetParentRow(value, Me.Table.ParentRelations("FK_StudentDocSubmitted_Student"))
21751             End Set
21752         End Property
21753     End Class
21754     
21755     '''<summary>
21756     '''Represents strongly named DataRow class.
21757     '''</summary>
21758     Partial Public Class VoucherRow
21759         Inherits Global.System.Data.DataRow
21760         
21761         Private tableVoucher As VoucherDataTable
21762         
21763         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21764          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21765         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
21766             MyBase.New(rb)
21767             Me.tableVoucher = CType(Me.Table,VoucherDataTable)
21768         End Sub
21769         
21770         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21771          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21772         Public Property ID() As Integer
21773             Get
21774                 Return CType(Me(Me.tableVoucher.IDColumn),Integer)
21775             End Get
21776             Set
21777                 Me(Me.tableVoucher.IDColumn) = value
21778             End Set
21779         End Property
21780         
21781         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21782          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21783         Public Property VoucherNo() As String
21784             Get
21785                 Return CType(Me(Me.tableVoucher.VoucherNoColumn),String)
21786             End Get
21787             Set
21788                 Me(Me.tableVoucher.VoucherNoColumn) = value
21789             End Set
21790         End Property
21791         
21792         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21793          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21794         Public Property _Date() As Date
21795             Get
21796                 Return CType(Me(Me.tableVoucher.DateColumn),Date)
21797             End Get
21798             Set
21799                 Me(Me.tableVoucher.DateColumn) = value
21800             End Set
21801         End Property
21802         
21803         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21804          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21805         Public Property Name() As String
21806             Get
21807                 Return CType(Me(Me.tableVoucher.NameColumn),String)
21808             End Get
21809             Set
21810                 Me(Me.tableVoucher.NameColumn) = value
21811             End Set
21812         End Property
21813         
21814         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21815          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21816         Public Property Details() As String
21817             Get
21818                 Return CType(Me(Me.tableVoucher.DetailsColumn),String)
21819             End Get
21820             Set
21821                 Me(Me.tableVoucher.DetailsColumn) = value
21822             End Set
21823         End Property
21824         
21825         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21826          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21827         Public Property SchoolID() As Integer
21828             Get
21829                 Return CType(Me(Me.tableVoucher.SchoolIDColumn),Integer)
21830             End Get
21831             Set
21832                 Me(Me.tableVoucher.SchoolIDColumn) = value
21833             End Set
21834         End Property
21835         
21836         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21837          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21838         Public Property GrandTotal() As Decimal
21839             Get
21840                 Try
21841                     Return CType(Me(Me.tableVoucher.GrandTotalColumn),Decimal)
21842                 Catch e As Global.System.InvalidCastException
21843                     Throw New Global.System.Data.StrongTypingException("The value for column 'GrandTotal' in table 'Voucher' is DBNull.", e)
21844                 End Try
21845             End Get
21846             Set
21847                 Me(Me.tableVoucher.GrandTotalColumn) = value
21848             End Set
21849         End Property
21850         
21851         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21852          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21853         Public Property SchoolInfoRow() As SchoolInfoRow
21854             Get
21855                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_Voucher_SchoolInfo")),SchoolInfoRow)
21856             End Get
21857             Set
21858                 Me.SetParentRow(value, Me.Table.ParentRelations("FK_Voucher_SchoolInfo"))
21859             End Set
21860         End Property
21861         
21862         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21863          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21864         Public Function IsGrandTotalNull() As Boolean
21865             Return Me.IsNull(Me.tableVoucher.GrandTotalColumn)
21866         End Function
21867         
21868         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21869          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21870         Public Sub SetGrandTotalNull()
21871             Me(Me.tableVoucher.GrandTotalColumn) = Global.System.Convert.DBNull
21872         End Sub
21873         
21874         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21875          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21876         Public Function GetVoucher_OtherDetailsRows() As Voucher_OtherDetailsRow()
21877             If (Me.Table.ChildRelations("FK_Voucher_OtherDetails_Voucher") Is Nothing) Then
21878                 Return New Voucher_OtherDetailsRow(-1) {}
21879             Else
21880                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_Voucher_OtherDetails_Voucher")),Voucher_OtherDetailsRow())
21881             End If
21882         End Function
21883     End Class
21884     
21885     '''<summary>
21886     '''Represents strongly named DataRow class.
21887     '''</summary>
21888     Partial Public Class Voucher_OtherDetailsRow
21889         Inherits Global.System.Data.DataRow
21890         
21891         Private tableVoucher_OtherDetails As Voucher_OtherDetailsDataTable
21892         
21893         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21894          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21895         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
21896             MyBase.New(rb)
21897             Me.tableVoucher_OtherDetails = CType(Me.Table,Voucher_OtherDetailsDataTable)
21898         End Sub
21899         
21900         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21901          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21902         Public Property VD_ID() As Integer
21903             Get
21904                 Return CType(Me(Me.tableVoucher_OtherDetails.VD_IDColumn),Integer)
21905             End Get
21906             Set
21907                 Me(Me.tableVoucher_OtherDetails.VD_IDColumn) = value
21908             End Set
21909         End Property
21910         
21911         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21912          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21913         Public Property VoucherID() As Integer
21914             Get
21915                 Return CType(Me(Me.tableVoucher_OtherDetails.VoucherIDColumn),Integer)
21916             End Get
21917             Set
21918                 Me(Me.tableVoucher_OtherDetails.VoucherIDColumn) = value
21919             End Set
21920         End Property
21921         
21922         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21923          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21924         Public Property Particulars() As String
21925             Get
21926                 Return CType(Me(Me.tableVoucher_OtherDetails.ParticularsColumn),String)
21927             End Get
21928             Set
21929                 Me(Me.tableVoucher_OtherDetails.ParticularsColumn) = value
21930             End Set
21931         End Property
21932         
21933         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21934          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21935         Public Property Amount() As Decimal
21936             Get
21937                 Return CType(Me(Me.tableVoucher_OtherDetails.AmountColumn),Decimal)
21938             End Get
21939             Set
21940                 Me(Me.tableVoucher_OtherDetails.AmountColumn) = value
21941             End Set
21942         End Property
21943         
21944         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21945          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21946         Public Property Note() As String
21947             Get
21948                 Return CType(Me(Me.tableVoucher_OtherDetails.NoteColumn),String)
21949             End Get
21950             Set
21951                 Me(Me.tableVoucher_OtherDetails.NoteColumn) = value
21952             End Set
21953         End Property
21954         
21955         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21956          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21957         Public Property VoucherRow() As VoucherRow
21958             Get
21959                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_Voucher_OtherDetails_Voucher")),VoucherRow)
21960             End Get
21961             Set
21962                 Me.SetParentRow(value, Me.Table.ParentRelations("FK_Voucher_OtherDetails_Voucher"))
21963             End Set
21964         End Property
21965     End Class
21966     
21967     '''<summary>
21968     '''Row event argument class
21969     '''</summary>
21970     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21971     Public Class ActivationRowChangeEvent
21972         Inherits Global.System.EventArgs
21973         
21974         Private eventRow As ActivationRow
21975         
21976         Private eventAction As Global.System.Data.DataRowAction
21977         
21978         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21979          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21980         Public Sub New(ByVal row As ActivationRow, ByVal action As Global.System.Data.DataRowAction)
21981             MyBase.New
21982             Me.eventRow = row
21983             Me.eventAction = action
21984         End Sub
21985         
21986         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21987          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21988         Public ReadOnly Property Row() As ActivationRow
21989             Get
21990                 Return Me.eventRow
21991             End Get
21992         End Property
21993         
21994         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21995          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21996         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
21997             Get
21998                 Return Me.eventAction
21999             End Get
22000         End Property
22001     End Class
22002     
22003     '''<summary>
22004     '''Row event argument class
22005     '''</summary>
22006     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22007     Public Class AdvanceEntryRowChangeEvent
22008         Inherits Global.System.EventArgs
22009         
22010         Private eventRow As AdvanceEntryRow
22011         
22012         Private eventAction As Global.System.Data.DataRowAction
22013         
22014         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22015          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22016         Public Sub New(ByVal row As AdvanceEntryRow, ByVal action As Global.System.Data.DataRowAction)
22017             MyBase.New
22018             Me.eventRow = row
22019             Me.eventAction = action
22020         End Sub
22021         
22022         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22023          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22024         Public ReadOnly Property Row() As AdvanceEntryRow
22025             Get
22026                 Return Me.eventRow
22027             End Get
22028         End Property
22029         
22030         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22031          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22032         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
22033             Get
22034                 Return Me.eventAction
22035             End Get
22036         End Property
22037     End Class
22038     
22039     '''<summary>
22040     '''Row event argument class
22041     '''</summary>
22042     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22043     Public Class BusCardHolder_StaffRowChangeEvent
22044         Inherits Global.System.EventArgs
22045         
22046         Private eventRow As BusCardHolder_StaffRow
22047         
22048         Private eventAction As Global.System.Data.DataRowAction
22049         
22050         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22051          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22052         Public Sub New(ByVal row As BusCardHolder_StaffRow, ByVal action As Global.System.Data.DataRowAction)
22053             MyBase.New
22054             Me.eventRow = row
22055             Me.eventAction = action
22056         End Sub
22057         
22058         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22059          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22060         Public ReadOnly Property Row() As BusCardHolder_StaffRow
22061             Get
22062                 Return Me.eventRow
22063             End Get
22064         End Property
22065         
22066         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22067          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22068         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
22069             Get
22070                 Return Me.eventAction
22071             End Get
22072         End Property
22073     End Class
22074     
22075     '''<summary>
22076     '''Row event argument class
22077     '''</summary>
22078     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22079     Public Class BusCardHolder_StudentRowChangeEvent
22080         Inherits Global.System.EventArgs
22081         
22082         Private eventRow As BusCardHolder_StudentRow
22083         
22084         Private eventAction As Global.System.Data.DataRowAction
22085         
22086         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22087          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22088         Public Sub New(ByVal row As BusCardHolder_StudentRow, ByVal action As Global.System.Data.DataRowAction)
22089             MyBase.New
22090             Me.eventRow = row
22091             Me.eventAction = action
22092         End Sub
22093         
22094         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22095          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22096         Public ReadOnly Property Row() As BusCardHolder_StudentRow
22097             Get
22098                 Return Me.eventRow
22099             End Get
22100         End Property
22101         
22102         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22103          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22104         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
22105             Get
22106                 Return Me.eventAction
22107             End Get
22108         End Property
22109     End Class
22110     
22111     '''<summary>
22112     '''Row event argument class
22113     '''</summary>
22114     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22115     Public Class BusFeePayment_StaffRowChangeEvent
22116         Inherits Global.System.EventArgs
22117         
22118         Private eventRow As BusFeePayment_StaffRow
22119         
22120         Private eventAction As Global.System.Data.DataRowAction
22121         
22122         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22123          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22124         Public Sub New(ByVal row As BusFeePayment_StaffRow, ByVal action As Global.System.Data.DataRowAction)
22125             MyBase.New
22126             Me.eventRow = row
22127             Me.eventAction = action
22128         End Sub
22129         
22130         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22131          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22132         Public ReadOnly Property Row() As BusFeePayment_StaffRow
22133             Get
22134                 Return Me.eventRow
22135             End Get
22136         End Property
22137         
22138         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22139          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22140         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
22141             Get
22142                 Return Me.eventAction
22143             End Get
22144         End Property
22145     End Class
22146     
22147     '''<summary>
22148     '''Row event argument class
22149     '''</summary>
22150     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22151     Public Class BusFeePayment_StudentRowChangeEvent
22152         Inherits Global.System.EventArgs
22153         
22154         Private eventRow As BusFeePayment_StudentRow
22155         
22156         Private eventAction As Global.System.Data.DataRowAction
22157         
22158         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22159          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22160         Public Sub New(ByVal row As BusFeePayment_StudentRow, ByVal action As Global.System.Data.DataRowAction)
22161             MyBase.New
22162             Me.eventRow = row
22163             Me.eventAction = action
22164         End Sub
22165         
22166         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22167          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22168         Public ReadOnly Property Row() As BusFeePayment_StudentRow
22169             Get
22170                 Return Me.eventRow
22171             End Get
22172         End Property
22173         
22174         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22175          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22176         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
22177             Get
22178                 Return Me.eventAction
22179             End Get
22180         End Property
22181     End Class
22182     
22183     '''<summary>
22184     '''Row event argument class
22185     '''</summary>
22186     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22187     Public Class BusInfoRowChangeEvent
22188         Inherits Global.System.EventArgs
22189         
22190         Private eventRow As BusInfoRow
22191         
22192         Private eventAction As Global.System.Data.DataRowAction
22193         
22194         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22195          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22196         Public Sub New(ByVal row As BusInfoRow, ByVal action As Global.System.Data.DataRowAction)
22197             MyBase.New
22198             Me.eventRow = row
22199             Me.eventAction = action
22200         End Sub
22201         
22202         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22203          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22204         Public ReadOnly Property Row() As BusInfoRow
22205             Get
22206                 Return Me.eventRow
22207             End Get
22208         End Property
22209         
22210         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22211          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22212         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
22213             Get
22214                 Return Me.eventAction
22215             End Get
22216         End Property
22217     End Class
22218     
22219     '''<summary>
22220     '''Row event argument class
22221     '''</summary>
22222     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22223     Public Class Cards_StaffRowChangeEvent
22224         Inherits Global.System.EventArgs
22225         
22226         Private eventRow As Cards_StaffRow
22227         
22228         Private eventAction As Global.System.Data.DataRowAction
22229         
22230         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22231          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22232         Public Sub New(ByVal row As Cards_StaffRow, ByVal action As Global.System.Data.DataRowAction)
22233             MyBase.New
22234             Me.eventRow = row
22235             Me.eventAction = action
22236         End Sub
22237         
22238         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22239          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22240         Public ReadOnly Property Row() As Cards_StaffRow
22241             Get
22242                 Return Me.eventRow
22243             End Get
22244         End Property
22245         
22246         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22247          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22248         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
22249             Get
22250                 Return Me.eventAction
22251             End Get
22252         End Property
22253     End Class
22254     
22255     '''<summary>
22256     '''Row event argument class
22257     '''</summary>
22258     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22259     Public Class Cards_StudentRowChangeEvent
22260         Inherits Global.System.EventArgs
22261         
22262         Private eventRow As Cards_StudentRow
22263         
22264         Private eventAction As Global.System.Data.DataRowAction
22265         
22266         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22267          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22268         Public Sub New(ByVal row As Cards_StudentRow, ByVal action As Global.System.Data.DataRowAction)
22269             MyBase.New
22270             Me.eventRow = row
22271             Me.eventAction = action
22272         End Sub
22273         
22274         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22275          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22276         Public ReadOnly Property Row() As Cards_StudentRow
22277             Get
22278                 Return Me.eventRow
22279             End Get
22280         End Property
22281         
22282         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22283          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22284         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
22285             Get
22286                 Return Me.eventAction
22287             End Get
22288         End Property
22289     End Class
22290     
22291     '''<summary>
22292     '''Row event argument class
22293     '''</summary>
22294     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22295     Public Class ClassRowChangeEvent
22296         Inherits Global.System.EventArgs
22297         
22298         Private eventRow As ClassRow
22299         
22300         Private eventAction As Global.System.Data.DataRowAction
22301         
22302         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22303          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22304         Public Sub New(ByVal row As ClassRow, ByVal action As Global.System.Data.DataRowAction)
22305             MyBase.New
22306             Me.eventRow = row
22307             Me.eventAction = action
22308         End Sub
22309         
22310         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22311          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22312         Public ReadOnly Property Row() As ClassRow
22313             Get
22314                 Return Me.eventRow
22315             End Get
22316         End Property
22317         
22318         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22319          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22320         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
22321             Get
22322                 Return Me.eventAction
22323             End Get
22324         End Property
22325     End Class
22326     
22327     '''<summary>
22328     '''Row event argument class
22329     '''</summary>
22330     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22331     Public Class ClassTypeRowChangeEvent
22332         Inherits Global.System.EventArgs
22333         
22334         Private eventRow As ClassTypeRow
22335         
22336         Private eventAction As Global.System.Data.DataRowAction
22337         
22338         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22339          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22340         Public Sub New(ByVal row As ClassTypeRow, ByVal action As Global.System.Data.DataRowAction)
22341             MyBase.New
22342             Me.eventRow = row
22343             Me.eventAction = action
22344         End Sub
22345         
22346         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22347          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22348         Public ReadOnly Property Row() As ClassTypeRow
22349             Get
22350                 Return Me.eventRow
22351             End Get
22352         End Property
22353         
22354         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22355          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22356         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
22357             Get
22358                 Return Me.eventAction
22359             End Get
22360         End Property
22361     End Class
22362     
22363     '''<summary>
22364     '''Row event argument class
22365     '''</summary>
22366     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22367     Public Class CourseFeeRowChangeEvent
22368         Inherits Global.System.EventArgs
22369         
22370         Private eventRow As CourseFeeRow
22371         
22372         Private eventAction As Global.System.Data.DataRowAction
22373         
22374         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22375          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22376         Public Sub New(ByVal row As CourseFeeRow, ByVal action As Global.System.Data.DataRowAction)
22377             MyBase.New
22378             Me.eventRow = row
22379             Me.eventAction = action
22380         End Sub
22381         
22382         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22383          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22384         Public ReadOnly Property Row() As CourseFeeRow
22385             Get
22386                 Return Me.eventRow
22387             End Get
22388         End Property
22389         
22390         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22391          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22392         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
22393             Get
22394                 Return Me.eventAction
22395             End Get
22396         End Property
22397     End Class
22398     
22399     '''<summary>
22400     '''Row event argument class
22401     '''</summary>
22402     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22403     Public Class CourseFeePaymentRowChangeEvent
22404         Inherits Global.System.EventArgs
22405         
22406         Private eventRow As CourseFeePaymentRow
22407         
22408         Private eventAction As Global.System.Data.DataRowAction
22409         
22410         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22411          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22412         Public Sub New(ByVal row As CourseFeePaymentRow, ByVal action As Global.System.Data.DataRowAction)
22413             MyBase.New
22414             Me.eventRow = row
22415             Me.eventAction = action
22416         End Sub
22417         
22418         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22419          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22420         Public ReadOnly Property Row() As CourseFeePaymentRow
22421             Get
22422                 Return Me.eventRow
22423             End Get
22424         End Property
22425         
22426         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22427          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22428         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
22429             Get
22430                 Return Me.eventAction
22431             End Get
22432         End Property
22433     End Class
22434     
22435     '''<summary>
22436     '''Row event argument class
22437     '''</summary>
22438     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22439     Public Class CourseFeePayment_JoinRowChangeEvent
22440         Inherits Global.System.EventArgs
22441         
22442         Private eventRow As CourseFeePayment_JoinRow
22443         
22444         Private eventAction As Global.System.Data.DataRowAction
22445         
22446         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22447          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22448         Public Sub New(ByVal row As CourseFeePayment_JoinRow, ByVal action As Global.System.Data.DataRowAction)
22449             MyBase.New
22450             Me.eventRow = row
22451             Me.eventAction = action
22452         End Sub
22453         
22454         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22455          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22456         Public ReadOnly Property Row() As CourseFeePayment_JoinRow
22457             Get
22458                 Return Me.eventRow
22459             End Get
22460         End Property
22461         
22462         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22463          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22464         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
22465             Get
22466                 Return Me.eventAction
22467             End Get
22468         End Property
22469     End Class
22470     
22471     '''<summary>
22472     '''Row event argument class
22473     '''</summary>
22474     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22475     Public Class DepartmentRowChangeEvent
22476         Inherits Global.System.EventArgs
22477         
22478         Private eventRow As DepartmentRow
22479         
22480         Private eventAction As Global.System.Data.DataRowAction
22481         
22482         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22483          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22484         Public Sub New(ByVal row As DepartmentRow, ByVal action As Global.System.Data.DataRowAction)
22485             MyBase.New
22486             Me.eventRow = row
22487             Me.eventAction = action
22488         End Sub
22489         
22490         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22491          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22492         Public ReadOnly Property Row() As DepartmentRow
22493             Get
22494                 Return Me.eventRow
22495             End Get
22496         End Property
22497         
22498         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22499          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22500         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
22501             Get
22502                 Return Me.eventAction
22503             End Get
22504         End Property
22505     End Class
22506     
22507     '''<summary>
22508     '''Row event argument class
22509     '''</summary>
22510     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22511     Public Class DesignationRowChangeEvent
22512         Inherits Global.System.EventArgs
22513         
22514         Private eventRow As DesignationRow
22515         
22516         Private eventAction As Global.System.Data.DataRowAction
22517         
22518         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22519          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22520         Public Sub New(ByVal row As DesignationRow, ByVal action As Global.System.Data.DataRowAction)
22521             MyBase.New
22522             Me.eventRow = row
22523             Me.eventAction = action
22524         End Sub
22525         
22526         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22527          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22528         Public ReadOnly Property Row() As DesignationRow
22529             Get
22530                 Return Me.eventRow
22531             End Get
22532         End Property
22533         
22534         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22535          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22536         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
22537             Get
22538                 Return Me.eventAction
22539             End Get
22540         End Property
22541     End Class
22542     
22543     '''<summary>
22544     '''Row event argument class
22545     '''</summary>
22546     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22547     Public Class DiscountRowChangeEvent
22548         Inherits Global.System.EventArgs
22549         
22550         Private eventRow As DiscountRow
22551         
22552         Private eventAction As Global.System.Data.DataRowAction
22553         
22554         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22555          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22556         Public Sub New(ByVal row As DiscountRow, ByVal action As Global.System.Data.DataRowAction)
22557             MyBase.New
22558             Me.eventRow = row
22559             Me.eventAction = action
22560         End Sub
22561         
22562         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22563          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22564         Public ReadOnly Property Row() As DiscountRow
22565             Get
22566                 Return Me.eventRow
22567             End Get
22568         End Property
22569         
22570         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22571          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22572         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
22573             Get
22574                 Return Me.eventAction
22575             End Get
22576         End Property
22577     End Class
22578     
22579     '''<summary>
22580     '''Row event argument class
22581     '''</summary>
22582     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22583     Public Class Discount_StaffRowChangeEvent
22584         Inherits Global.System.EventArgs
22585         
22586         Private eventRow As Discount_StaffRow
22587         
22588         Private eventAction As Global.System.Data.DataRowAction
22589         
22590         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22591          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22592         Public Sub New(ByVal row As Discount_StaffRow, ByVal action As Global.System.Data.DataRowAction)
22593             MyBase.New
22594             Me.eventRow = row
22595             Me.eventAction = action
22596         End Sub
22597         
22598         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22599          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22600         Public ReadOnly Property Row() As Discount_StaffRow
22601             Get
22602                 Return Me.eventRow
22603             End Get
22604         End Property
22605         
22606         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22607          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22608         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
22609             Get
22610                 Return Me.eventAction
22611             End Get
22612         End Property
22613     End Class
22614     
22615     '''<summary>
22616     '''Row event argument class
22617     '''</summary>
22618     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22619     Public Class DocumentRowChangeEvent
22620         Inherits Global.System.EventArgs
22621         
22622         Private eventRow As DocumentRow
22623         
22624         Private eventAction As Global.System.Data.DataRowAction
22625         
22626         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22627          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22628         Public Sub New(ByVal row As DocumentRow, ByVal action As Global.System.Data.DataRowAction)
22629             MyBase.New
22630             Me.eventRow = row
22631             Me.eventAction = action
22632         End Sub
22633         
22634         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22635          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22636         Public ReadOnly Property Row() As DocumentRow
22637             Get
22638                 Return Me.eventRow
22639             End Get
22640         End Property
22641         
22642         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22643          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22644         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
22645             Get
22646                 Return Me.eventAction
22647             End Get
22648         End Property
22649     End Class
22650     
22651     '''<summary>
22652     '''Row event argument class
22653     '''</summary>
22654     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22655     Public Class FeeRowChangeEvent
22656         Inherits Global.System.EventArgs
22657         
22658         Private eventRow As FeeRow
22659         
22660         Private eventAction As Global.System.Data.DataRowAction
22661         
22662         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22663          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22664         Public Sub New(ByVal row As FeeRow, ByVal action As Global.System.Data.DataRowAction)
22665             MyBase.New
22666             Me.eventRow = row
22667             Me.eventAction = action
22668         End Sub
22669         
22670         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22671          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22672         Public ReadOnly Property Row() As FeeRow
22673             Get
22674                 Return Me.eventRow
22675             End Get
22676         End Property
22677         
22678         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22679          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22680         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
22681             Get
22682                 Return Me.eventAction
22683             End Get
22684         End Property
22685     End Class
22686     
22687     '''<summary>
22688     '''Row event argument class
22689     '''</summary>
22690     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22691     Public Class HostelerRowChangeEvent
22692         Inherits Global.System.EventArgs
22693         
22694         Private eventRow As HostelerRow
22695         
22696         Private eventAction As Global.System.Data.DataRowAction
22697         
22698         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22699          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22700         Public Sub New(ByVal row As HostelerRow, ByVal action As Global.System.Data.DataRowAction)
22701             MyBase.New
22702             Me.eventRow = row
22703             Me.eventAction = action
22704         End Sub
22705         
22706         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22707          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22708         Public ReadOnly Property Row() As HostelerRow
22709             Get
22710                 Return Me.eventRow
22711             End Get
22712         End Property
22713         
22714         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22715          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22716         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
22717             Get
22718                 Return Me.eventAction
22719             End Get
22720         End Property
22721     End Class
22722     
22723     '''<summary>
22724     '''Row event argument class
22725     '''</summary>
22726     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22727     Public Class HostelFeePaymentRowChangeEvent
22728         Inherits Global.System.EventArgs
22729         
22730         Private eventRow As HostelFeePaymentRow
22731         
22732         Private eventAction As Global.System.Data.DataRowAction
22733         
22734         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22735          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22736         Public Sub New(ByVal row As HostelFeePaymentRow, ByVal action As Global.System.Data.DataRowAction)
22737             MyBase.New
22738             Me.eventRow = row
22739             Me.eventAction = action
22740         End Sub
22741         
22742         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22743          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22744         Public ReadOnly Property Row() As HostelFeePaymentRow
22745             Get
22746                 Return Me.eventRow
22747             End Get
22748         End Property
22749         
22750         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22751          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22752         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
22753             Get
22754                 Return Me.eventAction
22755             End Get
22756         End Property
22757     End Class
22758     
22759     '''<summary>
22760     '''Row event argument class
22761     '''</summary>
22762     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22763     Public Class HostelInfoRowChangeEvent
22764         Inherits Global.System.EventArgs
22765         
22766         Private eventRow As HostelInfoRow
22767         
22768         Private eventAction As Global.System.Data.DataRowAction
22769         
22770         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22771          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22772         Public Sub New(ByVal row As HostelInfoRow, ByVal action As Global.System.Data.DataRowAction)
22773             MyBase.New
22774             Me.eventRow = row
22775             Me.eventAction = action
22776         End Sub
22777         
22778         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22779          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22780         Public ReadOnly Property Row() As HostelInfoRow
22781             Get
22782                 Return Me.eventRow
22783             End Get
22784         End Property
22785         
22786         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22787          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22788         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
22789             Get
22790                 Return Me.eventAction
22791             End Get
22792         End Property
22793     End Class
22794     
22795     '''<summary>
22796     '''Row event argument class
22797     '''</summary>
22798     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22799     Public Class Installment_BusRowChangeEvent
22800         Inherits Global.System.EventArgs
22801         
22802         Private eventRow As Installment_BusRow
22803         
22804         Private eventAction As Global.System.Data.DataRowAction
22805         
22806         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22807          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22808         Public Sub New(ByVal row As Installment_BusRow, ByVal action As Global.System.Data.DataRowAction)
22809             MyBase.New
22810             Me.eventRow = row
22811             Me.eventAction = action
22812         End Sub
22813         
22814         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22815          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22816         Public ReadOnly Property Row() As Installment_BusRow
22817             Get
22818                 Return Me.eventRow
22819             End Get
22820         End Property
22821         
22822         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22823          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22824         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
22825             Get
22826                 Return Me.eventAction
22827             End Get
22828         End Property
22829     End Class
22830     
22831     '''<summary>
22832     '''Row event argument class
22833     '''</summary>
22834     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22835     Public Class Installment_HostelRowChangeEvent
22836         Inherits Global.System.EventArgs
22837         
22838         Private eventRow As Installment_HostelRow
22839         
22840         Private eventAction As Global.System.Data.DataRowAction
22841         
22842         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22843          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22844         Public Sub New(ByVal row As Installment_HostelRow, ByVal action As Global.System.Data.DataRowAction)
22845             MyBase.New
22846             Me.eventRow = row
22847             Me.eventAction = action
22848         End Sub
22849         
22850         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22851          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22852         Public ReadOnly Property Row() As Installment_HostelRow
22853             Get
22854                 Return Me.eventRow
22855             End Get
22856         End Property
22857         
22858         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22859          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22860         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
22861             Get
22862                 Return Me.eventAction
22863             End Get
22864         End Property
22865     End Class
22866     
22867     '''<summary>
22868     '''Row event argument class
22869     '''</summary>
22870     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22871     Public Class LocationRowChangeEvent
22872         Inherits Global.System.EventArgs
22873         
22874         Private eventRow As LocationRow
22875         
22876         Private eventAction As Global.System.Data.DataRowAction
22877         
22878         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22879          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22880         Public Sub New(ByVal row As LocationRow, ByVal action As Global.System.Data.DataRowAction)
22881             MyBase.New
22882             Me.eventRow = row
22883             Me.eventAction = action
22884         End Sub
22885         
22886         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22887          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22888         Public ReadOnly Property Row() As LocationRow
22889             Get
22890                 Return Me.eventRow
22891             End Get
22892         End Property
22893         
22894         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22895          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22896         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
22897             Get
22898                 Return Me.eventAction
22899             End Get
22900         End Property
22901     End Class
22902     
22903     '''<summary>
22904     '''Row event argument class
22905     '''</summary>
22906     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22907     Public Class LogsRowChangeEvent
22908         Inherits Global.System.EventArgs
22909         
22910         Private eventRow As LogsRow
22911         
22912         Private eventAction As Global.System.Data.DataRowAction
22913         
22914         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22915          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22916         Public Sub New(ByVal row As LogsRow, ByVal action As Global.System.Data.DataRowAction)
22917             MyBase.New
22918             Me.eventRow = row
22919             Me.eventAction = action
22920         End Sub
22921         
22922         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22923          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22924         Public ReadOnly Property Row() As LogsRow
22925             Get
22926                 Return Me.eventRow
22927             End Get
22928         End Property
22929         
22930         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22931          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22932         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
22933             Get
22934                 Return Me.eventAction
22935             End Get
22936         End Property
22937     End Class
22938     
22939     '''<summary>
22940     '''Row event argument class
22941     '''</summary>
22942     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22943     Public Class NoDues_StaffRowChangeEvent
22944         Inherits Global.System.EventArgs
22945         
22946         Private eventRow As NoDues_StaffRow
22947         
22948         Private eventAction As Global.System.Data.DataRowAction
22949         
22950         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22951          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22952         Public Sub New(ByVal row As NoDues_StaffRow, ByVal action As Global.System.Data.DataRowAction)
22953             MyBase.New
22954             Me.eventRow = row
22955             Me.eventAction = action
22956         End Sub
22957         
22958         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22959          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22960         Public ReadOnly Property Row() As NoDues_StaffRow
22961             Get
22962                 Return Me.eventRow
22963             End Get
22964         End Property
22965         
22966         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22967          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22968         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
22969             Get
22970                 Return Me.eventAction
22971             End Get
22972         End Property
22973     End Class
22974     
22975     '''<summary>
22976     '''Row event argument class
22977     '''</summary>
22978     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22979     Public Class NoDues_StudentRowChangeEvent
22980         Inherits Global.System.EventArgs
22981         
22982         Private eventRow As NoDues_StudentRow
22983         
22984         Private eventAction As Global.System.Data.DataRowAction
22985         
22986         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22987          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22988         Public Sub New(ByVal row As NoDues_StudentRow, ByVal action As Global.System.Data.DataRowAction)
22989             MyBase.New
22990             Me.eventRow = row
22991             Me.eventAction = action
22992         End Sub
22993         
22994         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22995          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22996         Public ReadOnly Property Row() As NoDues_StudentRow
22997             Get
22998                 Return Me.eventRow
22999             End Get
23000         End Property
23001         
23002         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23003          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
23004         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
23005             Get
23006                 Return Me.eventAction
23007             End Get
23008         End Property
23009     End Class
23010     
23011     '''<summary>
23012     '''Row event argument class
23013     '''</summary>
23014     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
23015     Public Class RegistrationRowChangeEvent
23016         Inherits Global.System.EventArgs
23017         
23018         Private eventRow As RegistrationRow
23019         
23020         Private eventAction As Global.System.Data.DataRowAction
23021         
23022         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23023          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
23024         Public Sub New(ByVal row As RegistrationRow, ByVal action As Global.System.Data.DataRowAction)
23025             MyBase.New
23026             Me.eventRow = row
23027             Me.eventAction = action
23028         End Sub
23029         
23030         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23031          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
23032         Public ReadOnly Property Row() As RegistrationRow
23033             Get
23034                 Return Me.eventRow
23035             End Get
23036         End Property
23037         
23038         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23039          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
23040         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
23041             Get
23042                 Return Me.eventAction
23043             End Get
23044         End Property
23045     End Class
23046     
23047     '''<summary>
23048     '''Row event argument class
23049     '''</summary>
23050     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
23051     Public Class SchoolInfoRowChangeEvent
23052         Inherits Global.System.EventArgs
23053         
23054         Private eventRow As SchoolInfoRow
23055         
23056         Private eventAction As Global.System.Data.DataRowAction
23057         
23058         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23059          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
23060         Public Sub New(ByVal row As SchoolInfoRow, ByVal action As Global.System.Data.DataRowAction)
23061             MyBase.New
23062             Me.eventRow = row
23063             Me.eventAction = action
23064         End Sub
23065         
23066         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23067          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
23068         Public ReadOnly Property Row() As SchoolInfoRow
23069             Get
23070                 Return Me.eventRow
23071             End Get
23072         End Property
23073         
23074         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23075          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
23076         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
23077             Get
23078                 Return Me.eventAction
23079             End Get
23080         End Property
23081     End Class
23082     
23083     '''<summary>
23084     '''Row event argument class
23085     '''</summary>
23086     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
23087     Public Class SchoolTypeRowChangeEvent
23088         Inherits Global.System.EventArgs
23089         
23090         Private eventRow As SchoolTypeRow
23091         
23092         Private eventAction As Global.System.Data.DataRowAction
23093         
23094         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23095          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
23096         Public Sub New(ByVal row As SchoolTypeRow, ByVal action As Global.System.Data.DataRowAction)
23097             MyBase.New
23098             Me.eventRow = row
23099             Me.eventAction = action
23100         End Sub
23101         
23102         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23103          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
23104         Public ReadOnly Property Row() As SchoolTypeRow
23105             Get
23106                 Return Me.eventRow
23107             End Get
23108         End Property
23109         
23110         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23111          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
23112         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
23113             Get
23114                 Return Me.eventAction
23115             End Get
23116         End Property
23117     End Class
23118     
23119     '''<summary>
23120     '''Row event argument class
23121     '''</summary>
23122     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
23123     Public Class SectionRowChangeEvent
23124         Inherits Global.System.EventArgs
23125         
23126         Private eventRow As SectionRow
23127         
23128         Private eventAction As Global.System.Data.DataRowAction
23129         
23130         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23131          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
23132         Public Sub New(ByVal row As SectionRow, ByVal action As Global.System.Data.DataRowAction)
23133             MyBase.New
23134             Me.eventRow = row
23135             Me.eventAction = action
23136         End Sub
23137         
23138         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23139          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
23140         Public ReadOnly Property Row() As SectionRow
23141             Get
23142                 Return Me.eventRow
23143             End Get
23144         End Property
23145         
23146         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23147          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
23148         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
23149             Get
23150                 Return Me.eventAction
23151             End Get
23152         End Property
23153     End Class
23154     
23155     '''<summary>
23156     '''Row event argument class
23157     '''</summary>
23158     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
23159     Public Class Session_MasterRowChangeEvent
23160         Inherits Global.System.EventArgs
23161         
23162         Private eventRow As Session_MasterRow
23163         
23164         Private eventAction As Global.System.Data.DataRowAction
23165         
23166         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23167          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
23168         Public Sub New(ByVal row As Session_MasterRow, ByVal action As Global.System.Data.DataRowAction)
23169             MyBase.New
23170             Me.eventRow = row
23171             Me.eventAction = action
23172         End Sub
23173         
23174         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23175          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
23176         Public ReadOnly Property Row() As Session_MasterRow
23177             Get
23178                 Return Me.eventRow
23179             End Get
23180         End Property
23181         
23182         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23183          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
23184         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
23185             Get
23186                 Return Me.eventAction
23187             End Get
23188         End Property
23189     End Class
23190     
23191     '''<summary>
23192     '''Row event argument class
23193     '''</summary>
23194     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
23195     Public Class StaffRowChangeEvent
23196         Inherits Global.System.EventArgs
23197         
23198         Private eventRow As StaffRow
23199         
23200         Private eventAction As Global.System.Data.DataRowAction
23201         
23202         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23203          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
23204         Public Sub New(ByVal row As StaffRow, ByVal action As Global.System.Data.DataRowAction)
23205             MyBase.New
23206             Me.eventRow = row
23207             Me.eventAction = action
23208         End Sub
23209         
23210         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23211          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
23212         Public ReadOnly Property Row() As StaffRow
23213             Get
23214                 Return Me.eventRow
23215             End Get
23216         End Property
23217         
23218         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23219          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
23220         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
23221             Get
23222                 Return Me.eventAction
23223             End Get
23224         End Property
23225     End Class
23226     
23227     '''<summary>
23228     '''Row event argument class
23229     '''</summary>
23230     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
23231     Public Class Staff_DepartmentRowChangeEvent
23232         Inherits Global.System.EventArgs
23233         
23234         Private eventRow As Staff_DepartmentRow
23235         
23236         Private eventAction As Global.System.Data.DataRowAction
23237         
23238         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23239          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
23240         Public Sub New(ByVal row As Staff_DepartmentRow, ByVal action As Global.System.Data.DataRowAction)
23241             MyBase.New
23242             Me.eventRow = row
23243             Me.eventAction = action
23244         End Sub
23245         
23246         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23247          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
23248         Public ReadOnly Property Row() As Staff_DepartmentRow
23249             Get
23250                 Return Me.eventRow
23251             End Get
23252         End Property
23253         
23254         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23255          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
23256         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
23257             Get
23258                 Return Me.eventAction
23259             End Get
23260         End Property
23261     End Class
23262     
23263     '''<summary>
23264     '''Row event argument class
23265     '''</summary>
23266     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
23267     Public Class StaffAttendanceRowChangeEvent
23268         Inherits Global.System.EventArgs
23269         
23270         Private eventRow As StaffAttendanceRow
23271         
23272         Private eventAction As Global.System.Data.DataRowAction
23273         
23274         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23275          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
23276         Public Sub New(ByVal row As StaffAttendanceRow, ByVal action As Global.System.Data.DataRowAction)
23277             MyBase.New
23278             Me.eventRow = row
23279             Me.eventAction = action
23280         End Sub
23281         
23282         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23283          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
23284         Public ReadOnly Property Row() As StaffAttendanceRow
23285             Get
23286                 Return Me.eventRow
23287             End Get
23288         End Property
23289         
23290         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23291          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
23292         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
23293             Get
23294                 Return Me.eventAction
23295             End Get
23296         End Property
23297     End Class
23298     
23299     '''<summary>
23300     '''Row event argument class
23301     '''</summary>
23302     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
23303     Public Class StaffPaymentRowChangeEvent
23304         Inherits Global.System.EventArgs
23305         
23306         Private eventRow As StaffPaymentRow
23307         
23308         Private eventAction As Global.System.Data.DataRowAction
23309         
23310         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23311          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
23312         Public Sub New(ByVal row As StaffPaymentRow, ByVal action As Global.System.Data.DataRowAction)
23313             MyBase.New
23314             Me.eventRow = row
23315             Me.eventAction = action
23316         End Sub
23317         
23318         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23319          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
23320         Public ReadOnly Property Row() As StaffPaymentRow
23321             Get
23322                 Return Me.eventRow
23323             End Get
23324         End Property
23325         
23326         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23327          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
23328         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
23329             Get
23330                 Return Me.eventAction
23331             End Get
23332         End Property
23333     End Class
23334     
23335     '''<summary>
23336     '''Row event argument class
23337     '''</summary>
23338     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
23339     Public Class StudentRowChangeEvent
23340         Inherits Global.System.EventArgs
23341         
23342         Private eventRow As StudentRow
23343         
23344         Private eventAction As Global.System.Data.DataRowAction
23345         
23346         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23347          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
23348         Public Sub New(ByVal row As StudentRow, ByVal action As Global.System.Data.DataRowAction)
23349             MyBase.New
23350             Me.eventRow = row
23351             Me.eventAction = action
23352         End Sub
23353         
23354         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23355          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
23356         Public ReadOnly Property Row() As StudentRow
23357             Get
23358                 Return Me.eventRow
23359             End Get
23360         End Property
23361         
23362         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23363          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
23364         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
23365             Get
23366                 Return Me.eventAction
23367             End Get
23368         End Property
23369     End Class
23370     
23371     '''<summary>
23372     '''Row event argument class
23373     '''</summary>
23374     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
23375     Public Class StudentDocSubmittedRowChangeEvent
23376         Inherits Global.System.EventArgs
23377         
23378         Private eventRow As StudentDocSubmittedRow
23379         
23380         Private eventAction As Global.System.Data.DataRowAction
23381         
23382         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23383          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
23384         Public Sub New(ByVal row As StudentDocSubmittedRow, ByVal action As Global.System.Data.DataRowAction)
23385             MyBase.New
23386             Me.eventRow = row
23387             Me.eventAction = action
23388         End Sub
23389         
23390         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23391          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
23392         Public ReadOnly Property Row() As StudentDocSubmittedRow
23393             Get
23394                 Return Me.eventRow
23395             End Get
23396         End Property
23397         
23398         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23399          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
23400         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
23401             Get
23402                 Return Me.eventAction
23403             End Get
23404         End Property
23405     End Class
23406     
23407     '''<summary>
23408     '''Row event argument class
23409     '''</summary>
23410     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
23411     Public Class VoucherRowChangeEvent
23412         Inherits Global.System.EventArgs
23413         
23414         Private eventRow As VoucherRow
23415         
23416         Private eventAction As Global.System.Data.DataRowAction
23417         
23418         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23419          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
23420         Public Sub New(ByVal row As VoucherRow, ByVal action As Global.System.Data.DataRowAction)
23421             MyBase.New
23422             Me.eventRow = row
23423             Me.eventAction = action
23424         End Sub
23425         
23426         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23427          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
23428         Public ReadOnly Property Row() As VoucherRow
23429             Get
23430                 Return Me.eventRow
23431             End Get
23432         End Property
23433         
23434         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23435          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
23436         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
23437             Get
23438                 Return Me.eventAction
23439             End Get
23440         End Property
23441     End Class
23442     
23443     '''<summary>
23444     '''Row event argument class
23445     '''</summary>
23446     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
23447     Public Class Voucher_OtherDetailsRowChangeEvent
23448         Inherits Global.System.EventArgs
23449         
23450         Private eventRow As Voucher_OtherDetailsRow
23451         
23452         Private eventAction As Global.System.Data.DataRowAction
23453         
23454         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23455          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
23456         Public Sub New(ByVal row As Voucher_OtherDetailsRow, ByVal action As Global.System.Data.DataRowAction)
23457             MyBase.New
23458             Me.eventRow = row
23459             Me.eventAction = action
23460         End Sub
23461         
23462         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23463          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
23464         Public ReadOnly Property Row() As Voucher_OtherDetailsRow
23465             Get
23466                 Return Me.eventRow
23467             End Get
23468         End Property
23469         
23470         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23471          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
23472         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
23473             Get
23474                 Return Me.eventAction
23475             End Get
23476         End Property
23477     End Class
23478 End Class
23479
23480 Namespace ERPS_DBDataSet1TableAdapters
23481     
23482     '''<summary>
23483     '''Represents the connection and commands used to retrieve and save data.
23484     '''</summary>
23485     <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
23486      Global.System.ComponentModel.ToolboxItem(true), _
23487      Global.System.ComponentModel.DataObjectAttribute(true), _
23488      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
23489         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
23490      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
23491     Partial Public Class ActivationTableAdapter
23492         Inherits Global.System.ComponentModel.Component
23493         
23494         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
23495         
23496         Private _connection As Global.System.Data.SqlClient.SqlConnection
23497         
23498         Private _transaction As Global.System.Data.SqlClient.SqlTransaction
23499         
23500         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
23501         
23502         Private _clearBeforeFill As Boolean
23503         
23504         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23505          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
23506         Public Sub New()
23507             MyBase.New
23508             Me.ClearBeforeFill = true
23509         End Sub
23510         
23511         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23512          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
23513         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
23514             Get
23515                 If (Me._adapter Is Nothing) Then
23516                     Me.InitAdapter
23517                 End If
23518                 Return Me._adapter
23519             End Get
23520         End Property
23521         
23522         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23523          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
23524         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
23525             Get
23526                 If (Me._connection Is Nothing) Then
23527                     Me.InitConnection
23528                 End If
23529                 Return Me._connection
23530             End Get
23531             Set
23532                 Me._connection = value
23533                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
23534                     Me.Adapter.InsertCommand.Connection = value
23535                 End If
23536                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
23537                     Me.Adapter.DeleteCommand.Connection = value
23538                 End If
23539                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
23540                     Me.Adapter.UpdateCommand.Connection = value
23541                 End If
23542                 Dim i As Integer = 0
23543                 Do While (i < Me.CommandCollection.Length)
23544                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
23545                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
23546                     End If
23547                     i = (i + 1)
23548                 Loop
23549             End Set
23550         End Property
23551         
23552         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23553          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
23554         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
23555             Get
23556                 Return Me._transaction
23557             End Get
23558             Set
23559                 Me._transaction = value
23560                 Dim i As Integer = 0
23561                 Do While (i < Me.CommandCollection.Length)
23562                     Me.CommandCollection(i).Transaction = Me._transaction
23563                     i = (i + 1)
23564                 Loop
23565                 If ((Not (Me.Adapter) Is Nothing) _
23566                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
23567                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
23568                 End If
23569                 If ((Not (Me.Adapter) Is Nothing) _
23570                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
23571                     Me.Adapter.InsertCommand.Transaction = Me._transaction
23572                 End If
23573                 If ((Not (Me.Adapter) Is Nothing) _
23574                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
23575                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
23576                 End If
23577             End Set
23578         End Property
23579         
23580         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23581          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
23582         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
23583             Get
23584                 If (Me._commandCollection Is Nothing) Then
23585                     Me.InitCommandCollection
23586                 End If
23587                 Return Me._commandCollection
23588             End Get
23589         End Property
23590         
23591         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23592          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
23593         Public Property ClearBeforeFill() As Boolean
23594             Get
23595                 Return Me._clearBeforeFill
23596             End Get
23597             Set
23598                 Me._clearBeforeFill = value
23599             End Set
23600         End Property
23601         
23602         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23603          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
23604         Private Sub InitAdapter()
23605             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
23606             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
23607             tableMapping.SourceTable = "Table"
23608             tableMapping.DataSetTable = "Activation"
23609             tableMapping.ColumnMappings.Add("Id", "Id")
23610             tableMapping.ColumnMappings.Add("HardwareID", "HardwareID")
23611             tableMapping.ColumnMappings.Add("SerialNo", "SerialNo")
23612             tableMapping.ColumnMappings.Add("ActivationID", "ActivationID")
23613             Me._adapter.TableMappings.Add(tableMapping)
23614             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
23615             Me._adapter.DeleteCommand.Connection = Me.Connection
23616             Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[Activation] WHERE (([Id] = @Original_Id) AND ([HardwareID] = @"& _
23617                 "Original_HardwareID) AND ([SerialNo] = @Original_SerialNo) AND ([ActivationID] ="& _
23618                 " @Original_ActivationID))"
23619             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
23620             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
23621             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_HardwareID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HardwareID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
23622             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SerialNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SerialNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
23623             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ActivationID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ActivationID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
23624             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
23625             Me._adapter.InsertCommand.Connection = Me.Connection
23626             Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[Activation] ([HardwareID], [SerialNo], [ActivationID]) VALUES "& _
23627                 "(@HardwareID, @SerialNo, @ActivationID);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Id, HardwareID, SerialNo, Activ"& _
23628                 "ationID FROM Activation WHERE (Id = SCOPE_IDENTITY())"
23629             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
23630             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HardwareID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HardwareID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
23631             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SerialNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SerialNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
23632             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ActivationID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ActivationID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
23633             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
23634             Me._adapter.UpdateCommand.Connection = Me.Connection
23635             Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[Activation] SET [HardwareID] = @HardwareID, [SerialNo] = @SerialNo,"& _
23636                 " [ActivationID] = @ActivationID WHERE (([Id] = @Original_Id) AND ([HardwareID] ="& _
23637                 " @Original_HardwareID) AND ([SerialNo] = @Original_SerialNo) AND ([ActivationID]"& _
23638                 " = @Original_ActivationID));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Id, HardwareID, SerialNo, ActivationID FROM"& _
23639                 " Activation WHERE (Id = @Id)"
23640             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
23641             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HardwareID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HardwareID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
23642             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SerialNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SerialNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
23643             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ActivationID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ActivationID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
23644             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
23645             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_HardwareID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HardwareID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
23646             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SerialNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SerialNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
23647             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ActivationID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ActivationID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
23648             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "Id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
23649         End Sub
23650         
23651         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23652          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
23653         Private Sub InitConnection()
23654             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
23655             Me._connection.ConnectionString = Global.ERP_System.My.MySettings.Default.ERPS_DBConnectionString
23656         End Sub
23657         
23658         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23659          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
23660         Private Sub InitCommandCollection()
23661             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
23662             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
23663             Me._commandCollection(0).Connection = Me.Connection
23664             Me._commandCollection(0).CommandText = "SELECT Id, HardwareID, SerialNo, ActivationID FROM dbo.Activation"
23665             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
23666         End Sub
23667         
23668         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23669          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
23670          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
23671          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
23672         Public Overloads Overridable Function Fill(ByVal dataTable As ERPS_DBDataSet1.ActivationDataTable) As Integer
23673             Me.Adapter.SelectCommand = Me.CommandCollection(0)
23674             If (Me.ClearBeforeFill = true) Then
23675                 dataTable.Clear
23676             End If
23677             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
23678             Return returnValue
23679         End Function
23680         
23681         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23682          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
23683          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
23684          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
23685         Public Overloads Overridable Function GetData() As ERPS_DBDataSet1.ActivationDataTable
23686             Me.Adapter.SelectCommand = Me.CommandCollection(0)
23687             Dim dataTable As ERPS_DBDataSet1.ActivationDataTable = New ERPS_DBDataSet1.ActivationDataTable()
23688             Me.Adapter.Fill(dataTable)
23689             Return dataTable
23690         End Function
23691         
23692         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23693          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
23694          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
23695         Public Overloads Overridable Function Update(ByVal dataTable As ERPS_DBDataSet1.ActivationDataTable) As Integer
23696             Return Me.Adapter.Update(dataTable)
23697         End Function
23698         
23699         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23700          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
23701          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
23702         Public Overloads Overridable Function Update(ByVal dataSet As ERPS_DBDataSet1) As Integer
23703             Return Me.Adapter.Update(dataSet, "Activation")
23704         End Function
23705         
23706         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23707          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
23708          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
23709         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
23710             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
23711         End Function
23712         
23713         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23714          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
23715          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
23716         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
23717             Return Me.Adapter.Update(dataRows)
23718         End Function
23719         
23720         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23721          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
23722          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
23723          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
23724         Public Overloads Overridable Function Delete(ByVal Original_Id As Integer, ByVal Original_HardwareID As String, ByVal Original_SerialNo As String, ByVal Original_ActivationID As String) As Integer
23725             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_Id,Integer)
23726             If (Original_HardwareID Is Nothing) Then
23727                 Throw New Global.System.ArgumentNullException("Original_HardwareID")
23728             Else
23729                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_HardwareID,String)
23730             End If
23731             If (Original_SerialNo Is Nothing) Then
23732                 Throw New Global.System.ArgumentNullException("Original_SerialNo")
23733             Else
23734                 Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_SerialNo,String)
23735             End If
23736             If (Original_ActivationID Is Nothing) Then
23737                 Throw New Global.System.ArgumentNullException("Original_ActivationID")
23738             Else
23739                 Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_ActivationID,String)
23740             End If
23741             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
23742             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
23743                         <> Global.System.Data.ConnectionState.Open) Then
23744                 Me.Adapter.DeleteCommand.Connection.Open
23745             End If
23746             Try
23747                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
23748                 Return returnValue
23749             Finally
23750                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
23751                     Me.Adapter.DeleteCommand.Connection.Close
23752                 End If
23753             End Try
23754         End Function
23755         
23756         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23757          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
23758          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
23759          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
23760         Public Overloads Overridable Function Insert(ByVal HardwareID As String, ByVal SerialNo As String, ByVal ActivationID As String) As Integer
23761             If (HardwareID Is Nothing) Then
23762                 Throw New Global.System.ArgumentNullException("HardwareID")
23763             Else
23764                 Me.Adapter.InsertCommand.Parameters(0).Value = CType(HardwareID,String)
23765             End If
23766             If (SerialNo Is Nothing) Then
23767                 Throw New Global.System.ArgumentNullException("SerialNo")
23768             Else
23769                 Me.Adapter.InsertCommand.Parameters(1).Value = CType(SerialNo,String)
23770             End If
23771             If (ActivationID Is Nothing) Then
23772                 Throw New Global.System.ArgumentNullException("ActivationID")
23773             Else
23774                 Me.Adapter.InsertCommand.Parameters(2).Value = CType(ActivationID,String)
23775             End If
23776             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
23777             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
23778                         <> Global.System.Data.ConnectionState.Open) Then
23779                 Me.Adapter.InsertCommand.Connection.Open
23780             End If
23781             Try
23782                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
23783                 Return returnValue
23784             Finally
23785                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
23786                     Me.Adapter.InsertCommand.Connection.Close
23787                 End If
23788             End Try
23789         End Function
23790         
23791         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23792          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
23793          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
23794          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
23795         Public Overloads Overridable Function Update(ByVal HardwareID As String, ByVal SerialNo As String, ByVal ActivationID As String, ByVal Original_Id As Integer, ByVal Original_HardwareID As String, ByVal Original_SerialNo As String, ByVal Original_ActivationID As String, ByVal Id As Integer) As Integer
23796             If (HardwareID Is Nothing) Then
23797                 Throw New Global.System.ArgumentNullException("HardwareID")
23798             Else
23799                 Me.Adapter.UpdateCommand.Parameters(0).Value = CType(HardwareID,String)
23800             End If
23801             If (SerialNo Is Nothing) Then
23802                 Throw New Global.System.ArgumentNullException("SerialNo")
23803             Else
23804                 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(SerialNo,String)
23805             End If
23806             If (ActivationID Is Nothing) Then
23807                 Throw New Global.System.ArgumentNullException("ActivationID")
23808             Else
23809                 Me.Adapter.UpdateCommand.Parameters(2).Value = CType(ActivationID,String)
23810             End If
23811             Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_Id,Integer)
23812             If (Original_HardwareID Is Nothing) Then
23813                 Throw New Global.System.ArgumentNullException("Original_HardwareID")
23814             Else
23815                 Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_HardwareID,String)
23816             End If
23817             If (Original_SerialNo Is Nothing) Then
23818                 Throw New Global.System.ArgumentNullException("Original_SerialNo")
23819             Else
23820                 Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_SerialNo,String)
23821             End If
23822             If (Original_ActivationID Is Nothing) Then
23823                 Throw New Global.System.ArgumentNullException("Original_ActivationID")
23824             Else
23825                 Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_ActivationID,String)
23826             End If
23827             Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Id,Integer)
23828             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
23829             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
23830                         <> Global.System.Data.ConnectionState.Open) Then
23831                 Me.Adapter.UpdateCommand.Connection.Open
23832             End If
23833             Try
23834                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
23835                 Return returnValue
23836             Finally
23837                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
23838                     Me.Adapter.UpdateCommand.Connection.Close
23839                 End If
23840             End Try
23841         End Function
23842         
23843         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23844          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
23845          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
23846          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
23847         Public Overloads Overridable Function Update(ByVal HardwareID As String, ByVal SerialNo As String, ByVal ActivationID As String, ByVal Original_Id As Integer, ByVal Original_HardwareID As String, ByVal Original_SerialNo As String, ByVal Original_ActivationID As String) As Integer
23848             Return Me.Update(HardwareID, SerialNo, ActivationID, Original_Id, Original_HardwareID, Original_SerialNo, Original_ActivationID, Original_Id)
23849         End Function
23850     End Class
23851     
23852     '''<summary>
23853     '''Represents the connection and commands used to retrieve and save data.
23854     '''</summary>
23855     <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
23856      Global.System.ComponentModel.ToolboxItem(true), _
23857      Global.System.ComponentModel.DataObjectAttribute(true), _
23858      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
23859         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
23860      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
23861     Partial Public Class AdvanceEntryTableAdapter
23862         Inherits Global.System.ComponentModel.Component
23863         
23864         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
23865         
23866         Private _connection As Global.System.Data.SqlClient.SqlConnection
23867         
23868         Private _transaction As Global.System.Data.SqlClient.SqlTransaction
23869         
23870         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
23871         
23872         Private _clearBeforeFill As Boolean
23873         
23874         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23875          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
23876         Public Sub New()
23877             MyBase.New
23878             Me.ClearBeforeFill = true
23879         End Sub
23880         
23881         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23882          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
23883         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
23884             Get
23885                 If (Me._adapter Is Nothing) Then
23886                     Me.InitAdapter
23887                 End If
23888                 Return Me._adapter
23889             End Get
23890         End Property
23891         
23892         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23893          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
23894         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
23895             Get
23896                 If (Me._connection Is Nothing) Then
23897                     Me.InitConnection
23898                 End If
23899                 Return Me._connection
23900             End Get
23901             Set
23902                 Me._connection = value
23903                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
23904                     Me.Adapter.InsertCommand.Connection = value
23905                 End If
23906                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
23907                     Me.Adapter.DeleteCommand.Connection = value
23908                 End If
23909                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
23910                     Me.Adapter.UpdateCommand.Connection = value
23911                 End If
23912                 Dim i As Integer = 0
23913                 Do While (i < Me.CommandCollection.Length)
23914                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
23915                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
23916                     End If
23917                     i = (i + 1)
23918                 Loop
23919             End Set
23920         End Property
23921         
23922         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23923          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
23924         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
23925             Get
23926                 Return Me._transaction
23927             End Get
23928             Set
23929                 Me._transaction = value
23930                 Dim i As Integer = 0
23931                 Do While (i < Me.CommandCollection.Length)
23932                     Me.CommandCollection(i).Transaction = Me._transaction
23933                     i = (i + 1)
23934                 Loop
23935                 If ((Not (Me.Adapter) Is Nothing) _
23936                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
23937                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
23938                 End If
23939                 If ((Not (Me.Adapter) Is Nothing) _
23940                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
23941                     Me.Adapter.InsertCommand.Transaction = Me._transaction
23942                 End If
23943                 If ((Not (Me.Adapter) Is Nothing) _
23944                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
23945                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
23946                 End If
23947             End Set
23948         End Property
23949         
23950         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23951          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
23952         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
23953             Get
23954                 If (Me._commandCollection Is Nothing) Then
23955                     Me.InitCommandCollection
23956                 End If
23957                 Return Me._commandCollection
23958             End Get
23959         End Property
23960         
23961         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23962          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
23963         Public Property ClearBeforeFill() As Boolean
23964             Get
23965                 Return Me._clearBeforeFill
23966             End Get
23967             Set
23968                 Me._clearBeforeFill = value
23969             End Set
23970         End Property
23971         
23972         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23973          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
23974         Private Sub InitAdapter()
23975             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
23976             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
23977             tableMapping.SourceTable = "Table"
23978             tableMapping.DataSetTable = "AdvanceEntry"
23979             tableMapping.ColumnMappings.Add("Id", "Id")
23980             tableMapping.ColumnMappings.Add("StaffID", "StaffID")
23981             tableMapping.ColumnMappings.Add("Amount", "Amount")
23982             tableMapping.ColumnMappings.Add("Deduction", "Deduction")
23983             tableMapping.ColumnMappings.Add("WorkingDate", "WorkingDate")
23984             Me._adapter.TableMappings.Add(tableMapping)
23985             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
23986             Me._adapter.DeleteCommand.Connection = Me.Connection
23987             Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[AdvanceEntry] WHERE (([Id] = @Original_Id) AND ([StaffID] = @O"& _
23988                 "riginal_StaffID) AND ([Amount] = @Original_Amount) AND ([Deduction] = @Original_"& _
23989                 "Deduction) AND ([WorkingDate] = @Original_WorkingDate))"
23990             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
23991             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
23992             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_StaffID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "StaffID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
23993             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Amount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Amount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
23994             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Deduction", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Deduction", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
23995             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_WorkingDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WorkingDate", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
23996             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
23997             Me._adapter.InsertCommand.Connection = Me.Connection
23998             Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[AdvanceEntry] ([Id], [StaffID], [Amount], [Deduction], [Workin"& _
23999                 "gDate]) VALUES (@Id, @StaffID, @Amount, @Deduction, @WorkingDate);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Id, S"& _
24000                 "taffID, Amount, Deduction, WorkingDate FROM AdvanceEntry WHERE (Id = @Id)"
24001             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
24002             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
24003             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@StaffID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "StaffID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
24004             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Amount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Amount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
24005             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Deduction", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Deduction", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
24006             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WorkingDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WorkingDate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
24007             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
24008             Me._adapter.UpdateCommand.Connection = Me.Connection
24009             Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[AdvanceEntry] SET [Id] = @Id, [StaffID] = @StaffID, [Amount] = @Amo"& _
24010                 "unt, [Deduction] = @Deduction, [WorkingDate] = @WorkingDate WHERE (([Id] = @Orig"& _
24011                 "inal_Id) AND ([StaffID] = @Original_StaffID) AND ([Amount] = @Original_Amount) A"& _
24012                 "ND ([Deduction] = @Original_Deduction) AND ([WorkingDate] = @Original_WorkingDat"& _
24013                 "e));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Id, StaffID, Amount, Deduction, WorkingDate FROM AdvanceEntry WHERE"& _
24014                 " (Id = @Id)"
24015             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
24016             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
24017             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@StaffID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "StaffID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
24018             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Amount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Amount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
24019             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Deduction", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Deduction", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
24020             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WorkingDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WorkingDate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
24021             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
24022             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_StaffID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "StaffID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
24023             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Amount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Amount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
24024             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Deduction", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Deduction", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
24025             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_WorkingDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WorkingDate", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
24026         End Sub
24027         
24028         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
24029          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
24030         Private Sub InitConnection()
24031             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
24032             Me._connection.ConnectionString = Global.ERP_System.My.MySettings.Default.ERPS_DBConnectionString
24033         End Sub
24034         
24035         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
24036          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
24037         Private Sub InitCommandCollection()
24038             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
24039             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
24040             Me._commandCollection(0).Connection = Me.Connection
24041             Me._commandCollection(0).CommandText = "SELECT Id, StaffID, Amount, Deduction, WorkingDate FROM dbo.AdvanceEntry"
24042             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
24043         End Sub
24044         
24045         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
24046          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
24047          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
24048          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
24049         Public Overloads Overridable Function Fill(ByVal dataTable As ERPS_DBDataSet1.AdvanceEntryDataTable) As Integer
24050             Me.Adapter.SelectCommand = Me.CommandCollection(0)
24051             If (Me.ClearBeforeFill = true) Then
24052                 dataTable.Clear
24053             End If
24054             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
24055             Return returnValue
24056         End Function
24057         
24058         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
24059          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
24060          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
24061          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
24062         Public Overloads Overridable Function GetData() As ERPS_DBDataSet1.AdvanceEntryDataTable
24063             Me.Adapter.SelectCommand = Me.CommandCollection(0)
24064             Dim dataTable As ERPS_DBDataSet1.AdvanceEntryDataTable = New ERPS_DBDataSet1.AdvanceEntryDataTable()
24065             Me.Adapter.Fill(dataTable)
24066             Return dataTable
24067         End Function
24068         
24069         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
24070          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
24071          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
24072         Public Overloads Overridable Function Update(ByVal dataTable As ERPS_DBDataSet1.AdvanceEntryDataTable) As Integer
24073             Return Me.Adapter.Update(dataTable)
24074         End Function
24075         
24076         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
24077          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
24078          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
24079         Public Overloads Overridable Function Update(ByVal dataSet As ERPS_DBDataSet1) As Integer
24080             Return Me.Adapter.Update(dataSet, "AdvanceEntry")
24081         End Function
24082         
24083         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
24084          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
24085          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
24086         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
24087             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
24088         End Function
24089         
24090         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
24091          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
24092          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
24093         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
24094             Return Me.Adapter.Update(dataRows)
24095         End Function
24096         
24097         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
24098          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
24099          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
24100          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
24101         Public Overloads Overridable Function Delete(ByVal Original_Id As Integer, ByVal Original_StaffID As Integer, ByVal Original_Amount As Decimal, ByVal Original_Deduction As Decimal, ByVal Original_WorkingDate As Date) As Integer
24102             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_Id,Integer)
24103             Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_StaffID,Integer)
24104             Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_Amount,Decimal)
24105             Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_Deduction,Decimal)
24106             Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_WorkingDate,Date)
24107             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
24108             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
24109                         <> Global.System.Data.ConnectionState.Open) Then
24110                 Me.Adapter.DeleteCommand.Connection.Open
24111             End If
24112             Try
24113                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
24114                 Return returnValue
24115             Finally
24116                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
24117                     Me.Adapter.DeleteCommand.Connection.Close
24118                 End If
24119             End Try
24120         End Function
24121         
24122         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
24123          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
24124          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
24125          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
24126         Public Overloads Overridable Function Insert(ByVal Id As Integer, ByVal StaffID As Integer, ByVal Amount As Decimal, ByVal Deduction As Decimal, ByVal WorkingDate As Date) As Integer
24127             Me.Adapter.InsertCommand.Parameters(0).Value = CType(Id,Integer)
24128             Me.Adapter.InsertCommand.Parameters(1).Value = CType(StaffID,Integer)
24129             Me.Adapter.InsertCommand.Parameters(2).Value = CType(Amount,Decimal)
24130             Me.Adapter.InsertCommand.Parameters(3).Value = CType(Deduction,Decimal)
24131             Me.Adapter.InsertCommand.Parameters(4).Value = CType(WorkingDate,Date)
24132             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
24133             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
24134                         <> Global.System.Data.ConnectionState.Open) Then
24135                 Me.Adapter.InsertCommand.Connection.Open
24136             End If
24137             Try
24138                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
24139                 Return returnValue
24140             Finally
24141                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
24142                     Me.Adapter.InsertCommand.Connection.Close
24143                 End If
24144             End Try
24145         End Function
24146         
24147         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
24148          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
24149          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
24150          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
24151         Public Overloads Overridable Function Update(ByVal Id As Integer, ByVal StaffID As Integer, ByVal Amount As Decimal, ByVal Deduction As Decimal, ByVal WorkingDate As Date, ByVal Original_Id As Integer, ByVal Original_StaffID As Integer, ByVal Original_Amount As Decimal, ByVal Original_Deduction As Decimal, ByVal Original_WorkingDate As Date) As Integer
24152             Me.Adapter.UpdateCommand.Parameters(0).Value = CType(Id,Integer)
24153             Me.Adapter.UpdateCommand.Parameters(1).Value = CType(StaffID,Integer)
24154             Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Amount,Decimal)
24155             Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Deduction,Decimal)
24156             Me.Adapter.UpdateCommand.Parameters(4).Value = CType(WorkingDate,Date)
24157             Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_Id,Integer)
24158             Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_StaffID,Integer)
24159             Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_Amount,Decimal)
24160             Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_Deduction,Decimal)
24161             Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_WorkingDate,Date)
24162             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
24163             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
24164                         <> Global.System.Data.ConnectionState.Open) Then
24165                 Me.Adapter.UpdateCommand.Connection.Open
24166             End If
24167             Try
24168                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
24169                 Return returnValue
24170             Finally
24171                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
24172                     Me.Adapter.UpdateCommand.Connection.Close
24173                 End If
24174             End Try
24175         End Function
24176         
24177         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
24178          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
24179          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
24180          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
24181         Public Overloads Overridable Function Update(ByVal StaffID As Integer, ByVal Amount As Decimal, ByVal Deduction As Decimal, ByVal WorkingDate As Date, ByVal Original_Id As Integer, ByVal Original_StaffID As Integer, ByVal Original_Amount As Decimal, ByVal Original_Deduction As Decimal, ByVal Original_WorkingDate As Date) As Integer
24182             Return Me.Update(Original_Id, StaffID, Amount, Deduction, WorkingDate, Original_Id, Original_StaffID, Original_Amount, Original_Deduction, Original_WorkingDate)
24183         End Function
24184     End Class
24185     
24186     '''<summary>
24187     '''Represents the connection and commands used to retrieve and save data.
24188     '''</summary>
24189     <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
24190      Global.System.ComponentModel.ToolboxItem(true), _
24191      Global.System.ComponentModel.DataObjectAttribute(true), _
24192      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
24193         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
24194      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
24195     Partial Public Class BusCardHolder_StaffTableAdapter
24196         Inherits Global.System.ComponentModel.Component
24197         
24198         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
24199         
24200         Private _connection As Global.System.Data.SqlClient.SqlConnection
24201         
24202         Private _transaction As Global.System.Data.SqlClient.SqlTransaction
24203         
24204         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
24205         
24206         Private _clearBeforeFill As Boolean
24207         
24208         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
24209          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
24210         Public Sub New()
24211             MyBase.New
24212             Me.ClearBeforeFill = true
24213         End Sub
24214         
24215         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
24216          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
24217         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
24218             Get
24219                 If (Me._adapter Is Nothing) Then
24220                     Me.InitAdapter
24221                 End If
24222                 Return Me._adapter
24223             End Get
24224         End Property
24225         
24226         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
24227          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
24228         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
24229             Get
24230                 If (Me._connection Is Nothing) Then
24231                     Me.InitConnection
24232                 End If
24233                 Return Me._connection
24234             End Get
24235             Set
24236                 Me._connection = value
24237                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
24238                     Me.Adapter.InsertCommand.Connection = value
24239                 End If
24240                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
24241                     Me.Adapter.DeleteCommand.Connection = value
24242                 End If
24243                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
24244                     Me.Adapter.UpdateCommand.Connection = value
24245                 End If
24246                 Dim i As Integer = 0
24247                 Do While (i < Me.CommandCollection.Length)
24248                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
24249                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
24250                     End If
24251                     i = (i + 1)
24252                 Loop
24253             End Set
24254         End Property
24255         
24256         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
24257          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
24258         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
24259             Get
24260                 Return Me._transaction
24261             End Get
24262             Set
24263                 Me._transaction = value
24264                 Dim i As Integer = 0
24265                 Do While (i < Me.CommandCollection.Length)
24266                     Me.CommandCollection(i).Transaction = Me._transaction
24267                     i = (i + 1)
24268                 Loop
24269                 If ((Not (Me.Adapter) Is Nothing) _
24270                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
24271                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
24272                 End If
24273                 If ((Not (Me.Adapter) Is Nothing) _
24274                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
24275                     Me.Adapter.InsertCommand.Transaction = Me._transaction
24276                 End If
24277                 If ((Not (Me.Adapter) Is Nothing) _
24278                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
24279                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
24280                 End If
24281             End Set
24282         End Property
24283         
24284         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
24285          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
24286         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
24287             Get
24288                 If (Me._commandCollection Is Nothing) Then
24289                     Me.InitCommandCollection
24290                 End If
24291                 Return Me._commandCollection
24292             End Get
24293         End Property
24294         
24295         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
24296          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
24297         Public Property ClearBeforeFill() As Boolean
24298             Get
24299                 Return Me._clearBeforeFill
24300             End Get
24301             Set
24302                 Me._clearBeforeFill = value
24303             End Set
24304         End Property
24305         
24306         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
24307          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
24308         Private Sub InitAdapter()
24309             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
24310             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
24311             tableMapping.SourceTable = "Table"
24312             tableMapping.DataSetTable = "BusCardHolder_Staff"
24313             tableMapping.ColumnMappings.Add("BCH_ID", "BCH_ID")
24314             tableMapping.ColumnMappings.Add("StaffID", "StaffID")
24315             tableMapping.ColumnMappings.Add("BusNo", "BusNo")
24316             tableMapping.ColumnMappings.Add("Location", "Location")
24317             tableMapping.ColumnMappings.Add("JoiningDate", "JoiningDate")
24318             tableMapping.ColumnMappings.Add("Status", "Status")
24319             Me._adapter.TableMappings.Add(tableMapping)
24320             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
24321             Me._adapter.DeleteCommand.Connection = Me.Connection
24322             Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[BusCardHolder_Staff] WHERE (([BCH_ID] = @Original_BCH_ID) AND "& _
24323                 "([StaffID] = @Original_StaffID) AND ([BusNo] = @Original_BusNo) AND ([Location] "& _
24324                 "= @Original_Location) AND ([JoiningDate] = @Original_JoiningDate) AND ([Status] "& _
24325                 "= @Original_Status))"
24326             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
24327             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BCH_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BCH_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
24328             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_StaffID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "StaffID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
24329             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BusNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BusNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
24330             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Location", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Location", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
24331             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_JoiningDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "JoiningDate", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
24332             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Status", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Status", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
24333             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
24334             Me._adapter.InsertCommand.Connection = Me.Connection
24335             Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[BusCardHolder_Staff] ([BCH_ID], [StaffID], [BusNo], [Location]"& _
24336                 ", [JoiningDate], [Status]) VALUES (@BCH_ID, @StaffID, @BusNo, @Location, @Joinin"& _
24337                 "gDate, @Status);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT BCH_ID, StaffID, BusNo, Location, JoiningDate, Status F"& _
24338                 "ROM BusCardHolder_Staff WHERE (BCH_ID = @BCH_ID)"
24339             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
24340             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BCH_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BCH_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
24341             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@StaffID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "StaffID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
24342             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BusNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BusNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
24343             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Location", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Location", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
24344             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@JoiningDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "JoiningDate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
24345             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Status", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Status", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
24346             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
24347             Me._adapter.UpdateCommand.Connection = Me.Connection
24348             Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[BusCardHolder_Staff] SET [BCH_ID] = @BCH_ID, [StaffID] = @StaffID, "& _
24349                 "[BusNo] = @BusNo, [Location] = @Location, [JoiningDate] = @JoiningDate, [Status]"& _
24350                 " = @Status WHERE (([BCH_ID] = @Original_BCH_ID) AND ([StaffID] = @Original_Staff"& _
24351                 "ID) AND ([BusNo] = @Original_BusNo) AND ([Location] = @Original_Location) AND (["& _
24352                 "JoiningDate] = @Original_JoiningDate) AND ([Status] = @Original_Status));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELEC"& _
24353                 "T BCH_ID, StaffID, BusNo, Location, JoiningDate, Status FROM BusCardHolder_Staff"& _
24354                 " WHERE (BCH_ID = @BCH_ID)"
24355             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
24356             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BCH_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BCH_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
24357             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@StaffID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "StaffID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
24358             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BusNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BusNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
24359             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Location", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Location", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
24360             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@JoiningDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "JoiningDate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
24361             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Status", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Status", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
24362             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BCH_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BCH_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
24363             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_StaffID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "StaffID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
24364             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BusNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BusNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
24365             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Location", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Location", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
24366             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_JoiningDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "JoiningDate", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
24367             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Status", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Status", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
24368         End Sub
24369         
24370         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
24371          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
24372         Private Sub InitConnection()
24373             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
24374             Me._connection.ConnectionString = Global.ERP_System.My.MySettings.Default.ERPS_DBConnectionString
24375         End Sub
24376         
24377         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
24378          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
24379         Private Sub InitCommandCollection()
24380             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
24381             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
24382             Me._commandCollection(0).Connection = Me.Connection
24383             Me._commandCollection(0).CommandText = "SELECT BCH_ID, StaffID, BusNo, Location, JoiningDate, Status FROM dbo.BusCardHold"& _
24384                 "er_Staff"
24385             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
24386         End Sub
24387         
24388         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
24389          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
24390          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
24391          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
24392         Public Overloads Overridable Function Fill(ByVal dataTable As ERPS_DBDataSet1.BusCardHolder_StaffDataTable) As Integer
24393             Me.Adapter.SelectCommand = Me.CommandCollection(0)
24394             If (Me.ClearBeforeFill = true) Then
24395                 dataTable.Clear
24396             End If
24397             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
24398             Return returnValue
24399         End Function
24400         
24401         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
24402          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
24403          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
24404          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
24405         Public Overloads Overridable Function GetData() As ERPS_DBDataSet1.BusCardHolder_StaffDataTable
24406             Me.Adapter.SelectCommand = Me.CommandCollection(0)
24407             Dim dataTable As ERPS_DBDataSet1.BusCardHolder_StaffDataTable = New ERPS_DBDataSet1.BusCardHolder_StaffDataTable()
24408             Me.Adapter.Fill(dataTable)
24409             Return dataTable
24410         End Function
24411         
24412         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
24413          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
24414          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
24415         Public Overloads Overridable Function Update(ByVal dataTable As ERPS_DBDataSet1.BusCardHolder_StaffDataTable) As Integer
24416             Return Me.Adapter.Update(dataTable)
24417         End Function
24418         
24419         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
24420          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
24421          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
24422         Public Overloads Overridable Function Update(ByVal dataSet As ERPS_DBDataSet1) As Integer
24423             Return Me.Adapter.Update(dataSet, "BusCardHolder_Staff")
24424         End Function
24425         
24426         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
24427          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
24428          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
24429         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
24430             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
24431         End Function
24432         
24433         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
24434          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
24435          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
24436         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
24437             Return Me.Adapter.Update(dataRows)
24438         End Function
24439         
24440         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
24441          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
24442          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
24443          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
24444         Public Overloads Overridable Function Delete(ByVal Original_BCH_ID As Integer, ByVal Original_StaffID As Integer, ByVal Original_BusNo As String, ByVal Original_Location As String, ByVal Original_JoiningDate As Date, ByVal Original_Status As String) As Integer
24445             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_BCH_ID,Integer)
24446             Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_StaffID,Integer)
24447             If (Original_BusNo Is Nothing) Then
24448                 Throw New Global.System.ArgumentNullException("Original_BusNo")
24449             Else
24450                 Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_BusNo,String)
24451             End If
24452             If (Original_Location Is Nothing) Then
24453                 Throw New Global.System.ArgumentNullException("Original_Location")
24454             Else
24455                 Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_Location,String)
24456             End If
24457             Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_JoiningDate,Date)
24458             If (Original_Status Is Nothing) Then
24459                 Throw New Global.System.ArgumentNullException("Original_Status")
24460             Else
24461                 Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_Status,String)
24462             End If
24463             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
24464             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
24465                         <> Global.System.Data.ConnectionState.Open) Then
24466                 Me.Adapter.DeleteCommand.Connection.Open
24467             End If
24468             Try
24469                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
24470                 Return returnValue
24471             Finally
24472                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
24473                     Me.Adapter.DeleteCommand.Connection.Close
24474                 End If
24475             End Try
24476         End Function
24477         
24478         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
24479          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
24480          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
24481          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
24482         Public Overloads Overridable Function Insert(ByVal BCH_ID As Integer, ByVal StaffID As Integer, ByVal BusNo As String, ByVal Location As String, ByVal JoiningDate As Date, ByVal Status As String) As Integer
24483             Me.Adapter.InsertCommand.Parameters(0).Value = CType(BCH_ID,Integer)
24484             Me.Adapter.InsertCommand.Parameters(1).Value = CType(StaffID,Integer)
24485             If (BusNo Is Nothing) Then
24486                 Throw New Global.System.ArgumentNullException("BusNo")
24487             Else
24488                 Me.Adapter.InsertCommand.Parameters(2).Value = CType(BusNo,String)
24489             End If
24490             If (Location Is Nothing) Then
24491                 Throw New Global.System.ArgumentNullException("Location")
24492             Else
24493                 Me.Adapter.InsertCommand.Parameters(3).Value = CType(Location,String)
24494             End If
24495             Me.Adapter.InsertCommand.Parameters(4).Value = CType(JoiningDate,Date)
24496             If (Status Is Nothing) Then
24497                 Throw New Global.System.ArgumentNullException("Status")
24498             Else
24499                 Me.Adapter.InsertCommand.Parameters(5).Value = CType(Status,String)
24500             End If
24501             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
24502             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
24503                         <> Global.System.Data.ConnectionState.Open) Then
24504                 Me.Adapter.InsertCommand.Connection.Open
24505             End If
24506             Try
24507                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
24508                 Return returnValue
24509             Finally
24510                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
24511                     Me.Adapter.InsertCommand.Connection.Close
24512                 End If
24513             End Try
24514         End Function
24515         
24516         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
24517          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
24518          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
24519          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
24520         Public Overloads Overridable Function Update(ByVal BCH_ID As Integer, ByVal StaffID As Integer, ByVal BusNo As String, ByVal Location As String, ByVal JoiningDate As Date, ByVal Status As String, ByVal Original_BCH_ID As Integer, ByVal Original_StaffID As Integer, ByVal Original_BusNo As String, ByVal Original_Location As String, ByVal Original_JoiningDate As Date, ByVal Original_Status As String) As Integer
24521             Me.Adapter.UpdateCommand.Parameters(0).Value = CType(BCH_ID,Integer)
24522             Me.Adapter.UpdateCommand.Parameters(1).Value = CType(StaffID,Integer)
24523             If (BusNo Is Nothing) Then
24524                 Throw New Global.System.ArgumentNullException("BusNo")
24525             Else
24526                 Me.Adapter.UpdateCommand.Parameters(2).Value = CType(BusNo,String)
24527             End If
24528             If (Location Is Nothing) Then
24529                 Throw New Global.System.ArgumentNullException("Location")
24530             Else
24531                 Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Location,String)
24532             End If
24533             Me.Adapter.UpdateCommand.Parameters(4).Value = CType(JoiningDate,Date)
24534             If (Status Is Nothing) Then
24535                 Throw New Global.System.ArgumentNullException("Status")
24536             Else
24537                 Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Status,String)
24538             End If
24539             Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_BCH_ID,Integer)
24540             Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_StaffID,Integer)
24541             If (Original_BusNo Is Nothing) Then
24542                 Throw New Global.System.ArgumentNullException("Original_BusNo")
24543             Else
24544                 Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_BusNo,String)
24545             End If
24546             If (Original_Location Is Nothing) Then
24547                 Throw New Global.System.ArgumentNullException("Original_Location")
24548             Else
24549                 Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_Location,String)
24550             End If
24551             Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_JoiningDate,Date)
24552             If (Original_Status Is Nothing) Then
24553                 Throw New Global.System.ArgumentNullException("Original_Status")
24554             Else
24555                 Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_Status,String)
24556             End If
24557             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
24558             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
24559                         <> Global.System.Data.ConnectionState.Open) Then
24560                 Me.Adapter.UpdateCommand.Connection.Open
24561             End If
24562             Try
24563                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
24564                 Return returnValue
24565             Finally
24566                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
24567                     Me.Adapter.UpdateCommand.Connection.Close
24568                 End If
24569             End Try
24570         End Function
24571         
24572         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
24573          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
24574          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
24575          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
24576         Public Overloads Overridable Function Update(ByVal StaffID As Integer, ByVal BusNo As String, ByVal Location As String, ByVal JoiningDate As Date, ByVal Status As String, ByVal Original_BCH_ID As Integer, ByVal Original_StaffID As Integer, ByVal Original_BusNo As String, ByVal Original_Location As String, ByVal Original_JoiningDate As Date, ByVal Original_Status As String) As Integer
24577             Return Me.Update(Original_BCH_ID, StaffID, BusNo, Location, JoiningDate, Status, Original_BCH_ID, Original_StaffID, Original_BusNo, Original_Location, Original_JoiningDate, Original_Status)
24578         End Function
24579     End Class
24580     
24581     '''<summary>
24582     '''Represents the connection and commands used to retrieve and save data.
24583     '''</summary>
24584     <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
24585      Global.System.ComponentModel.ToolboxItem(true), _
24586      Global.System.ComponentModel.DataObjectAttribute(true), _
24587      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
24588         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
24589      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
24590     Partial Public Class BusCardHolder_StudentTableAdapter
24591         Inherits Global.System.ComponentModel.Component
24592         
24593         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
24594         
24595         Private _connection As Global.System.Data.SqlClient.SqlConnection
24596         
24597         Private _transaction As Global.System.Data.SqlClient.SqlTransaction
24598         
24599         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
24600         
24601         Private _clearBeforeFill As Boolean
24602         
24603         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
24604          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
24605         Public Sub New()
24606             MyBase.New
24607             Me.ClearBeforeFill = true
24608         End Sub
24609         
24610         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
24611          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
24612         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
24613             Get
24614                 If (Me._adapter Is Nothing) Then
24615                     Me.InitAdapter
24616                 End If
24617                 Return Me._adapter
24618             End Get
24619         End Property
24620         
24621         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
24622          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
24623         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
24624             Get
24625                 If (Me._connection Is Nothing) Then
24626                     Me.InitConnection
24627                 End If
24628                 Return Me._connection
24629             End Get
24630             Set
24631                 Me._connection = value
24632                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
24633                     Me.Adapter.InsertCommand.Connection = value
24634                 End If
24635                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
24636                     Me.Adapter.DeleteCommand.Connection = value
24637                 End If
24638                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
24639                     Me.Adapter.UpdateCommand.Connection = value
24640                 End If
24641                 Dim i As Integer = 0
24642                 Do While (i < Me.CommandCollection.Length)
24643                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
24644                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
24645                     End If
24646                     i = (i + 1)
24647                 Loop
24648             End Set
24649         End Property
24650         
24651         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
24652          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
24653         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
24654             Get
24655                 Return Me._transaction
24656             End Get
24657             Set
24658                 Me._transaction = value
24659                 Dim i As Integer = 0
24660                 Do While (i < Me.CommandCollection.Length)
24661                     Me.CommandCollection(i).Transaction = Me._transaction
24662                     i = (i + 1)
24663                 Loop
24664                 If ((Not (Me.Adapter) Is Nothing) _
24665                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
24666                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
24667                 End If
24668                 If ((Not (Me.Adapter) Is Nothing) _
24669                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
24670                     Me.Adapter.InsertCommand.Transaction = Me._transaction
24671                 End If
24672                 If ((Not (Me.Adapter) Is Nothing) _
24673                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
24674                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
24675                 End If
24676             End Set
24677         End Property
24678         
24679         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
24680          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
24681         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
24682             Get
24683                 If (Me._commandCollection Is Nothing) Then
24684                     Me.InitCommandCollection
24685                 End If
24686                 Return Me._commandCollection
24687             End Get
24688         End Property
24689         
24690         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
24691          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
24692         Public Property ClearBeforeFill() As Boolean
24693             Get
24694                 Return Me._clearBeforeFill
24695             End Get
24696             Set
24697                 Me._clearBeforeFill = value
24698             End Set
24699         End Property
24700         
24701         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
24702          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
24703         Private Sub InitAdapter()
24704             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
24705             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
24706             tableMapping.SourceTable = "Table"
24707             tableMapping.DataSetTable = "BusCardHolder_Student"
24708             tableMapping.ColumnMappings.Add("BCH_Id", "BCH_Id")
24709             tableMapping.ColumnMappings.Add("AdmissionNo", "AdmissionNo")
24710             tableMapping.ColumnMappings.Add("BusNo", "BusNo")
24711             tableMapping.ColumnMappings.Add("Location", "Location")
24712             tableMapping.ColumnMappings.Add("JoiningDate", "JoiningDate")
24713             tableMapping.ColumnMappings.Add("Status", "Status")
24714             Me._adapter.TableMappings.Add(tableMapping)
24715             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
24716             Me._adapter.DeleteCommand.Connection = Me.Connection
24717             Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[BusCardHolder_Student] WHERE (([BCH_Id] = @Original_BCH_Id) AN"& _
24718                 "D ([AdmissionNo] = @Original_AdmissionNo) AND ([BusNo] = @Original_BusNo) AND (["& _
24719                 "Location] = @Original_Location) AND ([JoiningDate] = @Original_JoiningDate) AND "& _
24720                 "([Status] = @Original_Status))"
24721             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
24722             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BCH_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BCH_Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
24723             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_AdmissionNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AdmissionNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
24724             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BusNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BusNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
24725             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Location", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Location", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
24726             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_JoiningDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "JoiningDate", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
24727             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Status", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Status", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
24728             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
24729             Me._adapter.InsertCommand.Connection = Me.Connection
24730             Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[BusCardHolder_Student] ([BCH_Id], [AdmissionNo], [BusNo], [Loc"& _
24731                 "ation], [JoiningDate], [Status]) VALUES (@BCH_Id, @AdmissionNo, @BusNo, @Locatio"& _
24732                 "n, @JoiningDate, @Status);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT BCH_Id, AdmissionNo, BusNo, Location, Joining"& _
24733                 "Date, Status FROM BusCardHolder_Student WHERE (BCH_Id = @BCH_Id)"
24734             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
24735             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BCH_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BCH_Id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
24736             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AdmissionNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AdmissionNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
24737             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BusNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BusNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
24738             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Location", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Location", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
24739             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@JoiningDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "JoiningDate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
24740             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Status", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Status", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
24741             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
24742             Me._adapter.UpdateCommand.Connection = Me.Connection
24743             Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[BusCardHolder_Student] SET [BCH_Id] = @BCH_Id, [AdmissionNo] = @Adm"& _
24744                 "issionNo, [BusNo] = @BusNo, [Location] = @Location, [JoiningDate] = @JoiningDate"& _
24745                 ", [Status] = @Status WHERE (([BCH_Id] = @Original_BCH_Id) AND ([AdmissionNo] = @"& _
24746                 "Original_AdmissionNo) AND ([BusNo] = @Original_BusNo) AND ([Location] = @Origina"& _
24747                 "l_Location) AND ([JoiningDate] = @Original_JoiningDate) AND ([Status] = @Origina"& _
24748                 "l_Status));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT BCH_Id, AdmissionNo, BusNo, Location, JoiningDate, Status FR"& _
24749                 "OM BusCardHolder_Student WHERE (BCH_Id = @BCH_Id)"
24750             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
24751             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BCH_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BCH_Id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
24752             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AdmissionNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AdmissionNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
24753             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BusNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BusNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
24754             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Location", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Location", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
24755             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@JoiningDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "JoiningDate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
24756             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Status", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Status", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
24757             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BCH_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BCH_Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
24758             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_AdmissionNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AdmissionNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
24759             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BusNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BusNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
24760             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Location", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Location", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
24761             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_JoiningDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "JoiningDate", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
24762             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Status", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Status", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
24763         End Sub
24764         
24765         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
24766          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
24767         Private Sub InitConnection()
24768             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
24769             Me._connection.ConnectionString = Global.ERP_System.My.MySettings.Default.ERPS_DBConnectionString
24770         End Sub
24771         
24772         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
24773          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
24774         Private Sub InitCommandCollection()
24775             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
24776             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
24777             Me._commandCollection(0).Connection = Me.Connection
24778             Me._commandCollection(0).CommandText = "SELECT BCH_Id, AdmissionNo, BusNo, Location, JoiningDate, Status FROM dbo.BusCard"& _
24779                 "Holder_Student"
24780             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
24781         End Sub
24782         
24783         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
24784          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
24785          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
24786          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
24787         Public Overloads Overridable Function Fill(ByVal dataTable As ERPS_DBDataSet1.BusCardHolder_StudentDataTable) As Integer
24788             Me.Adapter.SelectCommand = Me.CommandCollection(0)
24789             If (Me.ClearBeforeFill = true) Then
24790                 dataTable.Clear
24791             End If
24792             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
24793             Return returnValue
24794         End Function
24795         
24796         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
24797          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
24798          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
24799          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
24800         Public Overloads Overridable Function GetData() As ERPS_DBDataSet1.BusCardHolder_StudentDataTable
24801             Me.Adapter.SelectCommand = Me.CommandCollection(0)
24802             Dim dataTable As ERPS_DBDataSet1.BusCardHolder_StudentDataTable = New ERPS_DBDataSet1.BusCardHolder_StudentDataTable()
24803             Me.Adapter.Fill(dataTable)
24804             Return dataTable
24805         End Function
24806         
24807         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
24808          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
24809          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
24810         Public Overloads Overridable Function Update(ByVal dataTable As ERPS_DBDataSet1.BusCardHolder_StudentDataTable) As Integer
24811             Return Me.Adapter.Update(dataTable)
24812         End Function
24813         
24814         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
24815          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
24816          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
24817         Public Overloads Overridable Function Update(ByVal dataSet As ERPS_DBDataSet1) As Integer
24818             Return Me.Adapter.Update(dataSet, "BusCardHolder_Student")
24819         End Function
24820         
24821         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
24822          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
24823          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
24824         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
24825             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
24826         End Function
24827         
24828         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
24829          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
24830          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
24831         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
24832             Return Me.Adapter.Update(dataRows)
24833         End Function
24834         
24835         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
24836          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
24837          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
24838          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
24839         Public Overloads Overridable Function Delete(ByVal Original_BCH_Id As Integer, ByVal Original_AdmissionNo As String, ByVal Original_BusNo As String, ByVal Original_Location As String, ByVal Original_JoiningDate As Date, ByVal Original_Status As String) As Integer
24840             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_BCH_Id,Integer)
24841             If (Original_AdmissionNo Is Nothing) Then
24842                 Throw New Global.System.ArgumentNullException("Original_AdmissionNo")
24843             Else
24844                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_AdmissionNo,String)
24845             End If
24846             If (Original_BusNo Is Nothing) Then
24847                 Throw New Global.System.ArgumentNullException("Original_BusNo")
24848             Else
24849                 Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_BusNo,String)
24850             End If
24851             If (Original_Location Is Nothing) Then
24852                 Throw New Global.System.ArgumentNullException("Original_Location")
24853             Else
24854                 Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_Location,String)
24855             End If
24856             Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_JoiningDate,Date)
24857             If (Original_Status Is Nothing) Then
24858                 Throw New Global.System.ArgumentNullException("Original_Status")
24859             Else
24860                 Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_Status,String)
24861             End If
24862             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
24863             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
24864                         <> Global.System.Data.ConnectionState.Open) Then
24865                 Me.Adapter.DeleteCommand.Connection.Open
24866             End If
24867             Try
24868                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
24869                 Return returnValue
24870             Finally
24871                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
24872                     Me.Adapter.DeleteCommand.Connection.Close
24873                 End If
24874             End Try
24875         End Function
24876         
24877         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
24878          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
24879          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
24880          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
24881         Public Overloads Overridable Function Insert(ByVal BCH_Id As Integer, ByVal AdmissionNo As String, ByVal BusNo As String, ByVal Location As String, ByVal JoiningDate As Date, ByVal Status As String) As Integer
24882             Me.Adapter.InsertCommand.Parameters(0).Value = CType(BCH_Id,Integer)
24883             If (AdmissionNo Is Nothing) Then
24884                 Throw New Global.System.ArgumentNullException("AdmissionNo")
24885             Else
24886                 Me.Adapter.InsertCommand.Parameters(1).Value = CType(AdmissionNo,String)
24887             End If
24888             If (BusNo Is Nothing) Then
24889                 Throw New Global.System.ArgumentNullException("BusNo")
24890             Else
24891                 Me.Adapter.InsertCommand.Parameters(2).Value = CType(BusNo,String)
24892             End If
24893             If (Location Is Nothing) Then
24894                 Throw New Global.System.ArgumentNullException("Location")
24895             Else
24896                 Me.Adapter.InsertCommand.Parameters(3).Value = CType(Location,String)
24897             End If
24898             Me.Adapter.InsertCommand.Parameters(4).Value = CType(JoiningDate,Date)
24899             If (Status Is Nothing) Then
24900                 Throw New Global.System.ArgumentNullException("Status")
24901             Else
24902                 Me.Adapter.InsertCommand.Parameters(5).Value = CType(Status,String)
24903             End If
24904             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
24905             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
24906                         <> Global.System.Data.ConnectionState.Open) Then
24907                 Me.Adapter.InsertCommand.Connection.Open
24908             End If
24909             Try
24910                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
24911                 Return returnValue
24912             Finally
24913                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
24914                     Me.Adapter.InsertCommand.Connection.Close
24915                 End If
24916             End Try
24917         End Function
24918         
24919         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
24920          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
24921          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
24922          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
24923         Public Overloads Overridable Function Update(ByVal BCH_Id As Integer, ByVal AdmissionNo As String, ByVal BusNo As String, ByVal Location As String, ByVal JoiningDate As Date, ByVal Status As String, ByVal Original_BCH_Id As Integer, ByVal Original_AdmissionNo As String, ByVal Original_BusNo As String, ByVal Original_Location As String, ByVal Original_JoiningDate As Date, ByVal Original_Status As String) As Integer
24924             Me.Adapter.UpdateCommand.Parameters(0).Value = CType(BCH_Id,Integer)
24925             If (AdmissionNo Is Nothing) Then
24926                 Throw New Global.System.ArgumentNullException("AdmissionNo")
24927             Else
24928                 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(AdmissionNo,String)
24929             End If
24930             If (BusNo Is Nothing) Then
24931                 Throw New Global.System.ArgumentNullException("BusNo")
24932             Else
24933                 Me.Adapter.UpdateCommand.Parameters(2).Value = CType(BusNo,String)
24934             End If
24935             If (Location Is Nothing) Then
24936                 Throw New Global.System.ArgumentNullException("Location")
24937             Else
24938                 Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Location,String)
24939             End If
24940             Me.Adapter.UpdateCommand.Parameters(4).Value = CType(JoiningDate,Date)
24941             If (Status Is Nothing) Then
24942                 Throw New Global.System.ArgumentNullException("Status")
24943             Else
24944                 Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Status,String)
24945             End If
24946             Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_BCH_Id,Integer)
24947             If (Original_AdmissionNo Is Nothing) Then
24948                 Throw New Global.System.ArgumentNullException("Original_AdmissionNo")
24949             Else
24950                 Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_AdmissionNo,String)
24951             End If
24952             If (Original_BusNo Is Nothing) Then
24953                 Throw New Global.System.ArgumentNullException("Original_BusNo")
24954             Else
24955                 Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_BusNo,String)
24956             End If
24957             If (Original_Location Is Nothing) Then
24958                 Throw New Global.System.ArgumentNullException("Original_Location")
24959             Else
24960                 Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_Location,String)
24961             End If
24962             Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_JoiningDate,Date)
24963             If (Original_Status Is Nothing) Then
24964                 Throw New Global.System.ArgumentNullException("Original_Status")
24965             Else
24966                 Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_Status,String)
24967             End If
24968             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
24969             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
24970                         <> Global.System.Data.ConnectionState.Open) Then
24971                 Me.Adapter.UpdateCommand.Connection.Open
24972             End If
24973             Try
24974                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
24975                 Return returnValue
24976             Finally
24977                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
24978                     Me.Adapter.UpdateCommand.Connection.Close
24979                 End If
24980             End Try
24981         End Function
24982         
24983         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
24984          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
24985          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
24986          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
24987         Public Overloads Overridable Function Update(ByVal AdmissionNo As String, ByVal BusNo As String, ByVal Location As String, ByVal JoiningDate As Date, ByVal Status As String, ByVal Original_BCH_Id As Integer, ByVal Original_AdmissionNo As String, ByVal Original_BusNo As String, ByVal Original_Location As String, ByVal Original_JoiningDate As Date, ByVal Original_Status As String) As Integer
24988             Return Me.Update(Original_BCH_Id, AdmissionNo, BusNo, Location, JoiningDate, Status, Original_BCH_Id, Original_AdmissionNo, Original_BusNo, Original_Location, Original_JoiningDate, Original_Status)
24989         End Function
24990     End Class
24991     
24992     '''<summary>
24993     '''Represents the connection and commands used to retrieve and save data.
24994     '''</summary>
24995     <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
24996      Global.System.ComponentModel.ToolboxItem(true), _
24997      Global.System.ComponentModel.DataObjectAttribute(true), _
24998      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
24999         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
25000      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
25001     Partial Public Class BusFeePayment_StaffTableAdapter
25002         Inherits Global.System.ComponentModel.Component
25003         
25004         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
25005         
25006         Private _connection As Global.System.Data.SqlClient.SqlConnection
25007         
25008         Private _transaction As Global.System.Data.SqlClient.SqlTransaction
25009         
25010         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
25011         
25012         Private _clearBeforeFill As Boolean
25013         
25014         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
25015          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
25016         Public Sub New()
25017             MyBase.New
25018             Me.ClearBeforeFill = true
25019         End Sub
25020         
25021         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
25022          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
25023         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
25024             Get
25025                 If (Me._adapter Is Nothing) Then
25026                     Me.InitAdapter
25027                 End If
25028                 Return Me._adapter
25029             End Get
25030         End Property
25031         
25032         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
25033          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
25034         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
25035             Get
25036                 If (Me._connection Is Nothing) Then
25037                     Me.InitConnection
25038                 End If
25039                 Return Me._connection
25040             End Get
25041             Set
25042                 Me._connection = value
25043                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
25044                     Me.Adapter.InsertCommand.Connection = value
25045                 End If
25046                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
25047                     Me.Adapter.DeleteCommand.Connection = value
25048                 End If
25049                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
25050                     Me.Adapter.UpdateCommand.Connection = value
25051                 End If
25052                 Dim i As Integer = 0
25053                 Do While (i < Me.CommandCollection.Length)
25054                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
25055                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
25056                     End If
25057                     i = (i + 1)
25058                 Loop
25059             End Set
25060         End Property
25061         
25062         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
25063          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
25064         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
25065             Get
25066                 Return Me._transaction
25067             End Get
25068             Set
25069                 Me._transaction = value
25070                 Dim i As Integer = 0
25071                 Do While (i < Me.CommandCollection.Length)
25072                     Me.CommandCollection(i).Transaction = Me._transaction
25073                     i = (i + 1)
25074                 Loop
25075                 If ((Not (Me.Adapter) Is Nothing) _
25076                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
25077                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
25078                 End If
25079                 If ((Not (Me.Adapter) Is Nothing) _
25080                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
25081                     Me.Adapter.InsertCommand.Transaction = Me._transaction
25082                 End If
25083                 If ((Not (Me.Adapter) Is Nothing) _
25084                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
25085                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
25086                 End If
25087             End Set
25088         End Property
25089         
25090         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
25091          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
25092         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
25093             Get
25094                 If (Me._commandCollection Is Nothing) Then
25095                     Me.InitCommandCollection
25096                 End If
25097                 Return Me._commandCollection
25098             End Get
25099         End Property
25100         
25101         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
25102          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
25103         Public Property ClearBeforeFill() As Boolean
25104             Get
25105                 Return Me._clearBeforeFill
25106             End Get
25107             Set
25108                 Me._clearBeforeFill = value
25109             End Set
25110         End Property
25111         
25112         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
25113          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
25114         Private Sub InitAdapter()
25115             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
25116             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
25117             tableMapping.SourceTable = "Table"
25118             tableMapping.DataSetTable = "BusFeePayment_Staff"
25119             tableMapping.ColumnMappings.Add("Id", "Id")
25120             tableMapping.ColumnMappings.Add("BFP_ID", "BFP_ID")
25121             tableMapping.ColumnMappings.Add("PaymentID", "PaymentID")
25122             tableMapping.ColumnMappings.Add("BusHolderID", "BusHolderID")
25123             tableMapping.ColumnMappings.Add("Session", "Session")
25124             tableMapping.ColumnMappings.Add("Installment", "Installment")
25125             tableMapping.ColumnMappings.Add("TotalFee", "TotalFee")
25126             tableMapping.ColumnMappings.Add("DiscountPer", "DiscountPer")
25127             tableMapping.ColumnMappings.Add("DiscountAmt", "DiscountAmt")
25128             tableMapping.ColumnMappings.Add("PreviousDue", "PreviousDue")
25129             tableMapping.ColumnMappings.Add("Fine", "Fine")
25130             tableMapping.ColumnMappings.Add("GrandTotal", "GrandTotal")
25131             tableMapping.ColumnMappings.Add("TotalPaid", "TotalPaid")
25132             tableMapping.ColumnMappings.Add("ModeOfPayment", "ModeOfPayment")
25133             tableMapping.ColumnMappings.Add("PaymentModeDetails", "PaymentModeDetails")
25134             tableMapping.ColumnMappings.Add("PaymentDate", "PaymentDate")
25135             tableMapping.ColumnMappings.Add("PaymentDue", "PaymentDue")
25136             Me._adapter.TableMappings.Add(tableMapping)
25137             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
25138             Me._adapter.DeleteCommand.Connection = Me.Connection
25139             Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[BusFeePayment_Staff] WHERE (([Id] = @Original_Id) AND ([BFP_ID"& _
25140                 "] = @Original_BFP_ID) AND ([PaymentID] = @Original_PaymentID) AND ([BusHolderID]"& _
25141                 " = @Original_BusHolderID) AND ([Session] = @Original_Session) AND ([Installment]"& _
25142                 " = @Original_Installment) AND ([TotalFee] = @Original_TotalFee) AND ([DiscountPe"& _
25143                 "r] = @Original_DiscountPer) AND ([DiscountAmt] = @Original_DiscountAmt) AND ([Pr"& _
25144                 "eviousDue] = @Original_PreviousDue) AND ([Fine] = @Original_Fine) AND ([GrandTot"& _
25145                 "al] = @Original_GrandTotal) AND ([TotalPaid] = @Original_TotalPaid) AND ([ModeOf"& _
25146                 "Payment] = @Original_ModeOfPayment) AND ((@IsNull_PaymentModeDetails = 1 AND [Pa"& _
25147                 "ymentModeDetails] IS NULL) OR ([PaymentModeDetails] = @Original_PaymentModeDetai"& _
25148                 "ls)) AND ([PaymentDate] = @Original_PaymentDate) AND ([PaymentDue] = @Original_P"& _
25149                 "aymentDue))"
25150             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
25151             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
25152             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BFP_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BFP_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
25153             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PaymentID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PaymentID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
25154             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BusHolderID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BusHolderID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
25155             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Session", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Session", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
25156             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Installment", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Installment", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
25157             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TotalFee", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalFee", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
25158             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DiscountPer", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "DiscountPer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
25159             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DiscountAmt", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "DiscountAmt", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
25160             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PreviousDue", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "PreviousDue", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
25161             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Fine", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Fine", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
25162             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GrandTotal", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "GrandTotal", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
25163             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TotalPaid", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalPaid", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
25164             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ModeOfPayment", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ModeOfPayment", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
25165             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_PaymentModeDetails", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PaymentModeDetails", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
25166             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PaymentModeDetails", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PaymentModeDetails", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
25167             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PaymentDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PaymentDate", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
25168             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PaymentDue", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "PaymentDue", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
25169             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
25170             Me._adapter.InsertCommand.Connection = Me.Connection
25171             Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[BusFeePayment_Staff] ([BFP_ID], [PaymentID], [BusHolderID], [S"& _
25172                 "ession], [Installment], [TotalFee], [DiscountPer], [DiscountAmt], [PreviousDue],"& _
25173                 " [Fine], [GrandTotal], [TotalPaid], [ModeOfPayment], [PaymentModeDetails], [Paym"& _
25174                 "entDate], [PaymentDue]) VALUES (@BFP_ID, @PaymentID, @BusHolderID, @Session, @In"& _
25175                 "stallment, @TotalFee, @DiscountPer, @DiscountAmt, @PreviousDue, @Fine, @GrandTot"& _
25176                 "al, @TotalPaid, @ModeOfPayment, @PaymentModeDetails, @PaymentDate, @PaymentDue);"& _
25177                 ""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Id, BFP_ID, PaymentID, BusHolderID, Session, Installment, TotalFee, Dis"& _
25178                 "countPer, DiscountAmt, PreviousDue, Fine, GrandTotal, TotalPaid, ModeOfPayment, "& _
25179                 "PaymentModeDetails, PaymentDate, PaymentDue FROM BusFeePayment_Staff WHERE (Id ="& _
25180                 " SCOPE_IDENTITY())"
25181             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
25182             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BFP_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BFP_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
25183             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PaymentID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PaymentID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
25184             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BusHolderID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BusHolderID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
25185             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Session", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Session", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
25186             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Installment", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Installment", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
25187             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TotalFee", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalFee", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
25188             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DiscountPer", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "DiscountPer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
25189             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DiscountAmt", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "DiscountAmt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
25190             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PreviousDue", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "PreviousDue", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
25191             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Fine", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Fine", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
25192             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GrandTotal", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "GrandTotal", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
25193             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TotalPaid", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalPaid", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
25194             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ModeOfPayment", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ModeOfPayment", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
25195             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PaymentModeDetails", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PaymentModeDetails", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
25196             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PaymentDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PaymentDate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
25197             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PaymentDue", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "PaymentDue", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
25198             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
25199             Me._adapter.UpdateCommand.Connection = Me.Connection
25200             Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[BusFeePayment_Staff] SET [BFP_ID] = @BFP_ID, [PaymentID] = @Payment"& _
25201                 "ID, [BusHolderID] = @BusHolderID, [Session] = @Session, [Installment] = @Install"& _
25202                 "ment, [TotalFee] = @TotalFee, [DiscountPer] = @DiscountPer, [DiscountAmt] = @Dis"& _
25203                 "countAmt, [PreviousDue] = @PreviousDue, [Fine] = @Fine, [GrandTotal] = @GrandTot"& _
25204                 "al, [TotalPaid] = @TotalPaid, [ModeOfPayment] = @ModeOfPayment, [PaymentModeDeta"& _
25205                 "ils] = @PaymentModeDetails, [PaymentDate] = @PaymentDate, [PaymentDue] = @Paymen"& _
25206                 "tDue WHERE (([Id] = @Original_Id) AND ([BFP_ID] = @Original_BFP_ID) AND ([Paymen"& _
25207                 "tID] = @Original_PaymentID) AND ([BusHolderID] = @Original_BusHolderID) AND ([Se"& _
25208                 "ssion] = @Original_Session) AND ([Installment] = @Original_Installment) AND ([To"& _
25209                 "talFee] = @Original_TotalFee) AND ([DiscountPer] = @Original_DiscountPer) AND (["& _
25210                 "DiscountAmt] = @Original_DiscountAmt) AND ([PreviousDue] = @Original_PreviousDue"& _
25211                 ") AND ([Fine] = @Original_Fine) AND ([GrandTotal] = @Original_GrandTotal) AND (["& _
25212                 "TotalPaid] = @Original_TotalPaid) AND ([ModeOfPayment] = @Original_ModeOfPayment"& _
25213                 ") AND ((@IsNull_PaymentModeDetails = 1 AND [PaymentModeDetails] IS NULL) OR ([Pa"& _
25214                 "ymentModeDetails] = @Original_PaymentModeDetails)) AND ([PaymentDate] = @Origina"& _
25215                 "l_PaymentDate) AND ([PaymentDue] = @Original_PaymentDue));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Id, BFP_ID, P"& _
25216                 "aymentID, BusHolderID, Session, Installment, TotalFee, DiscountPer, DiscountAmt,"& _
25217                 " PreviousDue, Fine, GrandTotal, TotalPaid, ModeOfPayment, PaymentModeDetails, Pa"& _
25218                 "ymentDate, PaymentDue FROM BusFeePayment_Staff WHERE (Id = @Id)"
25219             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
25220             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BFP_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BFP_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
25221             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PaymentID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PaymentID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
25222             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BusHolderID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BusHolderID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
25223             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Session", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Session", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
25224             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Installment", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Installment", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
25225             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TotalFee", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalFee", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
25226             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DiscountPer", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "DiscountPer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
25227             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DiscountAmt", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "DiscountAmt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
25228             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PreviousDue", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "PreviousDue", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
25229             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Fine", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Fine", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
25230             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GrandTotal", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "GrandTotal", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
25231             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TotalPaid", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalPaid", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
25232             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ModeOfPayment", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ModeOfPayment", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
25233             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PaymentModeDetails", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PaymentModeDetails", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
25234             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PaymentDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PaymentDate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
25235             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PaymentDue", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "PaymentDue", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
25236             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
25237             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BFP_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BFP_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
25238             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PaymentID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PaymentID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
25239             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BusHolderID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BusHolderID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
25240             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Session", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Session", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
25241             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Installment", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Installment", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
25242             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TotalFee", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalFee", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
25243             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DiscountPer", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "DiscountPer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
25244             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DiscountAmt", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "DiscountAmt", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
25245             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PreviousDue", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "PreviousDue", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
25246             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Fine", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Fine", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
25247             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GrandTotal", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "GrandTotal", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
25248             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TotalPaid", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalPaid", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
25249             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ModeOfPayment", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ModeOfPayment", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
25250             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_PaymentModeDetails", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PaymentModeDetails", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
25251             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PaymentModeDetails", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PaymentModeDetails", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
25252             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PaymentDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PaymentDate", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
25253             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PaymentDue", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "PaymentDue", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
25254             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "Id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
25255         End Sub
25256         
25257         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
25258          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
25259         Private Sub InitConnection()
25260             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
25261             Me._connection.ConnectionString = Global.ERP_System.My.MySettings.Default.ERPS_DBConnectionString
25262         End Sub
25263         
25264         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
25265          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
25266         Private Sub InitCommandCollection()
25267             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
25268             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
25269             Me._commandCollection(0).Connection = Me.Connection
25270             Me._commandCollection(0).CommandText = "SELECT Id, BFP_ID, PaymentID, BusHolderID, Session, Installment, TotalFee, Discou"& _
25271                 "ntPer, DiscountAmt, PreviousDue, Fine, GrandTotal, TotalPaid, ModeOfPayment, Pay"& _
25272                 "mentModeDetails, PaymentDate, PaymentDue FROM dbo.BusFeePayment_Staff"
25273             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
25274         End Sub
25275         
25276         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
25277          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
25278          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
25279          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
25280         Public Overloads Overridable Function Fill(ByVal dataTable As ERPS_DBDataSet1.BusFeePayment_StaffDataTable) As Integer
25281             Me.Adapter.SelectCommand = Me.CommandCollection(0)
25282             If (Me.ClearBeforeFill = true) Then
25283                 dataTable.Clear
25284             End If
25285             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
25286             Return returnValue
25287         End Function
25288         
25289         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
25290          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
25291          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
25292          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
25293         Public Overloads Overridable Function GetData() As ERPS_DBDataSet1.BusFeePayment_StaffDataTable
25294             Me.Adapter.SelectCommand = Me.CommandCollection(0)
25295             Dim dataTable As ERPS_DBDataSet1.BusFeePayment_StaffDataTable = New ERPS_DBDataSet1.BusFeePayment_StaffDataTable()
25296             Me.Adapter.Fill(dataTable)
25297             Return dataTable
25298         End Function
25299         
25300         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
25301          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
25302          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
25303         Public Overloads Overridable Function Update(ByVal dataTable As ERPS_DBDataSet1.BusFeePayment_StaffDataTable) As Integer
25304             Return Me.Adapter.Update(dataTable)
25305         End Function
25306         
25307         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
25308          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
25309          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
25310         Public Overloads Overridable Function Update(ByVal dataSet As ERPS_DBDataSet1) As Integer
25311             Return Me.Adapter.Update(dataSet, "BusFeePayment_Staff")
25312         End Function
25313         
25314         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
25315          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
25316          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
25317         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
25318             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
25319         End Function
25320         
25321         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
25322          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
25323          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
25324         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
25325             Return Me.Adapter.Update(dataRows)
25326         End Function
25327         
25328         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
25329          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
25330          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
25331          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
25332         Public Overloads Overridable Function Delete( _
25333                     ByVal Original_Id As Integer, _
25334                     ByVal Original_BFP_ID As Integer, _
25335                     ByVal Original_PaymentID As String, _
25336                     ByVal Original_BusHolderID As Integer, _
25337                     ByVal Original_Session As String, _
25338                     ByVal Original_Installment As String, _
25339                     ByVal Original_TotalFee As Decimal, _
25340                     ByVal Original_DiscountPer As Decimal, _
25341                     ByVal Original_DiscountAmt As Decimal, _
25342                     ByVal Original_PreviousDue As Decimal, _
25343                     ByVal Original_Fine As Decimal, _
25344                     ByVal Original_GrandTotal As Decimal, _
25345                     ByVal Original_TotalPaid As Decimal, _
25346                     ByVal Original_ModeOfPayment As String, _
25347                     ByVal Original_PaymentModeDetails As String, _
25348                     ByVal Original_PaymentDate As Date, _
25349                     ByVal Original_PaymentDue As Decimal) As Integer
25350             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_Id,Integer)
25351             Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_BFP_ID,Integer)
25352             If (Original_PaymentID Is Nothing) Then
25353                 Throw New Global.System.ArgumentNullException("Original_PaymentID")
25354             Else
25355                 Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_PaymentID,String)
25356             End If
25357             Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_BusHolderID,Integer)
25358             If (Original_Session Is Nothing) Then
25359                 Throw New Global.System.ArgumentNullException("Original_Session")
25360             Else
25361                 Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_Session,String)
25362             End If
25363             If (Original_Installment Is Nothing) Then
25364                 Throw New Global.System.ArgumentNullException("Original_Installment")
25365             Else
25366                 Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_Installment,String)
25367             End If
25368             Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_TotalFee,Decimal)
25369             Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_DiscountPer,Decimal)
25370             Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_DiscountAmt,Decimal)
25371             Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_PreviousDue,Decimal)
25372             Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_Fine,Decimal)
25373             Me.Adapter.DeleteCommand.Parameters(11).Value = CType(Original_GrandTotal,Decimal)
25374             Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_TotalPaid,Decimal)
25375             If (Original_ModeOfPayment Is Nothing) Then
25376                 Throw New Global.System.ArgumentNullException("Original_ModeOfPayment")
25377             Else
25378                 Me.Adapter.DeleteCommand.Parameters(13).Value = CType(Original_ModeOfPayment,String)
25379             End If
25380             If (Original_PaymentModeDetails Is Nothing) Then
25381                 Me.Adapter.DeleteCommand.Parameters(14).Value = CType(1,Object)
25382                 Me.Adapter.DeleteCommand.Parameters(15).Value = Global.System.DBNull.Value
25383             Else
25384                 Me.Adapter.DeleteCommand.Parameters(14).Value = CType(0,Object)
25385                 Me.Adapter.DeleteCommand.Parameters(15).Value = CType(Original_PaymentModeDetails,String)
25386             End If
25387             Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_PaymentDate,Date)
25388             Me.Adapter.DeleteCommand.Parameters(17).Value = CType(Original_PaymentDue,Decimal)
25389             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
25390             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
25391                         <> Global.System.Data.ConnectionState.Open) Then
25392                 Me.Adapter.DeleteCommand.Connection.Open
25393             End If
25394             Try
25395                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
25396                 Return returnValue
25397             Finally
25398                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
25399                     Me.Adapter.DeleteCommand.Connection.Close
25400                 End If
25401             End Try
25402         End Function
25403         
25404         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
25405          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
25406          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
25407          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
25408         Public Overloads Overridable Function Insert( _
25409                     ByVal BFP_ID As Integer, _
25410                     ByVal PaymentID As String, _
25411                     ByVal BusHolderID As Integer, _
25412                     ByVal Session As String, _
25413                     ByVal Installment As String, _
25414                     ByVal TotalFee As Decimal, _
25415                     ByVal DiscountPer As Decimal, _
25416                     ByVal DiscountAmt As Decimal, _
25417                     ByVal PreviousDue As Decimal, _
25418                     ByVal Fine As Decimal, _
25419                     ByVal GrandTotal As Decimal, _
25420                     ByVal TotalPaid As Decimal, _
25421                     ByVal ModeOfPayment As String, _
25422                     ByVal PaymentModeDetails As String, _
25423                     ByVal PaymentDate As Date, _
25424                     ByVal PaymentDue As Decimal) As Integer
25425             Me.Adapter.InsertCommand.Parameters(0).Value = CType(BFP_ID,Integer)
25426             If (PaymentID Is Nothing) Then
25427                 Throw New Global.System.ArgumentNullException("PaymentID")
25428             Else
25429                 Me.Adapter.InsertCommand.Parameters(1).Value = CType(PaymentID,String)
25430             End If
25431             Me.Adapter.InsertCommand.Parameters(2).Value = CType(BusHolderID,Integer)
25432             If (Session Is Nothing) Then
25433                 Throw New Global.System.ArgumentNullException("Session")
25434             Else
25435                 Me.Adapter.InsertCommand.Parameters(3).Value = CType(Session,String)
25436             End If
25437             If (Installment Is Nothing) Then
25438                 Throw New Global.System.ArgumentNullException("Installment")
25439             Else
25440                 Me.Adapter.InsertCommand.Parameters(4).Value = CType(Installment,String)
25441             End If
25442             Me.Adapter.InsertCommand.Parameters(5).Value = CType(TotalFee,Decimal)
25443             Me.Adapter.InsertCommand.Parameters(6).Value = CType(DiscountPer,Decimal)
25444             Me.Adapter.InsertCommand.Parameters(7).Value = CType(DiscountAmt,Decimal)
25445             Me.Adapter.InsertCommand.Parameters(8).Value = CType(PreviousDue,Decimal)
25446             Me.Adapter.InsertCommand.Parameters(9).Value = CType(Fine,Decimal)
25447             Me.Adapter.InsertCommand.Parameters(10).Value = CType(GrandTotal,Decimal)
25448             Me.Adapter.InsertCommand.Parameters(11).Value = CType(TotalPaid,Decimal)
25449             If (ModeOfPayment Is Nothing) Then
25450                 Throw New Global.System.ArgumentNullException("ModeOfPayment")
25451             Else
25452                 Me.Adapter.InsertCommand.Parameters(12).Value = CType(ModeOfPayment,String)
25453             End If
25454             If (PaymentModeDetails Is Nothing) Then
25455                 Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value
25456             Else
25457                 Me.Adapter.InsertCommand.Parameters(13).Value = CType(PaymentModeDetails,String)
25458             End If
25459             Me.Adapter.InsertCommand.Parameters(14).Value = CType(PaymentDate,Date)
25460             Me.Adapter.InsertCommand.Parameters(15).Value = CType(PaymentDue,Decimal)
25461             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
25462             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
25463                         <> Global.System.Data.ConnectionState.Open) Then
25464                 Me.Adapter.InsertCommand.Connection.Open
25465             End If
25466             Try
25467                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
25468                 Return returnValue
25469             Finally
25470                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
25471                     Me.Adapter.InsertCommand.Connection.Close
25472                 End If
25473             End Try
25474         End Function
25475         
25476         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
25477          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
25478          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
25479          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
25480         Public Overloads Overridable Function Update( _
25481                     ByVal BFP_ID As Integer, _
25482                     ByVal PaymentID As String, _
25483                     ByVal BusHolderID As Integer, _
25484                     ByVal Session As String, _
25485                     ByVal Installment As String, _
25486                     ByVal TotalFee As Decimal, _
25487                     ByVal DiscountPer As Decimal, _
25488                     ByVal DiscountAmt As Decimal, _
25489                     ByVal PreviousDue As Decimal, _
25490                     ByVal Fine As Decimal, _
25491                     ByVal GrandTotal As Decimal, _
25492                     ByVal TotalPaid As Decimal, _
25493                     ByVal ModeOfPayment As String, _
25494                     ByVal PaymentModeDetails As String, _
25495                     ByVal PaymentDate As Date, _
25496                     ByVal PaymentDue As Decimal, _
25497                     ByVal Original_Id As Integer, _
25498                     ByVal Original_BFP_ID As Integer, _
25499                     ByVal Original_PaymentID As String, _
25500                     ByVal Original_BusHolderID As Integer, _
25501                     ByVal Original_Session As String, _
25502                     ByVal Original_Installment As String, _
25503                     ByVal Original_TotalFee As Decimal, _
25504                     ByVal Original_DiscountPer As Decimal, _
25505                     ByVal Original_DiscountAmt As Decimal, _
25506                     ByVal Original_PreviousDue As Decimal, _
25507                     ByVal Original_Fine As Decimal, _
25508                     ByVal Original_GrandTotal As Decimal, _
25509                     ByVal Original_TotalPaid As Decimal, _
25510                     ByVal Original_ModeOfPayment As String, _
25511                     ByVal Original_PaymentModeDetails As String, _
25512                     ByVal Original_PaymentDate As Date, _
25513                     ByVal Original_PaymentDue As Decimal, _
25514                     ByVal Id As Integer) As Integer
25515             Me.Adapter.UpdateCommand.Parameters(0).Value = CType(BFP_ID,Integer)
25516             If (PaymentID Is Nothing) Then
25517                 Throw New Global.System.ArgumentNullException("PaymentID")
25518             Else
25519                 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(PaymentID,String)
25520             End If
25521             Me.Adapter.UpdateCommand.Parameters(2).Value = CType(BusHolderID,Integer)
25522             If (Session Is Nothing) Then
25523                 Throw New Global.System.ArgumentNullException("Session")
25524             Else
25525                 Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Session,String)
25526             End If
25527             If (Installment Is Nothing) Then
25528                 Throw New Global.System.ArgumentNullException("Installment")
25529             Else
25530                 Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Installment,String)
25531             End If
25532             Me.Adapter.UpdateCommand.Parameters(5).Value = CType(TotalFee,Decimal)
25533             Me.Adapter.UpdateCommand.Parameters(6).Value = CType(DiscountPer,Decimal)
25534             Me.Adapter.UpdateCommand.Parameters(7).Value = CType(DiscountAmt,Decimal)
25535             Me.Adapter.UpdateCommand.Parameters(8).Value = CType(PreviousDue,Decimal)
25536             Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Fine,Decimal)
25537             Me.Adapter.UpdateCommand.Parameters(10).Value = CType(GrandTotal,Decimal)
25538             Me.Adapter.UpdateCommand.Parameters(11).Value = CType(TotalPaid,Decimal)
25539             If (ModeOfPayment Is Nothing) Then
25540                 Throw New Global.System.ArgumentNullException("ModeOfPayment")
25541             Else
25542                 Me.Adapter.UpdateCommand.Parameters(12).Value = CType(ModeOfPayment,String)
25543             End If
25544             If (PaymentModeDetails Is Nothing) Then
25545                 Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value
25546             Else
25547                 Me.Adapter.UpdateCommand.Parameters(13).Value = CType(PaymentModeDetails,String)
25548             End If
25549             Me.Adapter.UpdateCommand.Parameters(14).Value = CType(PaymentDate,Date)
25550             Me.Adapter.UpdateCommand.Parameters(15).Value = CType(PaymentDue,Decimal)
25551             Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_Id,Integer)
25552             Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_BFP_ID,Integer)
25553             If (Original_PaymentID Is Nothing) Then
25554                 Throw New Global.System.ArgumentNullException("Original_PaymentID")
25555             Else
25556                 Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_PaymentID,String)
25557             End If
25558             Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_BusHolderID,Integer)
25559             If (Original_Session Is Nothing) Then
25560                 Throw New Global.System.ArgumentNullException("Original_Session")
25561             Else
25562                 Me.Adapter.UpdateCommand.Parameters(20).Value = CType(Original_Session,String)
25563             End If
25564             If (Original_Installment Is Nothing) Then
25565                 Throw New Global.System.ArgumentNullException("Original_Installment")
25566             Else
25567                 Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_Installment,String)
25568             End If
25569             Me.Adapter.UpdateCommand.Parameters(22).Value = CType(Original_TotalFee,Decimal)
25570             Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Original_DiscountPer,Decimal)
25571             Me.Adapter.UpdateCommand.Parameters(24).Value = CType(Original_DiscountAmt,Decimal)
25572             Me.Adapter.UpdateCommand.Parameters(25).Value = CType(Original_PreviousDue,Decimal)
25573             Me.Adapter.UpdateCommand.Parameters(26).Value = CType(Original_Fine,Decimal)
25574             Me.Adapter.UpdateCommand.Parameters(27).Value = CType(Original_GrandTotal,Decimal)
25575             Me.Adapter.UpdateCommand.Parameters(28).Value = CType(Original_TotalPaid,Decimal)
25576             If (Original_ModeOfPayment Is Nothing) Then
25577                 Throw New Global.System.ArgumentNullException("Original_ModeOfPayment")
25578             Else
25579                 Me.Adapter.UpdateCommand.Parameters(29).Value = CType(Original_ModeOfPayment,String)
25580             End If
25581             If (Original_PaymentModeDetails Is Nothing) Then
25582                 Me.Adapter.UpdateCommand.Parameters(30).Value = CType(1,Object)
25583                 Me.Adapter.UpdateCommand.Parameters(31).Value = Global.System.DBNull.Value
25584             Else
25585                 Me.Adapter.UpdateCommand.Parameters(30).Value = CType(0,Object)
25586                 Me.Adapter.UpdateCommand.Parameters(31).Value = CType(Original_PaymentModeDetails,String)
25587             End If
25588             Me.Adapter.UpdateCommand.Parameters(32).Value = CType(Original_PaymentDate,Date)
25589             Me.Adapter.UpdateCommand.Parameters(33).Value = CType(Original_PaymentDue,Decimal)
25590             Me.Adapter.UpdateCommand.Parameters(34).Value = CType(Id,Integer)
25591             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
25592             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
25593                         <> Global.System.Data.ConnectionState.Open) Then
25594                 Me.Adapter.UpdateCommand.Connection.Open
25595             End If
25596             Try
25597                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
25598                 Return returnValue
25599             Finally
25600                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
25601                     Me.Adapter.UpdateCommand.Connection.Close
25602                 End If
25603             End Try
25604         End Function
25605         
25606         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
25607          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
25608          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
25609          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
25610         Public Overloads Overridable Function Update( _
25611                     ByVal BFP_ID As Integer, _
25612                     ByVal PaymentID As String, _
25613                     ByVal BusHolderID As Integer, _
25614                     ByVal Session As String, _
25615                     ByVal Installment As String, _
25616                     ByVal TotalFee As Decimal, _
25617                     ByVal DiscountPer As Decimal, _
25618                     ByVal DiscountAmt As Decimal, _
25619                     ByVal PreviousDue As Decimal, _
25620                     ByVal Fine As Decimal, _
25621                     ByVal GrandTotal As Decimal, _
25622                     ByVal TotalPaid As Decimal, _
25623                     ByVal ModeOfPayment As String, _
25624                     ByVal PaymentModeDetails As String, _
25625                     ByVal PaymentDate As Date, _
25626                     ByVal PaymentDue As Decimal, _
25627                     ByVal Original_Id As Integer, _
25628                     ByVal Original_BFP_ID As Integer, _
25629                     ByVal Original_PaymentID As String, _
25630                     ByVal Original_BusHolderID As Integer, _
25631                     ByVal Original_Session As String, _
25632                     ByVal Original_Installment As String, _
25633                     ByVal Original_TotalFee As Decimal, _
25634                     ByVal Original_DiscountPer As Decimal, _
25635                     ByVal Original_DiscountAmt As Decimal, _
25636                     ByVal Original_PreviousDue As Decimal, _
25637                     ByVal Original_Fine As Decimal, _
25638                     ByVal Original_GrandTotal As Decimal, _
25639                     ByVal Original_TotalPaid As Decimal, _
25640                     ByVal Original_ModeOfPayment As String, _
25641                     ByVal Original_PaymentModeDetails As String, _
25642                     ByVal Original_PaymentDate As Date, _
25643                     ByVal Original_PaymentDue As Decimal) As Integer
25644             Return Me.Update(BFP_ID, PaymentID, BusHolderID, Session, Installment, TotalFee, DiscountPer, DiscountAmt, PreviousDue, Fine, GrandTotal, TotalPaid, ModeOfPayment, PaymentModeDetails, PaymentDate, PaymentDue, Original_Id, Original_BFP_ID, Original_PaymentID, Original_BusHolderID, Original_Session, Original_Installment, Original_TotalFee, Original_DiscountPer, Original_DiscountAmt, Original_PreviousDue, Original_Fine, Original_GrandTotal, Original_TotalPaid, Original_ModeOfPayment, Original_PaymentModeDetails, Original_PaymentDate, Original_PaymentDue, Original_Id)
25645         End Function
25646     End Class
25647     
25648     '''<summary>
25649     '''Represents the connection and commands used to retrieve and save data.
25650     '''</summary>
25651     <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
25652      Global.System.ComponentModel.ToolboxItem(true), _
25653      Global.System.ComponentModel.DataObjectAttribute(true), _
25654      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
25655         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
25656      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
25657     Partial Public Class BusFeePayment_StudentTableAdapter
25658         Inherits Global.System.ComponentModel.Component
25659         
25660         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
25661         
25662         Private _connection As Global.System.Data.SqlClient.SqlConnection
25663         
25664         Private _transaction As Global.System.Data.SqlClient.SqlTransaction
25665         
25666         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
25667         
25668         Private _clearBeforeFill As Boolean
25669         
25670         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
25671          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
25672         Public Sub New()
25673             MyBase.New
25674             Me.ClearBeforeFill = true
25675         End Sub
25676         
25677         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
25678          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
25679         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
25680             Get
25681                 If (Me._adapter Is Nothing) Then
25682                     Me.InitAdapter
25683                 End If
25684                 Return Me._adapter
25685             End Get
25686         End Property
25687         
25688         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
25689          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
25690         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
25691             Get
25692                 If (Me._connection Is Nothing) Then
25693                     Me.InitConnection
25694                 End If
25695                 Return Me._connection
25696             End Get
25697             Set
25698                 Me._connection = value
25699                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
25700                     Me.Adapter.InsertCommand.Connection = value
25701                 End If
25702                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
25703                     Me.Adapter.DeleteCommand.Connection = value
25704                 End If
25705                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
25706                     Me.Adapter.UpdateCommand.Connection = value
25707                 End If
25708                 Dim i As Integer = 0
25709                 Do While (i < Me.CommandCollection.Length)
25710                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
25711                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
25712                     End If
25713                     i = (i + 1)
25714                 Loop
25715             End Set
25716         End Property
25717         
25718         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
25719          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
25720         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
25721             Get
25722                 Return Me._transaction
25723             End Get
25724             Set
25725                 Me._transaction = value
25726                 Dim i As Integer = 0
25727                 Do While (i < Me.CommandCollection.Length)
25728                     Me.CommandCollection(i).Transaction = Me._transaction
25729                     i = (i + 1)
25730                 Loop
25731                 If ((Not (Me.Adapter) Is Nothing) _
25732                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
25733                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
25734                 End If
25735                 If ((Not (Me.Adapter) Is Nothing) _
25736                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
25737                     Me.Adapter.InsertCommand.Transaction = Me._transaction
25738                 End If
25739                 If ((Not (Me.Adapter) Is Nothing) _
25740                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
25741                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
25742                 End If
25743             End Set
25744         End Property
25745         
25746         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
25747          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
25748         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
25749             Get
25750                 If (Me._commandCollection Is Nothing) Then
25751                     Me.InitCommandCollection
25752                 End If
25753                 Return Me._commandCollection
25754             End Get
25755         End Property
25756         
25757         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
25758          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
25759         Public Property ClearBeforeFill() As Boolean
25760             Get
25761                 Return Me._clearBeforeFill
25762             End Get
25763             Set
25764                 Me._clearBeforeFill = value
25765             End Set
25766         End Property
25767         
25768         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
25769          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
25770         Private Sub InitAdapter()
25771             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
25772             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
25773             tableMapping.SourceTable = "Table"
25774             tableMapping.DataSetTable = "BusFeePayment_Student"
25775             tableMapping.ColumnMappings.Add("Id", "Id")
25776             tableMapping.ColumnMappings.Add("BFP_ID", "BFP_ID")
25777             tableMapping.ColumnMappings.Add("PaymentID", "PaymentID")
25778             tableMapping.ColumnMappings.Add("BusHolderID", "BusHolderID")
25779             tableMapping.ColumnMappings.Add("Session", "Session")
25780             tableMapping.ColumnMappings.Add("Installment", "Installment")
25781             tableMapping.ColumnMappings.Add("TotalFee", "TotalFee")
25782             tableMapping.ColumnMappings.Add("DiscountPer", "DiscountPer")
25783             tableMapping.ColumnMappings.Add("DiscountAmt", "DiscountAmt")
25784             tableMapping.ColumnMappings.Add("PreviousDue", "PreviousDue")
25785             tableMapping.ColumnMappings.Add("Fine", "Fine")
25786             tableMapping.ColumnMappings.Add("GrandTotal", "GrandTotal")
25787             tableMapping.ColumnMappings.Add("TotalPaid", "TotalPaid")
25788             tableMapping.ColumnMappings.Add("ModeOfPayment", "ModeOfPayment")
25789             tableMapping.ColumnMappings.Add("PaymentModeDetails", "PaymentModeDetails")
25790             tableMapping.ColumnMappings.Add("PaymentDate", "PaymentDate")
25791             tableMapping.ColumnMappings.Add("PaymentDue", "PaymentDue")
25792             tableMapping.ColumnMappings.Add("ClassType", "ClassType")
25793             tableMapping.ColumnMappings.Add("SchoolType", "SchoolType")
25794             tableMapping.ColumnMappings.Add("Class", "Class")
25795             tableMapping.ColumnMappings.Add("Section", "Section")
25796             Me._adapter.TableMappings.Add(tableMapping)
25797             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
25798             Me._adapter.DeleteCommand.Connection = Me.Connection
25799             Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[BusFeePayment_Student] WHERE (([Id] = @Original_Id) AND ([BFP_"& _
25800                 "ID] = @Original_BFP_ID) AND ([PaymentID] = @Original_PaymentID) AND ([BusHolderI"& _
25801                 "D] = @Original_BusHolderID) AND ([Session] = @Original_Session) AND ([Installmen"& _
25802                 "t] = @Original_Installment) AND ([TotalFee] = @Original_TotalFee) AND ([Discount"& _
25803                 "Per] = @Original_DiscountPer) AND ([DiscountAmt] = @Original_DiscountAmt) AND (["& _
25804                 "PreviousDue] = @Original_PreviousDue) AND ([Fine] = @Original_Fine) AND ([GrandT"& _
25805                 "otal] = @Original_GrandTotal) AND ([TotalPaid] = @Original_TotalPaid) AND ([Mode"& _
25806                 "OfPayment] = @Original_ModeOfPayment) AND ((@IsNull_PaymentModeDetails = 1 AND ["& _
25807                 "PaymentModeDetails] IS NULL) OR ([PaymentModeDetails] = @Original_PaymentModeDet"& _
25808                 "ails)) AND ([PaymentDate] = @Original_PaymentDate) AND ([PaymentDue] = @Original"& _
25809                 "_PaymentDue) AND ([ClassType] = @Original_ClassType) AND ([SchoolType] = @Origin"& _
25810                 "al_SchoolType) AND ([Class] = @Original_Class) AND ([Section] = @Original_Sectio"& _
25811                 "n))"
25812             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
25813             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
25814             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BFP_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BFP_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
25815             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PaymentID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PaymentID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
25816             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BusHolderID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BusHolderID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
25817             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Session", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Session", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
25818             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Installment", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Installment", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
25819             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TotalFee", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalFee", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
25820             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DiscountPer", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "DiscountPer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
25821             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DiscountAmt", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "DiscountAmt", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
25822             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PreviousDue", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "PreviousDue", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
25823             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Fine", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Fine", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
25824             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GrandTotal", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "GrandTotal", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
25825             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TotalPaid", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalPaid", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
25826             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ModeOfPayment", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ModeOfPayment", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
25827             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_PaymentModeDetails", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PaymentModeDetails", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
25828             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PaymentModeDetails", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PaymentModeDetails", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
25829             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PaymentDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PaymentDate", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
25830             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PaymentDue", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "PaymentDue", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
25831             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ClassType", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ClassType", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
25832             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SchoolType", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SchoolType", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
25833             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Class", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Class", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
25834             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Section", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Section", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
25835             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
25836             Me._adapter.InsertCommand.Connection = Me.Connection
25837             Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[BusFeePayment_Student] ([BFP_ID], [PaymentID], [BusHolderID], "& _
25838                 "[Session], [Installment], [TotalFee], [DiscountPer], [DiscountAmt], [PreviousDue"& _
25839                 "], [Fine], [GrandTotal], [TotalPaid], [ModeOfPayment], [PaymentModeDetails], [Pa"& _
25840                 "ymentDate], [PaymentDue], [ClassType], [SchoolType], [Class], [Section]) VALUES "& _
25841                 "(@BFP_ID, @PaymentID, @BusHolderID, @Session, @Installment, @TotalFee, @Discount"& _
25842                 "Per, @DiscountAmt, @PreviousDue, @Fine, @GrandTotal, @TotalPaid, @ModeOfPayment,"& _
25843                 " @PaymentModeDetails, @PaymentDate, @PaymentDue, @ClassType, @SchoolType, @Class"& _
25844                 ", @Section);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Id, BFP_ID, PaymentID, BusHolderID, Session, Installment, T"& _
25845                 "otalFee, DiscountPer, DiscountAmt, PreviousDue, Fine, GrandTotal, TotalPaid, Mod"& _
25846                 "eOfPayment, PaymentModeDetails, PaymentDate, PaymentDue, ClassType, SchoolType, "& _
25847                 "Class, Section FROM BusFeePayment_Student WHERE (Id = SCOPE_IDENTITY())"
25848             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
25849             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BFP_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BFP_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
25850             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PaymentID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PaymentID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
25851             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BusHolderID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BusHolderID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
25852             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Session", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Session", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
25853             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Installment", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Installment", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
25854             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TotalFee", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalFee", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
25855             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DiscountPer", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "DiscountPer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
25856             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DiscountAmt", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "DiscountAmt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
25857             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PreviousDue", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "PreviousDue", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
25858             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Fine", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Fine", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
25859             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GrandTotal", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "GrandTotal", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
25860             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TotalPaid", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalPaid", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
25861             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ModeOfPayment", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ModeOfPayment", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
25862             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PaymentModeDetails", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PaymentModeDetails", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
25863             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PaymentDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PaymentDate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
25864             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PaymentDue", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "PaymentDue", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
25865             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ClassType", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ClassType", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
25866             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SchoolType", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SchoolType", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
25867             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Class", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Class", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
25868             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Section", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Section", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
25869             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
25870             Me._adapter.UpdateCommand.Connection = Me.Connection
25871             Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[BusFeePayment_Student] SET [BFP_ID] = @BFP_ID, [PaymentID] = @Payme"& _
25872                 "ntID, [BusHolderID] = @BusHolderID, [Session] = @Session, [Installment] = @Insta"& _
25873                 "llment, [TotalFee] = @TotalFee, [DiscountPer] = @DiscountPer, [DiscountAmt] = @D"& _
25874                 "iscountAmt, [PreviousDue] = @PreviousDue, [Fine] = @Fine, [GrandTotal] = @GrandT"& _
25875                 "otal, [TotalPaid] = @TotalPaid, [ModeOfPayment] = @ModeOfPayment, [PaymentModeDe"& _
25876                 "tails] = @PaymentModeDetails, [PaymentDate] = @PaymentDate, [PaymentDue] = @Paym"& _
25877                 "entDue, [ClassType] = @ClassType, [SchoolType] = @SchoolType, [Class] = @Class, "& _
25878                 "[Section] = @Section WHERE (([Id] = @Original_Id) AND ([BFP_ID] = @Original_BFP_"& _
25879                 "ID) AND ([PaymentID] = @Original_PaymentID) AND ([BusHolderID] = @Original_BusHo"& _
25880                 "lderID) AND ([Session] = @Original_Session) AND ([Installment] = @Original_Insta"& _
25881                 "llment) AND ([TotalFee] = @Original_TotalFee) AND ([DiscountPer] = @Original_Dis"& _
25882                 "countPer) AND ([DiscountAmt] = @Original_DiscountAmt) AND ([PreviousDue] = @Orig"& _
25883                 "inal_PreviousDue) AND ([Fine] = @Original_Fine) AND ([GrandTotal] = @Original_Gr"& _
25884                 "andTotal) AND ([TotalPaid] = @Original_TotalPaid) AND ([ModeOfPayment] = @Origin"& _
25885                 "al_ModeOfPayment) AND ((@IsNull_PaymentModeDetails = 1 AND [PaymentModeDetails] "& _
25886                 "IS NULL) OR ([PaymentModeDetails] = @Original_PaymentModeDetails)) AND ([Payment"& _
25887                 "Date] = @Original_PaymentDate) AND ([PaymentDue] = @Original_PaymentDue) AND ([C"& _
25888                 "lassType] = @Original_ClassType) AND ([SchoolType] = @Original_SchoolType) AND ("& _
25889                 "[Class] = @Original_Class) AND ([Section] = @Original_Section));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Id, BFP"& _
25890                 "_ID, PaymentID, BusHolderID, Session, Installment, TotalFee, DiscountPer, Discou"& _
25891                 "ntAmt, PreviousDue, Fine, GrandTotal, TotalPaid, ModeOfPayment, PaymentModeDetai"& _
25892                 "ls, PaymentDate, PaymentDue, ClassType, SchoolType, Class, Section FROM BusFeePa"& _
25893                 "yment_Student WHERE (Id = @Id)"
25894             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
25895             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BFP_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BFP_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
25896             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PaymentID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PaymentID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
25897             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BusHolderID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BusHolderID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
25898             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Session", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Session", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
25899             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Installment", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Installment", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
25900             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TotalFee", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalFee", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
25901             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DiscountPer", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "DiscountPer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
25902             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DiscountAmt", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "DiscountAmt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
25903             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PreviousDue", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "PreviousDue", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
25904             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Fine", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Fine", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
25905             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GrandTotal", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "GrandTotal", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
25906             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TotalPaid", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalPaid", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
25907             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ModeOfPayment", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ModeOfPayment", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
25908             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PaymentModeDetails", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PaymentModeDetails", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
25909             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PaymentDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PaymentDate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
25910             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PaymentDue", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "PaymentDue", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
25911             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ClassType", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ClassType", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
25912             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SchoolType", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SchoolType", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
25913             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Class", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Class", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
25914             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Section", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Section", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
25915             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
25916             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BFP_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BFP_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
25917             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PaymentID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PaymentID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
25918             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BusHolderID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BusHolderID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
25919             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Session", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Session", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
25920             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Installment", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Installment", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
25921             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TotalFee", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalFee", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
25922             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DiscountPer", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "DiscountPer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
25923             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DiscountAmt", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "DiscountAmt", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
25924             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PreviousDue", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "PreviousDue", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
25925             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Fine", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Fine", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
25926             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GrandTotal", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "GrandTotal", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
25927             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TotalPaid", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalPaid", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
25928             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ModeOfPayment", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ModeOfPayment", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
25929             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_PaymentModeDetails", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PaymentModeDetails", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
25930             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PaymentModeDetails", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PaymentModeDetails", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
25931             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PaymentDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PaymentDate", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
25932             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PaymentDue", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "PaymentDue", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
25933             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ClassType", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ClassType", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
25934             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SchoolType", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SchoolType", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
25935             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Class", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Class", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
25936             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Section", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Section", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
25937             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "Id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
25938         End Sub
25939         
25940         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
25941          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
25942         Private Sub InitConnection()
25943             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
25944             Me._connection.ConnectionString = Global.ERP_System.My.MySettings.Default.ERPS_DBConnectionString
25945         End Sub
25946         
25947         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
25948          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
25949         Private Sub InitCommandCollection()
25950             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
25951             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
25952             Me._commandCollection(0).Connection = Me.Connection
25953             Me._commandCollection(0).CommandText = "SELECT Id, BFP_ID, PaymentID, BusHolderID, Session, Installment, TotalFee, Discou"& _
25954                 "ntPer, DiscountAmt, PreviousDue, Fine, GrandTotal, TotalPaid, ModeOfPayment, Pay"& _
25955                 "mentModeDetails, PaymentDate, PaymentDue, ClassType, SchoolType, Class, Section "& _
25956                 "FROM dbo.BusFeePayment_Student"
25957             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
25958         End Sub
25959         
25960         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
25961          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
25962          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
25963          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
25964         Public Overloads Overridable Function Fill(ByVal dataTable As ERPS_DBDataSet1.BusFeePayment_StudentDataTable) As Integer
25965             Me.Adapter.SelectCommand = Me.CommandCollection(0)
25966             If (Me.ClearBeforeFill = true) Then
25967                 dataTable.Clear
25968             End If
25969             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
25970             Return returnValue
25971         End Function
25972         
25973         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
25974          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
25975          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
25976          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
25977         Public Overloads Overridable Function GetData() As ERPS_DBDataSet1.BusFeePayment_StudentDataTable
25978             Me.Adapter.SelectCommand = Me.CommandCollection(0)
25979             Dim dataTable As ERPS_DBDataSet1.BusFeePayment_StudentDataTable = New ERPS_DBDataSet1.BusFeePayment_StudentDataTable()
25980             Me.Adapter.Fill(dataTable)
25981             Return dataTable
25982         End Function
25983         
25984         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
25985          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
25986          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
25987         Public Overloads Overridable Function Update(ByVal dataTable As ERPS_DBDataSet1.BusFeePayment_StudentDataTable) As Integer
25988             Return Me.Adapter.Update(dataTable)
25989         End Function
25990         
25991         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
25992          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
25993          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
25994         Public Overloads Overridable Function Update(ByVal dataSet As ERPS_DBDataSet1) As Integer
25995             Return Me.Adapter.Update(dataSet, "BusFeePayment_Student")
25996         End Function
25997         
25998         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
25999          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
26000          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
26001         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
26002             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
26003         End Function
26004         
26005         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
26006          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
26007          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
26008         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
26009             Return Me.Adapter.Update(dataRows)
26010         End Function
26011         
26012         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
26013          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
26014          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
26015          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
26016         Public Overloads Overridable Function Delete( _
26017                     ByVal Original_Id As Integer, _
26018                     ByVal Original_BFP_ID As Integer, _
26019                     ByVal Original_PaymentID As String, _
26020                     ByVal Original_BusHolderID As Integer, _
26021                     ByVal Original_Session As String, _
26022                     ByVal Original_Installment As String, _
26023                     ByVal Original_TotalFee As Decimal, _
26024                     ByVal Original_DiscountPer As Decimal, _
26025                     ByVal Original_DiscountAmt As Decimal, _
26026                     ByVal Original_PreviousDue As Decimal, _
26027                     ByVal Original_Fine As Decimal, _
26028                     ByVal Original_GrandTotal As Decimal, _
26029                     ByVal Original_TotalPaid As Decimal, _
26030                     ByVal Original_ModeOfPayment As String, _
26031                     ByVal Original_PaymentModeDetails As String, _
26032                     ByVal Original_PaymentDate As Date, _
26033                     ByVal Original_PaymentDue As Decimal, _
26034                     ByVal Original_ClassType As String, _
26035                     ByVal Original_SchoolType As String, _
26036                     ByVal Original_Class As String, _
26037                     ByVal Original_Section As String) As Integer
26038             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_Id,Integer)
26039             Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_BFP_ID,Integer)
26040             If (Original_PaymentID Is Nothing) Then
26041                 Throw New Global.System.ArgumentNullException("Original_PaymentID")
26042             Else
26043                 Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_PaymentID,String)
26044             End If
26045             Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_BusHolderID,Integer)
26046             If (Original_Session Is Nothing) Then
26047                 Throw New Global.System.ArgumentNullException("Original_Session")
26048             Else
26049                 Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_Session,String)
26050             End If
26051             If (Original_Installment Is Nothing) Then
26052                 Throw New Global.System.ArgumentNullException("Original_Installment")
26053             Else
26054                 Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_Installment,String)
26055             End If
26056             Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_TotalFee,Decimal)
26057             Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_DiscountPer,Decimal)
26058             Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_DiscountAmt,Decimal)
26059             Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_PreviousDue,Decimal)
26060             Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_Fine,Decimal)
26061             Me.Adapter.DeleteCommand.Parameters(11).Value = CType(Original_GrandTotal,Decimal)
26062             Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_TotalPaid,Decimal)
26063             If (Original_ModeOfPayment Is Nothing) Then
26064                 Throw New Global.System.ArgumentNullException("Original_ModeOfPayment")
26065             Else
26066                 Me.Adapter.DeleteCommand.Parameters(13).Value = CType(Original_ModeOfPayment,String)
26067             End If
26068             If (Original_PaymentModeDetails Is Nothing) Then
26069                 Me.Adapter.DeleteCommand.Parameters(14).Value = CType(1,Object)
26070                 Me.Adapter.DeleteCommand.Parameters(15).Value = Global.System.DBNull.Value
26071             Else
26072                 Me.Adapter.DeleteCommand.Parameters(14).Value = CType(0,Object)
26073                 Me.Adapter.DeleteCommand.Parameters(15).Value = CType(Original_PaymentModeDetails,String)
26074             End If
26075             Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_PaymentDate,Date)
26076             Me.Adapter.DeleteCommand.Parameters(17).Value = CType(Original_PaymentDue,Decimal)
26077             If (Original_ClassType Is Nothing) Then
26078                 Throw New Global.System.ArgumentNullException("Original_ClassType")
26079             Else
26080                 Me.Adapter.DeleteCommand.Parameters(18).Value = CType(Original_ClassType,String)
26081             End If
26082             If (Original_SchoolType Is Nothing) Then
26083                 Throw New Global.System.ArgumentNullException("Original_SchoolType")
26084             Else
26085                 Me.Adapter.DeleteCommand.Parameters(19).Value = CType(Original_SchoolType,String)
26086             End If
26087             If (Original_Class Is Nothing) Then
26088                 Throw New Global.System.ArgumentNullException("Original_Class")
26089             Else
26090                 Me.Adapter.DeleteCommand.Parameters(20).Value = CType(Original_Class,String)
26091             End If
26092             If (Original_Section Is Nothing) Then
26093                 Throw New Global.System.ArgumentNullException("Original_Section")
26094             Else
26095                 Me.Adapter.DeleteCommand.Parameters(21).Value = CType(Original_Section,String)
26096             End If
26097             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
26098             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
26099                         <> Global.System.Data.ConnectionState.Open) Then
26100                 Me.Adapter.DeleteCommand.Connection.Open
26101             End If
26102             Try
26103                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
26104                 Return returnValue
26105             Finally
26106                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
26107                     Me.Adapter.DeleteCommand.Connection.Close
26108                 End If
26109             End Try
26110         End Function
26111         
26112         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
26113          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
26114          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
26115          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
26116         Public Overloads Overridable Function Insert( _
26117                     ByVal BFP_ID As Integer, _
26118                     ByVal PaymentID As String, _
26119                     ByVal BusHolderID As Integer, _
26120                     ByVal Session As String, _
26121                     ByVal Installment As String, _
26122                     ByVal TotalFee As Decimal, _
26123                     ByVal DiscountPer As Decimal, _
26124                     ByVal DiscountAmt As Decimal, _
26125                     ByVal PreviousDue As Decimal, _
26126                     ByVal Fine As Decimal, _
26127                     ByVal GrandTotal As Decimal, _
26128                     ByVal TotalPaid As Decimal, _
26129                     ByVal ModeOfPayment As String, _
26130                     ByVal PaymentModeDetails As String, _
26131                     ByVal PaymentDate As Date, _
26132                     ByVal PaymentDue As Decimal, _
26133                     ByVal ClassType As String, _
26134                     ByVal SchoolType As String, _
26135                     ByVal _Class As String, _
26136                     ByVal Section As String) As Integer
26137             Me.Adapter.InsertCommand.Parameters(0).Value = CType(BFP_ID,Integer)
26138             If (PaymentID Is Nothing) Then
26139                 Throw New Global.System.ArgumentNullException("PaymentID")
26140             Else
26141                 Me.Adapter.InsertCommand.Parameters(1).Value = CType(PaymentID,String)
26142             End If
26143             Me.Adapter.InsertCommand.Parameters(2).Value = CType(BusHolderID,Integer)
26144             If (Session Is Nothing) Then
26145                 Throw New Global.System.ArgumentNullException("Session")
26146             Else
26147                 Me.Adapter.InsertCommand.Parameters(3).Value = CType(Session,String)
26148             End If
26149             If (Installment Is Nothing) Then
26150                 Throw New Global.System.ArgumentNullException("Installment")
26151             Else
26152                 Me.Adapter.InsertCommand.Parameters(4).Value = CType(Installment,String)
26153             End If
26154             Me.Adapter.InsertCommand.Parameters(5).Value = CType(TotalFee,Decimal)
26155             Me.Adapter.InsertCommand.Parameters(6).Value = CType(DiscountPer,Decimal)
26156             Me.Adapter.InsertCommand.Parameters(7).Value = CType(DiscountAmt,Decimal)
26157             Me.Adapter.InsertCommand.Parameters(8).Value = CType(PreviousDue,Decimal)
26158             Me.Adapter.InsertCommand.Parameters(9).Value = CType(Fine,Decimal)
26159             Me.Adapter.InsertCommand.Parameters(10).Value = CType(GrandTotal,Decimal)
26160             Me.Adapter.InsertCommand.Parameters(11).Value = CType(TotalPaid,Decimal)
26161             If (ModeOfPayment Is Nothing) Then
26162                 Throw New Global.System.ArgumentNullException("ModeOfPayment")
26163             Else
26164                 Me.Adapter.InsertCommand.Parameters(12).Value = CType(ModeOfPayment,String)
26165             End If
26166             If (PaymentModeDetails Is Nothing) Then
26167                 Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value
26168             Else
26169                 Me.Adapter.InsertCommand.Parameters(13).Value = CType(PaymentModeDetails,String)
26170             End If
26171             Me.Adapter.InsertCommand.Parameters(14).Value = CType(PaymentDate,Date)
26172             Me.Adapter.InsertCommand.Parameters(15).Value = CType(PaymentDue,Decimal)
26173             If (ClassType Is Nothing) Then
26174                 Throw New Global.System.ArgumentNullException("ClassType")
26175             Else
26176                 Me.Adapter.InsertCommand.Parameters(16).Value = CType(ClassType,String)
26177             End If
26178             If (SchoolType Is Nothing) Then
26179                 Throw New Global.System.ArgumentNullException("SchoolType")
26180             Else
26181                 Me.Adapter.InsertCommand.Parameters(17).Value = CType(SchoolType,String)
26182             End If
26183             If (_Class Is Nothing) Then
26184                 Throw New Global.System.ArgumentNullException("_Class")
26185             Else
26186                 Me.Adapter.InsertCommand.Parameters(18).Value = CType(_Class,String)
26187             End If
26188             If (Section Is Nothing) Then
26189                 Throw New Global.System.ArgumentNullException("Section")
26190             Else
26191                 Me.Adapter.InsertCommand.Parameters(19).Value = CType(Section,String)
26192             End If
26193             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
26194             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
26195                         <> Global.System.Data.ConnectionState.Open) Then
26196                 Me.Adapter.InsertCommand.Connection.Open
26197             End If
26198             Try
26199                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
26200                 Return returnValue
26201             Finally
26202                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
26203                     Me.Adapter.InsertCommand.Connection.Close
26204                 End If
26205             End Try
26206         End Function
26207         
26208         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
26209          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
26210          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
26211          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
26212         Public Overloads Overridable Function Update( _
26213                     ByVal BFP_ID As Integer, _
26214                     ByVal PaymentID As String, _
26215                     ByVal BusHolderID As Integer, _
26216                     ByVal Session As String, _
26217                     ByVal Installment As String, _
26218                     ByVal TotalFee As Decimal, _
26219                     ByVal DiscountPer As Decimal, _
26220                     ByVal DiscountAmt As Decimal, _
26221                     ByVal PreviousDue As Decimal, _
26222                     ByVal Fine As Decimal, _
26223                     ByVal GrandTotal As Decimal, _
26224                     ByVal TotalPaid As Decimal, _
26225                     ByVal ModeOfPayment As String, _
26226                     ByVal PaymentModeDetails As String, _
26227                     ByVal PaymentDate As Date, _
26228                     ByVal PaymentDue As Decimal, _
26229                     ByVal ClassType As String, _
26230                     ByVal SchoolType As String, _
26231                     ByVal _Class As String, _
26232                     ByVal Section As String, _
26233                     ByVal Original_Id As Integer, _
26234                     ByVal Original_BFP_ID As Integer, _
26235                     ByVal Original_PaymentID As String, _
26236                     ByVal Original_BusHolderID As Integer, _
26237                     ByVal Original_Session As String, _
26238                     ByVal Original_Installment As String, _
26239                     ByVal Original_TotalFee As Decimal, _
26240                     ByVal Original_DiscountPer As Decimal, _
26241                     ByVal Original_DiscountAmt As Decimal, _
26242                     ByVal Original_PreviousDue As Decimal, _
26243                     ByVal Original_Fine As Decimal, _
26244                     ByVal Original_GrandTotal As Decimal, _
26245                     ByVal Original_TotalPaid As Decimal, _
26246                     ByVal Original_ModeOfPayment As String, _
26247                     ByVal Original_PaymentModeDetails As String, _
26248                     ByVal Original_PaymentDate As Date, _
26249                     ByVal Original_PaymentDue As Decimal, _
26250                     ByVal Original_ClassType As String, _
26251                     ByVal Original_SchoolType As String, _
26252                     ByVal Original_Class As String, _
26253                     ByVal Original_Section As String, _
26254                     ByVal Id As Integer) As Integer
26255             Me.Adapter.UpdateCommand.Parameters(0).Value = CType(BFP_ID,Integer)
26256             If (PaymentID Is Nothing) Then
26257                 Throw New Global.System.ArgumentNullException("PaymentID")
26258             Else
26259                 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(PaymentID,String)
26260             End If
26261             Me.Adapter.UpdateCommand.Parameters(2).Value = CType(BusHolderID,Integer)
26262             If (Session Is Nothing) Then
26263                 Throw New Global.System.ArgumentNullException("Session")
26264             Else
26265                 Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Session,String)
26266             End If
26267             If (Installment Is Nothing) Then
26268                 Throw New Global.System.ArgumentNullException("Installment")
26269             Else
26270                 Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Installment,String)
26271             End If
26272             Me.Adapter.UpdateCommand.Parameters(5).Value = CType(TotalFee,Decimal)
26273             Me.Adapter.UpdateCommand.Parameters(6).Value = CType(DiscountPer,Decimal)
26274             Me.Adapter.UpdateCommand.Parameters(7).Value = CType(DiscountAmt,Decimal)
26275             Me.Adapter.UpdateCommand.Parameters(8).Value = CType(PreviousDue,Decimal)
26276             Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Fine,Decimal)
26277             Me.Adapter.UpdateCommand.Parameters(10).Value = CType(GrandTotal,Decimal)
26278             Me.Adapter.UpdateCommand.Parameters(11).Value = CType(TotalPaid,Decimal)
26279             If (ModeOfPayment Is Nothing) Then
26280                 Throw New Global.System.ArgumentNullException("ModeOfPayment")
26281             Else
26282                 Me.Adapter.UpdateCommand.Parameters(12).Value = CType(ModeOfPayment,String)
26283             End If
26284             If (PaymentModeDetails Is Nothing) Then
26285                 Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value
26286             Else
26287                 Me.Adapter.UpdateCommand.Parameters(13).Value = CType(PaymentModeDetails,String)
26288             End If
26289             Me.Adapter.UpdateCommand.Parameters(14).Value = CType(PaymentDate,Date)
26290             Me.Adapter.UpdateCommand.Parameters(15).Value = CType(PaymentDue,Decimal)
26291             If (ClassType Is Nothing) Then
26292                 Throw New Global.System.ArgumentNullException("ClassType")
26293             Else
26294                 Me.Adapter.UpdateCommand.Parameters(16).Value = CType(ClassType,String)
26295             End If
26296             If (SchoolType Is Nothing) Then
26297                 Throw New Global.System.ArgumentNullException("SchoolType")
26298             Else
26299                 Me.Adapter.UpdateCommand.Parameters(17).Value = CType(SchoolType,String)
26300             End If
26301             If (_Class Is Nothing) Then
26302                 Throw New Global.System.ArgumentNullException("_Class")
26303             Else
26304                 Me.Adapter.UpdateCommand.Parameters(18).Value = CType(_Class,String)
26305             End If
26306             If (Section Is Nothing) Then
26307                 Throw New Global.System.ArgumentNullException("Section")
26308             Else
26309                 Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Section,String)
26310             End If
26311             Me.Adapter.UpdateCommand.Parameters(20).Value = CType(Original_Id,Integer)
26312             Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_BFP_ID,Integer)
26313             If (Original_PaymentID Is Nothing) Then
26314                 Throw New Global.System.ArgumentNullException("Original_PaymentID")
26315             Else
26316                 Me.Adapter.UpdateCommand.Parameters(22).Value = CType(Original_PaymentID,String)
26317             End If
26318             Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Original_BusHolderID,Integer)
26319             If (Original_Session Is Nothing) Then
26320                 Throw New Global.System.ArgumentNullException("Original_Session")
26321             Else
26322                 Me.Adapter.UpdateCommand.Parameters(24).Value = CType(Original_Session,String)
26323             End If
26324             If (Original_Installment Is Nothing) Then
26325                 Throw New Global.System.ArgumentNullException("Original_Installment")
26326             Else
26327                 Me.Adapter.UpdateCommand.Parameters(25).Value = CType(Original_Installment,String)
26328             End If
26329             Me.Adapter.UpdateCommand.Parameters(26).Value = CType(Original_TotalFee,Decimal)
26330             Me.Adapter.UpdateCommand.Parameters(27).Value = CType(Original_DiscountPer,Decimal)
26331             Me.Adapter.UpdateCommand.Parameters(28).Value = CType(Original_DiscountAmt,Decimal)
26332             Me.Adapter.UpdateCommand.Parameters(29).Value = CType(Original_PreviousDue,Decimal)
26333             Me.Adapter.UpdateCommand.Parameters(30).Value = CType(Original_Fine,Decimal)
26334             Me.Adapter.UpdateCommand.Parameters(31).Value = CType(Original_GrandTotal,Decimal)
26335             Me.Adapter.UpdateCommand.Parameters(32).Value = CType(Original_TotalPaid,Decimal)
26336             If (Original_ModeOfPayment Is Nothing) Then
26337                 Throw New Global.System.ArgumentNullException("Original_ModeOfPayment")
26338             Else
26339                 Me.Adapter.UpdateCommand.Parameters(33).Value = CType(Original_ModeOfPayment,String)
26340             End If
26341             If (Original_PaymentModeDetails Is Nothing) Then
26342                 Me.Adapter.UpdateCommand.Parameters(34).Value = CType(1,Object)
26343                 Me.Adapter.UpdateCommand.Parameters(35).Value = Global.System.DBNull.Value
26344             Else
26345                 Me.Adapter.UpdateCommand.Parameters(34).Value = CType(0,Object)
26346                 Me.Adapter.UpdateCommand.Parameters(35).Value = CType(Original_PaymentModeDetails,String)
26347             End If
26348             Me.Adapter.UpdateCommand.Parameters(36).Value = CType(Original_PaymentDate,Date)
26349             Me.Adapter.UpdateCommand.Parameters(37).Value = CType(Original_PaymentDue,Decimal)
26350             If (Original_ClassType Is Nothing) Then
26351                 Throw New Global.System.ArgumentNullException("Original_ClassType")
26352             Else
26353                 Me.Adapter.UpdateCommand.Parameters(38).Value = CType(Original_ClassType,String)
26354             End If
26355             If (Original_SchoolType Is Nothing) Then
26356                 Throw New Global.System.ArgumentNullException("Original_SchoolType")
26357             Else
26358                 Me.Adapter.UpdateCommand.Parameters(39).Value = CType(Original_SchoolType,String)
26359             End If
26360             If (Original_Class Is Nothing) Then
26361                 Throw New Global.System.ArgumentNullException("Original_Class")
26362             Else
26363                 Me.Adapter.UpdateCommand.Parameters(40).Value = CType(Original_Class,String)
26364             End If
26365             If (Original_Section Is Nothing) Then
26366                 Throw New Global.System.ArgumentNullException("Original_Section")
26367             Else
26368                 Me.Adapter.UpdateCommand.Parameters(41).Value = CType(Original_Section,String)
26369             End If
26370             Me.Adapter.UpdateCommand.Parameters(42).Value = CType(Id,Integer)
26371             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
26372             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
26373                         <> Global.System.Data.ConnectionState.Open) Then
26374                 Me.Adapter.UpdateCommand.Connection.Open
26375             End If
26376             Try
26377                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
26378                 Return returnValue
26379             Finally
26380                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
26381                     Me.Adapter.UpdateCommand.Connection.Close
26382                 End If
26383             End Try
26384         End Function
26385         
26386         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
26387          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
26388          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
26389          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
26390         Public Overloads Overridable Function Update( _
26391                     ByVal BFP_ID As Integer, _
26392                     ByVal PaymentID As String, _
26393                     ByVal BusHolderID As Integer, _
26394                     ByVal Session As String, _
26395                     ByVal Installment As String, _
26396                     ByVal TotalFee As Decimal, _
26397                     ByVal DiscountPer As Decimal, _
26398                     ByVal DiscountAmt As Decimal, _
26399                     ByVal PreviousDue As Decimal, _
26400                     ByVal Fine As Decimal, _
26401                     ByVal GrandTotal As Decimal, _
26402                     ByVal TotalPaid As Decimal, _
26403                     ByVal ModeOfPayment As String, _
26404                     ByVal PaymentModeDetails As String, _
26405                     ByVal PaymentDate As Date, _
26406                     ByVal PaymentDue As Decimal, _
26407                     ByVal ClassType As String, _
26408                     ByVal SchoolType As String, _
26409                     ByVal _Class As String, _
26410                     ByVal Section As String, _
26411                     ByVal Original_Id As Integer, _
26412                     ByVal Original_BFP_ID As Integer, _
26413                     ByVal Original_PaymentID As String, _
26414                     ByVal Original_BusHolderID As Integer, _
26415                     ByVal Original_Session As String, _
26416                     ByVal Original_Installment As String, _
26417                     ByVal Original_TotalFee As Decimal, _
26418                     ByVal Original_DiscountPer As Decimal, _
26419                     ByVal Original_DiscountAmt As Decimal, _
26420                     ByVal Original_PreviousDue As Decimal, _
26421                     ByVal Original_Fine As Decimal, _
26422                     ByVal Original_GrandTotal As Decimal, _
26423                     ByVal Original_TotalPaid As Decimal, _
26424                     ByVal Original_ModeOfPayment As String, _
26425                     ByVal Original_PaymentModeDetails As String, _
26426                     ByVal Original_PaymentDate As Date, _
26427                     ByVal Original_PaymentDue As Decimal, _
26428                     ByVal Original_ClassType As String, _
26429                     ByVal Original_SchoolType As String, _
26430                     ByVal Original_Class As String, _
26431                     ByVal Original_Section As String) As Integer
26432             Return Me.Update(BFP_ID, PaymentID, BusHolderID, Session, Installment, TotalFee, DiscountPer, DiscountAmt, PreviousDue, Fine, GrandTotal, TotalPaid, ModeOfPayment, PaymentModeDetails, PaymentDate, PaymentDue, ClassType, SchoolType, _Class, Section, Original_Id, Original_BFP_ID, Original_PaymentID, Original_BusHolderID, Original_Session, Original_Installment, Original_TotalFee, Original_DiscountPer, Original_DiscountAmt, Original_PreviousDue, Original_Fine, Original_GrandTotal, Original_TotalPaid, Original_ModeOfPayment, Original_PaymentModeDetails, Original_PaymentDate, Original_PaymentDue, Original_ClassType, Original_SchoolType, Original_Class, Original_Section, Original_Id)
26433         End Function
26434     End Class
26435     
26436     '''<summary>
26437     '''Represents the connection and commands used to retrieve and save data.
26438     '''</summary>
26439     <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
26440      Global.System.ComponentModel.ToolboxItem(true), _
26441      Global.System.ComponentModel.DataObjectAttribute(true), _
26442      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
26443         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
26444      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
26445     Partial Public Class BusInfoTableAdapter
26446         Inherits Global.System.ComponentModel.Component
26447         
26448         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
26449         
26450         Private _connection As Global.System.Data.SqlClient.SqlConnection
26451         
26452         Private _transaction As Global.System.Data.SqlClient.SqlTransaction
26453         
26454         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
26455         
26456         Private _clearBeforeFill As Boolean
26457         
26458         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
26459          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
26460         Public Sub New()
26461             MyBase.New
26462             Me.ClearBeforeFill = true
26463         End Sub
26464         
26465         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
26466          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
26467         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
26468             Get
26469                 If (Me._adapter Is Nothing) Then
26470                     Me.InitAdapter
26471                 End If
26472                 Return Me._adapter
26473             End Get
26474         End Property
26475         
26476         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
26477          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
26478         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
26479             Get
26480                 If (Me._connection Is Nothing) Then
26481                     Me.InitConnection
26482                 End If
26483                 Return Me._connection
26484             End Get
26485             Set
26486                 Me._connection = value
26487                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
26488                     Me.Adapter.InsertCommand.Connection = value
26489                 End If
26490                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
26491                     Me.Adapter.DeleteCommand.Connection = value
26492                 End If
26493                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
26494                     Me.Adapter.UpdateCommand.Connection = value
26495                 End If
26496                 Dim i As Integer = 0
26497                 Do While (i < Me.CommandCollection.Length)
26498                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
26499                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
26500                     End If
26501                     i = (i + 1)
26502                 Loop
26503             End Set
26504         End Property
26505         
26506         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
26507          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
26508         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
26509             Get
26510                 Return Me._transaction
26511             End Get
26512             Set
26513                 Me._transaction = value
26514                 Dim i As Integer = 0
26515                 Do While (i < Me.CommandCollection.Length)
26516                     Me.CommandCollection(i).Transaction = Me._transaction
26517                     i = (i + 1)
26518                 Loop
26519                 If ((Not (Me.Adapter) Is Nothing) _
26520                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
26521                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
26522                 End If
26523                 If ((Not (Me.Adapter) Is Nothing) _
26524                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
26525                     Me.Adapter.InsertCommand.Transaction = Me._transaction
26526                 End If
26527                 If ((Not (Me.Adapter) Is Nothing) _
26528                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
26529                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
26530                 End If
26531             End Set
26532         End Property
26533         
26534         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
26535          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
26536         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
26537             Get
26538                 If (Me._commandCollection Is Nothing) Then
26539                     Me.InitCommandCollection
26540                 End If
26541                 Return Me._commandCollection
26542             End Get
26543         End Property
26544         
26545         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
26546          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
26547         Public Property ClearBeforeFill() As Boolean
26548             Get
26549                 Return Me._clearBeforeFill
26550             End Get
26551             Set
26552                 Me._clearBeforeFill = value
26553             End Set
26554         End Property
26555         
26556         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
26557          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
26558         Private Sub InitAdapter()
26559             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
26560             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
26561             tableMapping.SourceTable = "Table"
26562             tableMapping.DataSetTable = "BusInfo"
26563             tableMapping.ColumnMappings.Add("BusNo", "BusNo")
26564             tableMapping.ColumnMappings.Add("DriverName", "DriverName")
26565             tableMapping.ColumnMappings.Add("ContactNo", "ContactNo")
26566             tableMapping.ColumnMappings.Add("SupporterName", "SupporterName")
26567             tableMapping.ColumnMappings.Add("S_ContactNo", "S_ContactNo")
26568             Me._adapter.TableMappings.Add(tableMapping)
26569             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
26570             Me._adapter.DeleteCommand.Connection = Me.Connection
26571             Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[BusInfo] WHERE (([BusNo] = @Original_BusNo) AND ([DriverName] "& _
26572                 "= @Original_DriverName) AND ([ContactNo] = @Original_ContactNo) AND ((@IsNull_Su"& _
26573                 "pporterName = 1 AND [SupporterName] IS NULL) OR ([SupporterName] = @Original_Sup"& _
26574                 "porterName)) AND ((@IsNull_S_ContactNo = 1 AND [S_ContactNo] IS NULL) OR ([S_Con"& _
26575                 "tactNo] = @Original_S_ContactNo)))"
26576             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
26577             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BusNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BusNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
26578             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DriverName", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DriverName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
26579             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ContactNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContactNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
26580             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SupporterName", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SupporterName", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
26581             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SupporterName", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SupporterName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
26582             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_S_ContactNo", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "S_ContactNo", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
26583             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_S_ContactNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "S_ContactNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
26584             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
26585             Me._adapter.InsertCommand.Connection = Me.Connection
26586             Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[BusInfo] ([BusNo], [DriverName], [ContactNo], [SupporterName],"& _
26587                 " [S_ContactNo]) VALUES (@BusNo, @DriverName, @ContactNo, @SupporterName, @S_Cont"& _
26588                 "actNo);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT BusNo, DriverName, ContactNo, SupporterName, S_ContactNo FROM Bu"& _
26589                 "sInfo WHERE (BusNo = @BusNo)"
26590             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
26591             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BusNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BusNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
26592             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DriverName", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DriverName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
26593             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ContactNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContactNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
26594             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SupporterName", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SupporterName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
26595             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@S_ContactNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "S_ContactNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
26596             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
26597             Me._adapter.UpdateCommand.Connection = Me.Connection
26598             Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[BusInfo] SET [BusNo] = @BusNo, [DriverName] = @DriverName, [Contact"& _
26599                 "No] = @ContactNo, [SupporterName] = @SupporterName, [S_ContactNo] = @S_ContactNo"& _
26600                 " WHERE (([BusNo] = @Original_BusNo) AND ([DriverName] = @Original_DriverName) AN"& _
26601                 "D ([ContactNo] = @Original_ContactNo) AND ((@IsNull_SupporterName = 1 AND [Suppo"& _
26602                 "rterName] IS NULL) OR ([SupporterName] = @Original_SupporterName)) AND ((@IsNull"& _
26603                 "_S_ContactNo = 1 AND [S_ContactNo] IS NULL) OR ([S_ContactNo] = @Original_S_Cont"& _
26604                 "actNo)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT BusNo, DriverName, ContactNo, SupporterName, S_ContactNo FROM "& _
26605                 "BusInfo WHERE (BusNo = @BusNo)"
26606             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
26607             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BusNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BusNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
26608             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DriverName", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DriverName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
26609             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ContactNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContactNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
26610             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SupporterName", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SupporterName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
26611             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@S_ContactNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "S_ContactNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
26612             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BusNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BusNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
26613             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DriverName", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DriverName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
26614             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ContactNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContactNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
26615             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SupporterName", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SupporterName", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
26616             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SupporterName", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SupporterName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
26617             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_S_ContactNo", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "S_ContactNo", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
26618             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_S_ContactNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "S_ContactNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
26619         End Sub
26620         
26621         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
26622          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
26623         Private Sub InitConnection()
26624             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
26625             Me._connection.ConnectionString = Global.ERP_System.My.MySettings.Default.ERPS_DBConnectionString
26626         End Sub
26627         
26628         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
26629          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
26630         Private Sub InitCommandCollection()
26631             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
26632             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
26633             Me._commandCollection(0).Connection = Me.Connection
26634             Me._commandCollection(0).CommandText = "SELECT BusNo, DriverName, ContactNo, SupporterName, S_ContactNo FROM dbo.BusInfo"
26635             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
26636         End Sub
26637         
26638         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
26639          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
26640          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
26641          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
26642         Public Overloads Overridable Function Fill(ByVal dataTable As ERPS_DBDataSet1.BusInfoDataTable) As Integer
26643             Me.Adapter.SelectCommand = Me.CommandCollection(0)
26644             If (Me.ClearBeforeFill = true) Then
26645                 dataTable.Clear
26646             End If
26647             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
26648             Return returnValue
26649         End Function
26650         
26651         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
26652          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
26653          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
26654          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
26655         Public Overloads Overridable Function GetData() As ERPS_DBDataSet1.BusInfoDataTable
26656             Me.Adapter.SelectCommand = Me.CommandCollection(0)
26657             Dim dataTable As ERPS_DBDataSet1.BusInfoDataTable = New ERPS_DBDataSet1.BusInfoDataTable()
26658             Me.Adapter.Fill(dataTable)
26659             Return dataTable
26660         End Function
26661         
26662         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
26663          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
26664          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
26665         Public Overloads Overridable Function Update(ByVal dataTable As ERPS_DBDataSet1.BusInfoDataTable) As Integer
26666             Return Me.Adapter.Update(dataTable)
26667         End Function
26668         
26669         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
26670          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
26671          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
26672         Public Overloads Overridable Function Update(ByVal dataSet As ERPS_DBDataSet1) As Integer
26673             Return Me.Adapter.Update(dataSet, "BusInfo")
26674         End Function
26675         
26676         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
26677          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
26678          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
26679         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
26680             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
26681         End Function
26682         
26683         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
26684          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
26685          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
26686         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
26687             Return Me.Adapter.Update(dataRows)
26688         End Function
26689         
26690         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
26691          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
26692          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
26693          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
26694         Public Overloads Overridable Function Delete(ByVal Original_BusNo As String, ByVal Original_DriverName As String, ByVal Original_ContactNo As String, ByVal Original_SupporterName As String, ByVal Original_S_ContactNo As String) As Integer
26695             If (Original_BusNo Is Nothing) Then
26696                 Throw New Global.System.ArgumentNullException("Original_BusNo")
26697             Else
26698                 Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_BusNo,String)
26699             End If
26700             If (Original_DriverName Is Nothing) Then
26701                 Throw New Global.System.ArgumentNullException("Original_DriverName")
26702             Else
26703                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_DriverName,String)
26704             End If
26705             If (Original_ContactNo Is Nothing) Then
26706                 Throw New Global.System.ArgumentNullException("Original_ContactNo")
26707             Else
26708                 Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_ContactNo,String)
26709             End If
26710             If (Original_SupporterName Is Nothing) Then
26711                 Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object)
26712                 Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value
26713             Else
26714                 Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object)
26715                 Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_SupporterName,String)
26716             End If
26717             If (Original_S_ContactNo Is Nothing) Then
26718                 Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object)
26719                 Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value
26720             Else
26721                 Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object)
26722                 Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_S_ContactNo,String)
26723             End If
26724             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
26725             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
26726                         <> Global.System.Data.ConnectionState.Open) Then
26727                 Me.Adapter.DeleteCommand.Connection.Open
26728             End If
26729             Try
26730                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
26731                 Return returnValue
26732             Finally
26733                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
26734                     Me.Adapter.DeleteCommand.Connection.Close
26735                 End If
26736             End Try
26737         End Function
26738         
26739         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
26740          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
26741          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
26742          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
26743         Public Overloads Overridable Function Insert(ByVal BusNo As String, ByVal DriverName As String, ByVal ContactNo As String, ByVal SupporterName As String, ByVal S_ContactNo As String) As Integer
26744             If (BusNo Is Nothing) Then
26745                 Throw New Global.System.ArgumentNullException("BusNo")
26746             Else
26747                 Me.Adapter.InsertCommand.Parameters(0).Value = CType(BusNo,String)
26748             End If
26749             If (DriverName Is Nothing) Then
26750                 Throw New Global.System.ArgumentNullException("DriverName")
26751             Else
26752                 Me.Adapter.InsertCommand.Parameters(1).Value = CType(DriverName,String)
26753             End If
26754             If (ContactNo Is Nothing) Then
26755                 Throw New Global.System.ArgumentNullException("ContactNo")
26756             Else
26757                 Me.Adapter.InsertCommand.Parameters(2).Value = CType(ContactNo,String)
26758             End If
26759             If (SupporterName Is Nothing) Then
26760                 Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value
26761             Else
26762                 Me.Adapter.InsertCommand.Parameters(3).Value = CType(SupporterName,String)
26763             End If
26764             If (S_ContactNo Is Nothing) Then
26765                 Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value
26766             Else
26767                 Me.Adapter.InsertCommand.Parameters(4).Value = CType(S_ContactNo,String)
26768             End If
26769             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
26770             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
26771                         <> Global.System.Data.ConnectionState.Open) Then
26772                 Me.Adapter.InsertCommand.Connection.Open
26773             End If
26774             Try
26775                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
26776                 Return returnValue
26777             Finally
26778                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
26779                     Me.Adapter.InsertCommand.Connection.Close
26780                 End If
26781             End Try
26782         End Function
26783         
26784         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
26785          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
26786          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
26787          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
26788         Public Overloads Overridable Function Update(ByVal BusNo As String, ByVal DriverName As String, ByVal ContactNo As String, ByVal SupporterName As String, ByVal S_ContactNo As String, ByVal Original_BusNo As String, ByVal Original_DriverName As String, ByVal Original_ContactNo As String, ByVal Original_SupporterName As String, ByVal Original_S_ContactNo As String) As Integer
26789             If (BusNo Is Nothing) Then
26790                 Throw New Global.System.ArgumentNullException("BusNo")
26791             Else
26792                 Me.Adapter.UpdateCommand.Parameters(0).Value = CType(BusNo,String)
26793             End If
26794             If (DriverName Is Nothing) Then
26795                 Throw New Global.System.ArgumentNullException("DriverName")
26796             Else
26797                 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(DriverName,String)
26798             End If
26799             If (ContactNo Is Nothing) Then
26800                 Throw New Global.System.ArgumentNullException("ContactNo")
26801             Else
26802                 Me.Adapter.UpdateCommand.Parameters(2).Value = CType(ContactNo,String)
26803             End If
26804             If (SupporterName Is Nothing) Then
26805                 Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value
26806             Else
26807                 Me.Adapter.UpdateCommand.Parameters(3).Value = CType(SupporterName,String)
26808             End If
26809             If (S_ContactNo Is Nothing) Then
26810                 Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value
26811             Else
26812                 Me.Adapter.UpdateCommand.Parameters(4).Value = CType(S_ContactNo,String)
26813             End If
26814             If (Original_BusNo Is Nothing) Then
26815                 Throw New Global.System.ArgumentNullException("Original_BusNo")
26816             Else
26817                 Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_BusNo,String)
26818             End If
26819             If (Original_DriverName Is Nothing) Then
26820                 Throw New Global.System.ArgumentNullException("Original_DriverName")
26821             Else
26822                 Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_DriverName,String)
26823             End If
26824             If (Original_ContactNo Is Nothing) Then
26825                 Throw New Global.System.ArgumentNullException("Original_ContactNo")
26826             Else
26827                 Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_ContactNo,String)
26828             End If
26829             If (Original_SupporterName Is Nothing) Then
26830                 Me.Adapter.UpdateCommand.Parameters(8).Value = CType(1,Object)
26831                 Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value
26832             Else
26833                 Me.Adapter.UpdateCommand.Parameters(8).Value = CType(0,Object)
26834                 Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_SupporterName,String)
26835             End If
26836             If (Original_S_ContactNo Is Nothing) Then
26837                 Me.Adapter.UpdateCommand.Parameters(10).Value = CType(1,Object)
26838                 Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value
26839             Else
26840                 Me.Adapter.UpdateCommand.Parameters(10).Value = CType(0,Object)
26841                 Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_S_ContactNo,String)
26842             End If
26843             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
26844             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
26845                         <> Global.System.Data.ConnectionState.Open) Then
26846                 Me.Adapter.UpdateCommand.Connection.Open
26847             End If
26848             Try
26849                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
26850                 Return returnValue
26851             Finally
26852                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
26853                     Me.Adapter.UpdateCommand.Connection.Close
26854                 End If
26855             End Try
26856         End Function
26857         
26858         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
26859          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
26860          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
26861          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
26862         Public Overloads Overridable Function Update(ByVal DriverName As String, ByVal ContactNo As String, ByVal SupporterName As String, ByVal S_ContactNo As String, ByVal Original_BusNo As String, ByVal Original_DriverName As String, ByVal Original_ContactNo As String, ByVal Original_SupporterName As String, ByVal Original_S_ContactNo As String) As Integer
26863             Return Me.Update(Original_BusNo, DriverName, ContactNo, SupporterName, S_ContactNo, Original_BusNo, Original_DriverName, Original_ContactNo, Original_SupporterName, Original_S_ContactNo)
26864         End Function
26865     End Class
26866     
26867     '''<summary>
26868     '''Represents the connection and commands used to retrieve and save data.
26869     '''</summary>
26870     <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
26871      Global.System.ComponentModel.ToolboxItem(true), _
26872      Global.System.ComponentModel.DataObjectAttribute(true), _
26873      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
26874         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
26875      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
26876     Partial Public Class Cards_StaffTableAdapter
26877         Inherits Global.System.ComponentModel.Component
26878         
26879         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
26880         
26881         Private _connection As Global.System.Data.SqlClient.SqlConnection
26882         
26883         Private _transaction As Global.System.Data.SqlClient.SqlTransaction
26884         
26885         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
26886         
26887         Private _clearBeforeFill As Boolean
26888         
26889         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
26890          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
26891         Public Sub New()
26892             MyBase.New
26893             Me.ClearBeforeFill = true
26894         End Sub
26895         
26896         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
26897          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
26898         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
26899             Get
26900                 If (Me._adapter Is Nothing) Then
26901                     Me.InitAdapter
26902                 End If
26903                 Return Me._adapter
26904             End Get
26905         End Property
26906         
26907         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
26908          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
26909         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
26910             Get
26911                 If (Me._connection Is Nothing) Then
26912                     Me.InitConnection
26913                 End If
26914                 Return Me._connection
26915             End Get
26916             Set
26917                 Me._connection = value
26918                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
26919                     Me.Adapter.InsertCommand.Connection = value
26920                 End If
26921                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
26922                     Me.Adapter.DeleteCommand.Connection = value
26923                 End If
26924                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
26925                     Me.Adapter.UpdateCommand.Connection = value
26926                 End If
26927                 Dim i As Integer = 0
26928                 Do While (i < Me.CommandCollection.Length)
26929                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
26930                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
26931                     End If
26932                     i = (i + 1)
26933                 Loop
26934             End Set
26935         End Property
26936         
26937         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
26938          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
26939         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
26940             Get
26941                 Return Me._transaction
26942             End Get
26943             Set
26944                 Me._transaction = value
26945                 Dim i As Integer = 0
26946                 Do While (i < Me.CommandCollection.Length)
26947                     Me.CommandCollection(i).Transaction = Me._transaction
26948                     i = (i + 1)
26949                 Loop
26950                 If ((Not (Me.Adapter) Is Nothing) _
26951                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
26952                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
26953                 End If
26954                 If ((Not (Me.Adapter) Is Nothing) _
26955                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
26956                     Me.Adapter.InsertCommand.Transaction = Me._transaction
26957                 End If
26958                 If ((Not (Me.Adapter) Is Nothing) _
26959                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
26960                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
26961                 End If
26962             End Set
26963         End Property
26964         
26965         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
26966          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
26967         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
26968             Get
26969                 If (Me._commandCollection Is Nothing) Then
26970                     Me.InitCommandCollection
26971                 End If
26972                 Return Me._commandCollection
26973             End Get
26974         End Property
26975         
26976         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
26977          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
26978         Public Property ClearBeforeFill() As Boolean
26979             Get
26980                 Return Me._clearBeforeFill
26981             End Get
26982             Set
26983                 Me._clearBeforeFill = value
26984             End Set
26985         End Property
26986         
26987         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
26988          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
26989         Private Sub InitAdapter()
26990             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
26991             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
26992             tableMapping.SourceTable = "Table"
26993             tableMapping.DataSetTable = "Cards_Staff"
26994             tableMapping.ColumnMappings.Add("StaffID", "StaffID")
26995             tableMapping.ColumnMappings.Add("Status", "Status")
26996             Me._adapter.TableMappings.Add(tableMapping)
26997             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
26998             Me._adapter.DeleteCommand.Connection = Me.Connection
26999             Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[Cards_Staff] WHERE (([StaffID] = @Original_StaffID) AND ((@IsN"& _
27000                 "ull_Status = 1 AND [Status] IS NULL) OR ([Status] = @Original_Status)))"
27001             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
27002             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_StaffID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "StaffID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
27003             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Status", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Status", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
27004             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Status", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Status", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
27005             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
27006             Me._adapter.InsertCommand.Connection = Me.Connection
27007             Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[Cards_Staff] ([StaffID], [Status]) VALUES (@StaffID, @Status);"& _
27008                 ""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT StaffID, Status FROM Cards_Staff WHERE (StaffID = @StaffID)"
27009             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
27010             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@StaffID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "StaffID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
27011             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Status", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Status", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
27012             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
27013             Me._adapter.UpdateCommand.Connection = Me.Connection
27014             Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[Cards_Staff] SET [StaffID] = @StaffID, [Status] = @Status WHERE ((["& _
27015                 "StaffID] = @Original_StaffID) AND ((@IsNull_Status = 1 AND [Status] IS NULL) OR "& _
27016                 "([Status] = @Original_Status)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT StaffID, Status FROM Cards_Staff WHERE "& _
27017                 "(StaffID = @StaffID)"
27018             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
27019             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@StaffID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "StaffID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
27020             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Status", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Status", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
27021             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_StaffID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "StaffID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
27022             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Status", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Status", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
27023             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Status", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Status", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
27024         End Sub
27025         
27026         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
27027          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
27028         Private Sub InitConnection()
27029             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
27030             Me._connection.ConnectionString = Global.ERP_System.My.MySettings.Default.ERPS_DBConnectionString
27031         End Sub
27032         
27033         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
27034          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
27035         Private Sub InitCommandCollection()
27036             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
27037             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
27038             Me._commandCollection(0).Connection = Me.Connection
27039             Me._commandCollection(0).CommandText = "SELECT StaffID, Status FROM dbo.Cards_Staff"
27040             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
27041         End Sub
27042         
27043         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
27044          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
27045          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
27046          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
27047         Public Overloads Overridable Function Fill(ByVal dataTable As ERPS_DBDataSet1.Cards_StaffDataTable) As Integer
27048             Me.Adapter.SelectCommand = Me.CommandCollection(0)
27049             If (Me.ClearBeforeFill = true) Then
27050                 dataTable.Clear
27051             End If
27052             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
27053             Return returnValue
27054         End Function
27055         
27056         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
27057          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
27058          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
27059          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
27060         Public Overloads Overridable Function GetData() As ERPS_DBDataSet1.Cards_StaffDataTable
27061             Me.Adapter.SelectCommand = Me.CommandCollection(0)
27062             Dim dataTable As ERPS_DBDataSet1.Cards_StaffDataTable = New ERPS_DBDataSet1.Cards_StaffDataTable()
27063             Me.Adapter.Fill(dataTable)
27064             Return dataTable
27065         End Function
27066         
27067         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
27068          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
27069          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
27070         Public Overloads Overridable Function Update(ByVal dataTable As ERPS_DBDataSet1.Cards_StaffDataTable) As Integer
27071             Return Me.Adapter.Update(dataTable)
27072         End Function
27073         
27074         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
27075          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
27076          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
27077         Public Overloads Overridable Function Update(ByVal dataSet As ERPS_DBDataSet1) As Integer
27078             Return Me.Adapter.Update(dataSet, "Cards_Staff")
27079         End Function
27080         
27081         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
27082          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
27083          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
27084         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
27085             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
27086         End Function
27087         
27088         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
27089          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
27090          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
27091         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
27092             Return Me.Adapter.Update(dataRows)
27093         End Function
27094         
27095         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
27096          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
27097          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
27098          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
27099         Public Overloads Overridable Function Delete(ByVal Original_StaffID As Integer, ByVal Original_Status As String) As Integer
27100             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_StaffID,Integer)
27101             If (Original_Status Is Nothing) Then
27102                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object)
27103                 Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value
27104             Else
27105                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object)
27106                 Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_Status,String)
27107             End If
27108             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
27109             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
27110                         <> Global.System.Data.ConnectionState.Open) Then
27111                 Me.Adapter.DeleteCommand.Connection.Open
27112             End If
27113             Try
27114                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
27115                 Return returnValue
27116             Finally
27117                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
27118                     Me.Adapter.DeleteCommand.Connection.Close
27119                 End If
27120             End Try
27121         End Function
27122         
27123         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
27124          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
27125          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
27126          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
27127         Public Overloads Overridable Function Insert(ByVal StaffID As Integer, ByVal Status As String) As Integer
27128             Me.Adapter.InsertCommand.Parameters(0).Value = CType(StaffID,Integer)
27129             If (Status Is Nothing) Then
27130                 Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value
27131             Else
27132                 Me.Adapter.InsertCommand.Parameters(1).Value = CType(Status,String)
27133             End If
27134             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
27135             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
27136                         <> Global.System.Data.ConnectionState.Open) Then
27137                 Me.Adapter.InsertCommand.Connection.Open
27138             End If
27139             Try
27140                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
27141                 Return returnValue
27142             Finally
27143                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
27144                     Me.Adapter.InsertCommand.Connection.Close
27145                 End If
27146             End Try
27147         End Function
27148         
27149         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
27150          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
27151          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
27152          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
27153         Public Overloads Overridable Function Update(ByVal StaffID As Integer, ByVal Status As String, ByVal Original_StaffID As Integer, ByVal Original_Status As String) As Integer
27154             Me.Adapter.UpdateCommand.Parameters(0).Value = CType(StaffID,Integer)
27155             If (Status Is Nothing) Then
27156                 Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value
27157             Else
27158                 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Status,String)
27159             End If
27160             Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Original_StaffID,Integer)
27161             If (Original_Status Is Nothing) Then
27162                 Me.Adapter.UpdateCommand.Parameters(3).Value = CType(1,Object)
27163                 Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value
27164             Else
27165                 Me.Adapter.UpdateCommand.Parameters(3).Value = CType(0,Object)
27166                 Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_Status,String)
27167             End If
27168             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
27169             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
27170                         <> Global.System.Data.ConnectionState.Open) Then
27171                 Me.Adapter.UpdateCommand.Connection.Open
27172             End If
27173             Try
27174                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
27175                 Return returnValue
27176             Finally
27177                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
27178                     Me.Adapter.UpdateCommand.Connection.Close
27179                 End If
27180             End Try
27181         End Function
27182         
27183         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
27184          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
27185          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
27186          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
27187         Public Overloads Overridable Function Update(ByVal Status As String, ByVal Original_StaffID As Integer, ByVal Original_Status As String) As Integer
27188             Return Me.Update(Original_StaffID, Status, Original_StaffID, Original_Status)
27189         End Function
27190     End Class
27191     
27192     '''<summary>
27193     '''Represents the connection and commands used to retrieve and save data.
27194     '''</summary>
27195     <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
27196      Global.System.ComponentModel.ToolboxItem(true), _
27197      Global.System.ComponentModel.DataObjectAttribute(true), _
27198      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
27199         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
27200      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
27201     Partial Public Class Cards_StudentTableAdapter
27202         Inherits Global.System.ComponentModel.Component
27203         
27204         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
27205         
27206         Private _connection As Global.System.Data.SqlClient.SqlConnection
27207         
27208         Private _transaction As Global.System.Data.SqlClient.SqlTransaction
27209         
27210         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
27211         
27212         Private _clearBeforeFill As Boolean
27213         
27214         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
27215          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
27216         Public Sub New()
27217             MyBase.New
27218             Me.ClearBeforeFill = true
27219         End Sub
27220         
27221         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
27222          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
27223         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
27224             Get
27225                 If (Me._adapter Is Nothing) Then
27226                     Me.InitAdapter
27227                 End If
27228                 Return Me._adapter
27229             End Get
27230         End Property
27231         
27232         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
27233          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
27234         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
27235             Get
27236                 If (Me._connection Is Nothing) Then
27237                     Me.InitConnection
27238                 End If
27239                 Return Me._connection
27240             End Get
27241             Set
27242                 Me._connection = value
27243                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
27244                     Me.Adapter.InsertCommand.Connection = value
27245                 End If
27246                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
27247                     Me.Adapter.DeleteCommand.Connection = value
27248                 End If
27249                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
27250                     Me.Adapter.UpdateCommand.Connection = value
27251                 End If
27252                 Dim i As Integer = 0
27253                 Do While (i < Me.CommandCollection.Length)
27254                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
27255                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
27256                     End If
27257                     i = (i + 1)
27258                 Loop
27259             End Set
27260         End Property
27261         
27262         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
27263          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
27264         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
27265             Get
27266                 Return Me._transaction
27267             End Get
27268             Set
27269                 Me._transaction = value
27270                 Dim i As Integer = 0
27271                 Do While (i < Me.CommandCollection.Length)
27272                     Me.CommandCollection(i).Transaction = Me._transaction
27273                     i = (i + 1)
27274                 Loop
27275                 If ((Not (Me.Adapter) Is Nothing) _
27276                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
27277                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
27278                 End If
27279                 If ((Not (Me.Adapter) Is Nothing) _
27280                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
27281                     Me.Adapter.InsertCommand.Transaction = Me._transaction
27282                 End If
27283                 If ((Not (Me.Adapter) Is Nothing) _
27284                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
27285                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
27286                 End If
27287             End Set
27288         End Property
27289         
27290         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
27291          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
27292         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
27293             Get
27294                 If (Me._commandCollection Is Nothing) Then
27295                     Me.InitCommandCollection
27296                 End If
27297                 Return Me._commandCollection
27298             End Get
27299         End Property
27300         
27301         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
27302          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
27303         Public Property ClearBeforeFill() As Boolean
27304             Get
27305                 Return Me._clearBeforeFill
27306             End Get
27307             Set
27308                 Me._clearBeforeFill = value
27309             End Set
27310         End Property
27311         
27312         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
27313          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
27314         Private Sub InitAdapter()
27315             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
27316             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
27317             tableMapping.SourceTable = "Table"
27318             tableMapping.DataSetTable = "Cards_Student"
27319             tableMapping.ColumnMappings.Add("AdmissionNo", "AdmissionNo")
27320             tableMapping.ColumnMappings.Add("Status", "Status")
27321             Me._adapter.TableMappings.Add(tableMapping)
27322             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
27323             Me._adapter.DeleteCommand.Connection = Me.Connection
27324             Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[Cards_Student] WHERE (([AdmissionNo] = @Original_AdmissionNo) "& _
27325                 "AND ((@IsNull_Status = 1 AND [Status] IS NULL) OR ([Status] = @Original_Status))"& _
27326                 ")"
27327             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
27328             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_AdmissionNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AdmissionNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
27329             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Status", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Status", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
27330             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Status", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Status", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
27331             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
27332             Me._adapter.InsertCommand.Connection = Me.Connection
27333             Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[Cards_Student] ([AdmissionNo], [Status]) VALUES (@AdmissionNo,"& _
27334                 " @Status);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT AdmissionNo, Status FROM Cards_Student WHERE (AdmissionNo = @"& _
27335                 "AdmissionNo)"
27336             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
27337             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AdmissionNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AdmissionNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
27338             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Status", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Status", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
27339             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
27340             Me._adapter.UpdateCommand.Connection = Me.Connection
27341             Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[Cards_Student] SET [AdmissionNo] = @AdmissionNo, [Status] = @Status"& _
27342                 " WHERE (([AdmissionNo] = @Original_AdmissionNo) AND ((@IsNull_Status = 1 AND [St"& _
27343                 "atus] IS NULL) OR ([Status] = @Original_Status)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT AdmissionNo, Status F"& _
27344                 "ROM Cards_Student WHERE (AdmissionNo = @AdmissionNo)"
27345             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
27346             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AdmissionNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AdmissionNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
27347             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Status", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Status", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
27348             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_AdmissionNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AdmissionNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
27349             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Status", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Status", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
27350             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Status", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Status", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
27351         End Sub
27352         
27353         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
27354          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
27355         Private Sub InitConnection()
27356             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
27357             Me._connection.ConnectionString = Global.ERP_System.My.MySettings.Default.ERPS_DBConnectionString
27358         End Sub
27359         
27360         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
27361          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
27362         Private Sub InitCommandCollection()
27363             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
27364             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
27365             Me._commandCollection(0).Connection = Me.Connection
27366             Me._commandCollection(0).CommandText = "SELECT AdmissionNo, Status FROM dbo.Cards_Student"
27367             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
27368         End Sub
27369         
27370         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
27371          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
27372          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
27373          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
27374         Public Overloads Overridable Function Fill(ByVal dataTable As ERPS_DBDataSet1.Cards_StudentDataTable) As Integer
27375             Me.Adapter.SelectCommand = Me.CommandCollection(0)
27376             If (Me.ClearBeforeFill = true) Then
27377                 dataTable.Clear
27378             End If
27379             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
27380             Return returnValue
27381         End Function
27382         
27383         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
27384          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
27385          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
27386          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
27387         Public Overloads Overridable Function GetData() As ERPS_DBDataSet1.Cards_StudentDataTable
27388             Me.Adapter.SelectCommand = Me.CommandCollection(0)
27389             Dim dataTable As ERPS_DBDataSet1.Cards_StudentDataTable = New ERPS_DBDataSet1.Cards_StudentDataTable()
27390             Me.Adapter.Fill(dataTable)
27391             Return dataTable
27392         End Function
27393         
27394         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
27395          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
27396          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
27397         Public Overloads Overridable Function Update(ByVal dataTable As ERPS_DBDataSet1.Cards_StudentDataTable) As Integer
27398             Return Me.Adapter.Update(dataTable)
27399         End Function
27400         
27401         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
27402          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
27403          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
27404         Public Overloads Overridable Function Update(ByVal dataSet As ERPS_DBDataSet1) As Integer
27405             Return Me.Adapter.Update(dataSet, "Cards_Student")
27406         End Function
27407         
27408         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
27409          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
27410          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
27411         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
27412             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
27413         End Function
27414         
27415         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
27416          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
27417          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
27418         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
27419             Return Me.Adapter.Update(dataRows)
27420         End Function
27421         
27422         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
27423          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
27424          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
27425          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
27426         Public Overloads Overridable Function Delete(ByVal Original_AdmissionNo As String, ByVal Original_Status As String) As Integer
27427             If (Original_AdmissionNo Is Nothing) Then
27428                 Throw New Global.System.ArgumentNullException("Original_AdmissionNo")
27429             Else
27430                 Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_AdmissionNo,String)
27431             End If
27432             If (Original_Status Is Nothing) Then
27433                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object)
27434                 Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value
27435             Else
27436                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object)
27437                 Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_Status,String)
27438             End If
27439             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
27440             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
27441                         <> Global.System.Data.ConnectionState.Open) Then
27442                 Me.Adapter.DeleteCommand.Connection.Open
27443             End If
27444             Try
27445                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
27446                 Return returnValue
27447             Finally
27448                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
27449                     Me.Adapter.DeleteCommand.Connection.Close
27450                 End If
27451             End Try
27452         End Function
27453         
27454         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
27455          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
27456          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
27457          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
27458         Public Overloads Overridable Function Insert(ByVal AdmissionNo As String, ByVal Status As String) As Integer
27459             If (AdmissionNo Is Nothing) Then
27460                 Throw New Global.System.ArgumentNullException("AdmissionNo")
27461             Else
27462                 Me.Adapter.InsertCommand.Parameters(0).Value = CType(AdmissionNo,String)
27463             End If
27464             If (Status Is Nothing) Then
27465                 Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value
27466             Else
27467                 Me.Adapter.InsertCommand.Parameters(1).Value = CType(Status,String)
27468             End If
27469             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
27470             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
27471                         <> Global.System.Data.ConnectionState.Open) Then
27472                 Me.Adapter.InsertCommand.Connection.Open
27473             End If
27474             Try
27475                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
27476                 Return returnValue
27477             Finally
27478                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
27479                     Me.Adapter.InsertCommand.Connection.Close
27480                 End If
27481             End Try
27482         End Function
27483         
27484         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
27485          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
27486          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
27487          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
27488         Public Overloads Overridable Function Update(ByVal AdmissionNo As String, ByVal Status As String, ByVal Original_AdmissionNo As String, ByVal Original_Status As String) As Integer
27489             If (AdmissionNo Is Nothing) Then
27490                 Throw New Global.System.ArgumentNullException("AdmissionNo")
27491             Else
27492                 Me.Adapter.UpdateCommand.Parameters(0).Value = CType(AdmissionNo,String)
27493             End If
27494             If (Status Is Nothing) Then
27495                 Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value
27496             Else
27497                 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Status,String)
27498             End If
27499             If (Original_AdmissionNo Is Nothing) Then
27500                 Throw New Global.System.ArgumentNullException("Original_AdmissionNo")
27501             Else
27502                 Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Original_AdmissionNo,String)
27503             End If
27504             If (Original_Status Is Nothing) Then
27505                 Me.Adapter.UpdateCommand.Parameters(3).Value = CType(1,Object)
27506                 Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value
27507             Else
27508                 Me.Adapter.UpdateCommand.Parameters(3).Value = CType(0,Object)
27509                 Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_Status,String)
27510             End If
27511             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
27512             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
27513                         <> Global.System.Data.ConnectionState.Open) Then
27514                 Me.Adapter.UpdateCommand.Connection.Open
27515             End If
27516             Try
27517                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
27518                 Return returnValue
27519             Finally
27520                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
27521                     Me.Adapter.UpdateCommand.Connection.Close
27522                 End If
27523             End Try
27524         End Function
27525         
27526         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
27527          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
27528          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
27529          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
27530         Public Overloads Overridable Function Update(ByVal Status As String, ByVal Original_AdmissionNo As String, ByVal Original_Status As String) As Integer
27531             Return Me.Update(Original_AdmissionNo, Status, Original_AdmissionNo, Original_Status)
27532         End Function
27533     End Class
27534     
27535     '''<summary>
27536     '''Represents the connection and commands used to retrieve and save data.
27537     '''</summary>
27538     <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
27539      Global.System.ComponentModel.ToolboxItem(true), _
27540      Global.System.ComponentModel.DataObjectAttribute(true), _
27541      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
27542         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
27543      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
27544     Partial Public Class ClassTableAdapter
27545         Inherits Global.System.ComponentModel.Component
27546         
27547         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
27548         
27549         Private _connection As Global.System.Data.SqlClient.SqlConnection
27550         
27551         Private _transaction As Global.System.Data.SqlClient.SqlTransaction
27552         
27553         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
27554         
27555         Private _clearBeforeFill As Boolean
27556         
27557         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
27558          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
27559         Public Sub New()
27560             MyBase.New
27561             Me.ClearBeforeFill = true
27562         End Sub
27563         
27564         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
27565          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
27566         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
27567             Get
27568                 If (Me._adapter Is Nothing) Then
27569                     Me.InitAdapter
27570                 End If
27571                 Return Me._adapter
27572             End Get
27573         End Property
27574         
27575         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
27576          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
27577         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
27578             Get
27579                 If (Me._connection Is Nothing) Then
27580                     Me.InitConnection
27581                 End If
27582                 Return Me._connection
27583             End Get
27584             Set
27585                 Me._connection = value
27586                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
27587                     Me.Adapter.InsertCommand.Connection = value
27588                 End If
27589                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
27590                     Me.Adapter.DeleteCommand.Connection = value
27591                 End If
27592                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
27593                     Me.Adapter.UpdateCommand.Connection = value
27594                 End If
27595                 Dim i As Integer = 0
27596                 Do While (i < Me.CommandCollection.Length)
27597                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
27598                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
27599                     End If
27600                     i = (i + 1)
27601                 Loop
27602             End Set
27603         End Property
27604         
27605         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
27606          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
27607         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
27608             Get
27609                 Return Me._transaction
27610             End Get
27611             Set
27612                 Me._transaction = value
27613                 Dim i As Integer = 0
27614                 Do While (i < Me.CommandCollection.Length)
27615                     Me.CommandCollection(i).Transaction = Me._transaction
27616                     i = (i + 1)
27617                 Loop
27618                 If ((Not (Me.Adapter) Is Nothing) _
27619                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
27620                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
27621                 End If
27622                 If ((Not (Me.Adapter) Is Nothing) _
27623                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
27624                     Me.Adapter.InsertCommand.Transaction = Me._transaction
27625                 End If
27626                 If ((Not (Me.Adapter) Is Nothing) _
27627                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
27628                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
27629                 End If
27630             End Set
27631         End Property
27632         
27633         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
27634          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
27635         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
27636             Get
27637                 If (Me._commandCollection Is Nothing) Then
27638                     Me.InitCommandCollection
27639                 End If
27640                 Return Me._commandCollection
27641             End Get
27642         End Property
27643         
27644         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
27645          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
27646         Public Property ClearBeforeFill() As Boolean
27647             Get
27648                 Return Me._clearBeforeFill
27649             End Get
27650             Set
27651                 Me._clearBeforeFill = value
27652             End Set
27653         End Property
27654         
27655         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
27656          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
27657         Private Sub InitAdapter()
27658             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
27659             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
27660             tableMapping.SourceTable = "Table"
27661             tableMapping.DataSetTable = "Class"
27662             tableMapping.ColumnMappings.Add("ClassName", "ClassName")
27663             tableMapping.ColumnMappings.Add("ClassType", "ClassType")
27664             Me._adapter.TableMappings.Add(tableMapping)
27665             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
27666             Me._adapter.DeleteCommand.Connection = Me.Connection
27667             Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[Class] WHERE (([ClassName] = @Original_ClassName) AND ([ClassT"& _
27668                 "ype] = @Original_ClassType))"
27669             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
27670             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ClassName", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ClassName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
27671             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ClassType", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ClassType", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
27672             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
27673             Me._adapter.InsertCommand.Connection = Me.Connection
27674             Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[Class] ([ClassName], [ClassType]) VALUES (@ClassName, @ClassTy"& _
27675                 "pe);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ClassName, ClassType FROM Class WHERE (ClassName = @ClassName)"
27676             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
27677             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ClassName", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ClassName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
27678             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ClassType", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ClassType", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
27679             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
27680             Me._adapter.UpdateCommand.Connection = Me.Connection
27681             Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[Class] SET [ClassName] = @ClassName, [ClassType] = @ClassType WHERE"& _
27682                 " (([ClassName] = @Original_ClassName) AND ([ClassType] = @Original_ClassType));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ClassName, ClassType FROM Class WHERE (ClassName = @ClassName)"
27683             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
27684             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ClassName", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ClassName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
27685             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ClassType", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ClassType", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
27686             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ClassName", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ClassName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
27687             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ClassType", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ClassType", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
27688         End Sub
27689         
27690         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
27691          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
27692         Private Sub InitConnection()
27693             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
27694             Me._connection.ConnectionString = Global.ERP_System.My.MySettings.Default.ERPS_DBConnectionString
27695         End Sub
27696         
27697         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
27698          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
27699         Private Sub InitCommandCollection()
27700             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
27701             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
27702             Me._commandCollection(0).Connection = Me.Connection
27703             Me._commandCollection(0).CommandText = "SELECT ClassName, ClassType FROM dbo.Class"
27704             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
27705         End Sub
27706         
27707         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
27708          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
27709          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
27710          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
27711         Public Overloads Overridable Function Fill(ByVal dataTable As ERPS_DBDataSet1.ClassDataTable) As Integer
27712             Me.Adapter.SelectCommand = Me.CommandCollection(0)
27713             If (Me.ClearBeforeFill = true) Then
27714                 dataTable.Clear
27715             End If
27716             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
27717             Return returnValue
27718         End Function
27719         
27720         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
27721          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
27722          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
27723          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
27724         Public Overloads Overridable Function GetData() As ERPS_DBDataSet1.ClassDataTable
27725             Me.Adapter.SelectCommand = Me.CommandCollection(0)
27726             Dim dataTable As ERPS_DBDataSet1.ClassDataTable = New ERPS_DBDataSet1.ClassDataTable()
27727             Me.Adapter.Fill(dataTable)
27728             Return dataTable
27729         End Function
27730         
27731         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
27732          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
27733          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
27734         Public Overloads Overridable Function Update(ByVal dataTable As ERPS_DBDataSet1.ClassDataTable) As Integer
27735             Return Me.Adapter.Update(dataTable)
27736         End Function
27737         
27738         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
27739          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
27740          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
27741         Public Overloads Overridable Function Update(ByVal dataSet As ERPS_DBDataSet1) As Integer
27742             Return Me.Adapter.Update(dataSet, "Class")
27743         End Function
27744         
27745         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
27746          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
27747          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
27748         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
27749             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
27750         End Function
27751         
27752         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
27753          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
27754          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
27755         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
27756             Return Me.Adapter.Update(dataRows)
27757         End Function
27758         
27759         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
27760          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
27761          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
27762          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
27763         Public Overloads Overridable Function Delete(ByVal Original_ClassName As String, ByVal Original_ClassType As String) As Integer
27764             If (Original_ClassName Is Nothing) Then
27765                 Throw New Global.System.ArgumentNullException("Original_ClassName")
27766             Else
27767                 Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_ClassName,String)
27768             End If
27769             If (Original_ClassType Is Nothing) Then
27770                 Throw New Global.System.ArgumentNullException("Original_ClassType")
27771             Else
27772                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_ClassType,String)
27773             End If
27774             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
27775             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
27776                         <> Global.System.Data.ConnectionState.Open) Then
27777                 Me.Adapter.DeleteCommand.Connection.Open
27778             End If
27779             Try
27780                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
27781                 Return returnValue
27782             Finally
27783                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
27784                     Me.Adapter.DeleteCommand.Connection.Close
27785                 End If
27786             End Try
27787         End Function
27788         
27789         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
27790          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
27791          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
27792          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
27793         Public Overloads Overridable Function Insert(ByVal ClassName As String, ByVal ClassType As String) As Integer
27794             If (ClassName Is Nothing) Then
27795                 Throw New Global.System.ArgumentNullException("ClassName")
27796             Else
27797                 Me.Adapter.InsertCommand.Parameters(0).Value = CType(ClassName,String)
27798             End If
27799             If (ClassType Is Nothing) Then
27800                 Throw New Global.System.ArgumentNullException("ClassType")
27801             Else
27802                 Me.Adapter.InsertCommand.Parameters(1).Value = CType(ClassType,String)
27803             End If
27804             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
27805             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
27806                         <> Global.System.Data.ConnectionState.Open) Then
27807                 Me.Adapter.InsertCommand.Connection.Open
27808             End If
27809             Try
27810                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
27811                 Return returnValue
27812             Finally
27813                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
27814                     Me.Adapter.InsertCommand.Connection.Close
27815                 End If
27816             End Try
27817         End Function
27818         
27819         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
27820          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
27821          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
27822          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
27823         Public Overloads Overridable Function Update(ByVal ClassName As String, ByVal ClassType As String, ByVal Original_ClassName As String, ByVal Original_ClassType As String) As Integer
27824             If (ClassName Is Nothing) Then
27825                 Throw New Global.System.ArgumentNullException("ClassName")
27826             Else
27827                 Me.Adapter.UpdateCommand.Parameters(0).Value = CType(ClassName,String)
27828             End If
27829             If (ClassType Is Nothing) Then
27830                 Throw New Global.System.ArgumentNullException("ClassType")
27831             Else
27832                 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(ClassType,String)
27833             End If
27834             If (Original_ClassName Is Nothing) Then
27835                 Throw New Global.System.ArgumentNullException("Original_ClassName")
27836             Else
27837                 Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Original_ClassName,String)
27838             End If
27839             If (Original_ClassType Is Nothing) Then
27840                 Throw New Global.System.ArgumentNullException("Original_ClassType")
27841             Else
27842                 Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_ClassType,String)
27843             End If
27844             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
27845             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
27846                         <> Global.System.Data.ConnectionState.Open) Then
27847                 Me.Adapter.UpdateCommand.Connection.Open
27848             End If
27849             Try
27850                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
27851                 Return returnValue
27852             Finally
27853                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
27854                     Me.Adapter.UpdateCommand.Connection.Close
27855                 End If
27856             End Try
27857         End Function
27858         
27859         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
27860          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
27861          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
27862          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
27863         Public Overloads Overridable Function Update(ByVal ClassType As String, ByVal Original_ClassName As String, ByVal Original_ClassType As String) As Integer
27864             Return Me.Update(Original_ClassName, ClassType, Original_ClassName, Original_ClassType)
27865         End Function
27866     End Class
27867     
27868     '''<summary>
27869     '''Represents the connection and commands used to retrieve and save data.
27870     '''</summary>
27871     <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
27872      Global.System.ComponentModel.ToolboxItem(true), _
27873      Global.System.ComponentModel.DataObjectAttribute(true), _
27874      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
27875         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
27876      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
27877     Partial Public Class ClassTypeTableAdapter
27878         Inherits Global.System.ComponentModel.Component
27879         
27880         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
27881         
27882         Private _connection As Global.System.Data.SqlClient.SqlConnection
27883         
27884         Private _transaction As Global.System.Data.SqlClient.SqlTransaction
27885         
27886         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
27887         
27888         Private _clearBeforeFill As Boolean
27889         
27890         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
27891          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
27892         Public Sub New()
27893             MyBase.New
27894             Me.ClearBeforeFill = true
27895         End Sub
27896         
27897         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
27898          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
27899         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
27900             Get
27901                 If (Me._adapter Is Nothing) Then
27902                     Me.InitAdapter
27903                 End If
27904                 Return Me._adapter
27905             End Get
27906         End Property
27907         
27908         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
27909          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
27910         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
27911             Get
27912                 If (Me._connection Is Nothing) Then
27913                     Me.InitConnection
27914                 End If
27915                 Return Me._connection
27916             End Get
27917             Set
27918                 Me._connection = value
27919                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
27920                     Me.Adapter.InsertCommand.Connection = value
27921                 End If
27922                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
27923                     Me.Adapter.DeleteCommand.Connection = value
27924                 End If
27925                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
27926                     Me.Adapter.UpdateCommand.Connection = value
27927                 End If
27928                 Dim i As Integer = 0
27929                 Do While (i < Me.CommandCollection.Length)
27930                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
27931                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
27932                     End If
27933                     i = (i + 1)
27934                 Loop
27935             End Set
27936         End Property
27937         
27938         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
27939          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
27940         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
27941             Get
27942                 Return Me._transaction
27943             End Get
27944             Set
27945                 Me._transaction = value
27946                 Dim i As Integer = 0
27947                 Do While (i < Me.CommandCollection.Length)
27948                     Me.CommandCollection(i).Transaction = Me._transaction
27949                     i = (i + 1)
27950                 Loop
27951                 If ((Not (Me.Adapter) Is Nothing) _
27952                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
27953                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
27954                 End If
27955                 If ((Not (Me.Adapter) Is Nothing) _
27956                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
27957                     Me.Adapter.InsertCommand.Transaction = Me._transaction
27958                 End If
27959                 If ((Not (Me.Adapter) Is Nothing) _
27960                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
27961                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
27962                 End If
27963             End Set
27964         End Property
27965         
27966         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
27967          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
27968         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
27969             Get
27970                 If (Me._commandCollection Is Nothing) Then
27971                     Me.InitCommandCollection
27972                 End If
27973                 Return Me._commandCollection
27974             End Get
27975         End Property
27976         
27977         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
27978          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
27979         Public Property ClearBeforeFill() As Boolean
27980             Get
27981                 Return Me._clearBeforeFill
27982             End Get
27983             Set
27984                 Me._clearBeforeFill = value
27985             End Set
27986         End Property
27987         
27988         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
27989          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
27990         Private Sub InitAdapter()
27991             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
27992             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
27993             tableMapping.SourceTable = "Table"
27994             tableMapping.DataSetTable = "ClassType"
27995             tableMapping.ColumnMappings.Add("Type", "Type")
27996             Me._adapter.TableMappings.Add(tableMapping)
27997             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
27998             Me._adapter.DeleteCommand.Connection = Me.Connection
27999             Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[ClassType] WHERE (([Type] = @Original_Type))"
28000             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
28001             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Type", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
28002             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
28003             Me._adapter.InsertCommand.Connection = Me.Connection
28004             Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[ClassType] ([Type]) VALUES (@Type);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Type FROM ClassTyp"& _
28005                 "e WHERE (Type = @Type)"
28006             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
28007             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Type", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
28008             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
28009             Me._adapter.UpdateCommand.Connection = Me.Connection
28010             Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[ClassType] SET [Type] = @Type WHERE (([Type] = @Original_Type));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"S"& _
28011                 "ELECT Type FROM ClassType WHERE (Type = @Type)"
28012             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
28013             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Type", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
28014             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Type", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
28015         End Sub
28016         
28017         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
28018          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
28019         Private Sub InitConnection()
28020             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
28021             Me._connection.ConnectionString = Global.ERP_System.My.MySettings.Default.ERPS_DBConnectionString
28022         End Sub
28023         
28024         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
28025          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
28026         Private Sub InitCommandCollection()
28027             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
28028             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
28029             Me._commandCollection(0).Connection = Me.Connection
28030             Me._commandCollection(0).CommandText = "SELECT Type FROM dbo.ClassType"
28031             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
28032         End Sub
28033         
28034         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
28035          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
28036          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
28037          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
28038         Public Overloads Overridable Function Fill(ByVal dataTable As ERPS_DBDataSet1.ClassTypeDataTable) As Integer
28039             Me.Adapter.SelectCommand = Me.CommandCollection(0)
28040             If (Me.ClearBeforeFill = true) Then
28041                 dataTable.Clear
28042             End If
28043             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
28044             Return returnValue
28045         End Function
28046         
28047         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
28048          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
28049          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
28050          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
28051         Public Overloads Overridable Function GetData() As ERPS_DBDataSet1.ClassTypeDataTable
28052             Me.Adapter.SelectCommand = Me.CommandCollection(0)
28053             Dim dataTable As ERPS_DBDataSet1.ClassTypeDataTable = New ERPS_DBDataSet1.ClassTypeDataTable()
28054             Me.Adapter.Fill(dataTable)
28055             Return dataTable
28056         End Function
28057         
28058         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
28059          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
28060          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
28061         Public Overloads Overridable Function Update(ByVal dataTable As ERPS_DBDataSet1.ClassTypeDataTable) As Integer
28062             Return Me.Adapter.Update(dataTable)
28063         End Function
28064         
28065         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
28066          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
28067          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
28068         Public Overloads Overridable Function Update(ByVal dataSet As ERPS_DBDataSet1) As Integer
28069             Return Me.Adapter.Update(dataSet, "ClassType")
28070         End Function
28071         
28072         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
28073          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
28074          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
28075         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
28076             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
28077         End Function
28078         
28079         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
28080          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
28081          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
28082         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
28083             Return Me.Adapter.Update(dataRows)
28084         End Function
28085         
28086         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
28087          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
28088          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
28089          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
28090         Public Overloads Overridable Function Delete(ByVal Original_Type As String) As Integer
28091             If (Original_Type Is Nothing) Then
28092                 Throw New Global.System.ArgumentNullException("Original_Type")
28093             Else
28094                 Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_Type,String)
28095             End If
28096             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
28097             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
28098                         <> Global.System.Data.ConnectionState.Open) Then
28099                 Me.Adapter.DeleteCommand.Connection.Open
28100             End If
28101             Try
28102                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
28103                 Return returnValue
28104             Finally
28105                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
28106                     Me.Adapter.DeleteCommand.Connection.Close
28107                 End If
28108             End Try
28109         End Function
28110         
28111         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
28112          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
28113          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
28114          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
28115         Public Overloads Overridable Function Insert(ByVal Type As String) As Integer
28116             If (Type Is Nothing) Then
28117                 Throw New Global.System.ArgumentNullException("Type")
28118             Else
28119                 Me.Adapter.InsertCommand.Parameters(0).Value = CType(Type,String)
28120             End If
28121             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
28122             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
28123                         <> Global.System.Data.ConnectionState.Open) Then
28124                 Me.Adapter.InsertCommand.Connection.Open
28125             End If
28126             Try
28127                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
28128                 Return returnValue
28129             Finally
28130                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
28131                     Me.Adapter.InsertCommand.Connection.Close
28132                 End If
28133             End Try
28134         End Function
28135         
28136         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
28137          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
28138          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
28139          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
28140         Public Overloads Overridable Function Update(ByVal Type As String, ByVal Original_Type As String) As Integer
28141             If (Type Is Nothing) Then
28142                 Throw New Global.System.ArgumentNullException("Type")
28143             Else
28144                 Me.Adapter.UpdateCommand.Parameters(0).Value = CType(Type,String)
28145             End If
28146             If (Original_Type Is Nothing) Then
28147                 Throw New Global.System.ArgumentNullException("Original_Type")
28148             Else
28149                 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Original_Type,String)
28150             End If
28151             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
28152             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
28153                         <> Global.System.Data.ConnectionState.Open) Then
28154                 Me.Adapter.UpdateCommand.Connection.Open
28155             End If
28156             Try
28157                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
28158                 Return returnValue
28159             Finally
28160                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
28161                     Me.Adapter.UpdateCommand.Connection.Close
28162                 End If
28163             End Try
28164         End Function
28165         
28166         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
28167          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
28168          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
28169          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
28170         Public Overloads Overridable Function Update(ByVal Original_Type As String) As Integer
28171             Return Me.Update(Original_Type, Original_Type)
28172         End Function
28173     End Class
28174     
28175     '''<summary>
28176     '''Represents the connection and commands used to retrieve and save data.
28177     '''</summary>
28178     <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
28179      Global.System.ComponentModel.ToolboxItem(true), _
28180      Global.System.ComponentModel.DataObjectAttribute(true), _
28181      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
28182         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
28183      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
28184     Partial Public Class CourseFeeTableAdapter
28185         Inherits Global.System.ComponentModel.Component
28186         
28187         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
28188         
28189         Private _connection As Global.System.Data.SqlClient.SqlConnection
28190         
28191         Private _transaction As Global.System.Data.SqlClient.SqlTransaction
28192         
28193         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
28194         
28195         Private _clearBeforeFill As Boolean
28196         
28197         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
28198          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
28199         Public Sub New()
28200             MyBase.New
28201             Me.ClearBeforeFill = true
28202         End Sub
28203         
28204         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
28205          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
28206         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
28207             Get
28208                 If (Me._adapter Is Nothing) Then
28209                     Me.InitAdapter
28210                 End If
28211                 Return Me._adapter
28212             End Get
28213         End Property
28214         
28215         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
28216          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
28217         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
28218             Get
28219                 If (Me._connection Is Nothing) Then
28220                     Me.InitConnection
28221                 End If
28222                 Return Me._connection
28223             End Get
28224             Set
28225                 Me._connection = value
28226                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
28227                     Me.Adapter.InsertCommand.Connection = value
28228                 End If
28229                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
28230                     Me.Adapter.DeleteCommand.Connection = value
28231                 End If
28232                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
28233                     Me.Adapter.UpdateCommand.Connection = value
28234                 End If
28235                 Dim i As Integer = 0
28236                 Do While (i < Me.CommandCollection.Length)
28237                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
28238                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
28239                     End If
28240                     i = (i + 1)
28241                 Loop
28242             End Set
28243         End Property
28244         
28245         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
28246          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
28247         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
28248             Get
28249                 Return Me._transaction
28250             End Get
28251             Set
28252                 Me._transaction = value
28253                 Dim i As Integer = 0
28254                 Do While (i < Me.CommandCollection.Length)
28255                     Me.CommandCollection(i).Transaction = Me._transaction
28256                     i = (i + 1)
28257                 Loop
28258                 If ((Not (Me.Adapter) Is Nothing) _
28259                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
28260                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
28261                 End If
28262                 If ((Not (Me.Adapter) Is Nothing) _
28263                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
28264                     Me.Adapter.InsertCommand.Transaction = Me._transaction
28265                 End If
28266                 If ((Not (Me.Adapter) Is Nothing) _
28267                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
28268                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
28269                 End If
28270             End Set
28271         End Property
28272         
28273         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
28274          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
28275         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
28276             Get
28277                 If (Me._commandCollection Is Nothing) Then
28278                     Me.InitCommandCollection
28279                 End If
28280                 Return Me._commandCollection
28281             End Get
28282         End Property
28283         
28284         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
28285          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
28286         Public Property ClearBeforeFill() As Boolean
28287             Get
28288                 Return Me._clearBeforeFill
28289             End Get
28290             Set
28291                 Me._clearBeforeFill = value
28292             End Set
28293         End Property
28294         
28295         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
28296          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
28297         Private Sub InitAdapter()
28298             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
28299             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
28300             tableMapping.SourceTable = "Table"
28301             tableMapping.DataSetTable = "CourseFee"
28302             tableMapping.ColumnMappings.Add("C_ID", "C_ID")
28303             tableMapping.ColumnMappings.Add("SchoolID", "SchoolID")
28304             tableMapping.ColumnMappings.Add("Class", "Class")
28305             tableMapping.ColumnMappings.Add("FeeName", "FeeName")
28306             tableMapping.ColumnMappings.Add("Semester", "Semester")
28307             tableMapping.ColumnMappings.Add("Fee", "Fee")
28308             Me._adapter.TableMappings.Add(tableMapping)
28309             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
28310             Me._adapter.DeleteCommand.Connection = Me.Connection
28311             Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[CourseFee] WHERE (([C_ID] = @Original_C_ID) AND ([SchoolID] = "& _
28312                 "@Original_SchoolID) AND ([Class] = @Original_Class) AND ([FeeName] = @Original_F"& _
28313                 "eeName) AND ([Semester] = @Original_Semester) AND ([Fee] = @Original_Fee))"
28314             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
28315             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_C_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "C_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
28316             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SchoolID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SchoolID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
28317             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Class", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Class", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
28318             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FeeName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FeeName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
28319             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Semester", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Semester", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
28320             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Fee", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Fee", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
28321             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
28322             Me._adapter.InsertCommand.Connection = Me.Connection
28323             Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[CourseFee] ([C_ID], [SchoolID], [Class], [FeeName], [Semester]"& _
28324                 ", [Fee]) VALUES (@C_ID, @SchoolID, @Class, @FeeName, @Semester, @Fee);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT C"& _
28325                 "_ID, SchoolID, Class, FeeName, Semester, Fee FROM CourseFee WHERE (C_ID = @C_ID)"& _
28326                 ""
28327             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
28328             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@C_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "C_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
28329             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SchoolID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SchoolID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
28330             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Class", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Class", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
28331             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FeeName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FeeName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
28332             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Semester", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Semester", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
28333             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Fee", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Fee", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
28334             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
28335             Me._adapter.UpdateCommand.Connection = Me.Connection
28336             Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[CourseFee] SET [C_ID] = @C_ID, [SchoolID] = @SchoolID, [Class] = @C"& _
28337                 "lass, [FeeName] = @FeeName, [Semester] = @Semester, [Fee] = @Fee WHERE (([C_ID] "& _
28338                 "= @Original_C_ID) AND ([SchoolID] = @Original_SchoolID) AND ([Class] = @Original"& _
28339                 "_Class) AND ([FeeName] = @Original_FeeName) AND ([Semester] = @Original_Semester"& _
28340                 ") AND ([Fee] = @Original_Fee));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT C_ID, SchoolID, Class, FeeName, Semester"& _
28341                 ", Fee FROM CourseFee WHERE (C_ID = @C_ID)"
28342             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
28343             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@C_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "C_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
28344             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SchoolID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SchoolID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
28345             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Class", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Class", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
28346             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FeeName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FeeName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
28347             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Semester", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Semester", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
28348             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Fee", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Fee", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
28349             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_C_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "C_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
28350             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SchoolID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SchoolID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
28351             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Class", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Class", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
28352             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FeeName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FeeName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
28353             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Semester", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Semester", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
28354             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Fee", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Fee", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
28355         End Sub
28356         
28357         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
28358          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
28359         Private Sub InitConnection()
28360             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
28361             Me._connection.ConnectionString = Global.ERP_System.My.MySettings.Default.ERPS_DBConnectionString
28362         End Sub
28363         
28364         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
28365          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
28366         Private Sub InitCommandCollection()
28367             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
28368             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
28369             Me._commandCollection(0).Connection = Me.Connection
28370             Me._commandCollection(0).CommandText = "SELECT C_ID, SchoolID, Class, FeeName, Semester, Fee FROM dbo.CourseFee"
28371             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
28372         End Sub
28373         
28374         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
28375          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
28376          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
28377          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
28378         Public Overloads Overridable Function Fill(ByVal dataTable As ERPS_DBDataSet1.CourseFeeDataTable) As Integer
28379             Me.Adapter.SelectCommand = Me.CommandCollection(0)
28380             If (Me.ClearBeforeFill = true) Then
28381                 dataTable.Clear
28382             End If
28383             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
28384             Return returnValue
28385         End Function
28386         
28387         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
28388          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
28389          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
28390          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
28391         Public Overloads Overridable Function GetData() As ERPS_DBDataSet1.CourseFeeDataTable
28392             Me.Adapter.SelectCommand = Me.CommandCollection(0)
28393             Dim dataTable As ERPS_DBDataSet1.CourseFeeDataTable = New ERPS_DBDataSet1.CourseFeeDataTable()
28394             Me.Adapter.Fill(dataTable)
28395             Return dataTable
28396         End Function
28397         
28398         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
28399          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
28400          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
28401         Public Overloads Overridable Function Update(ByVal dataTable As ERPS_DBDataSet1.CourseFeeDataTable) As Integer
28402             Return Me.Adapter.Update(dataTable)
28403         End Function
28404         
28405         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
28406          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
28407          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
28408         Public Overloads Overridable Function Update(ByVal dataSet As ERPS_DBDataSet1) As Integer
28409             Return Me.Adapter.Update(dataSet, "CourseFee")
28410         End Function
28411         
28412         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
28413          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
28414          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
28415         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
28416             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
28417         End Function
28418         
28419         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
28420          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
28421          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
28422         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
28423             Return Me.Adapter.Update(dataRows)
28424         End Function
28425         
28426         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
28427          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
28428          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
28429          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
28430         Public Overloads Overridable Function Delete(ByVal Original_C_ID As Integer, ByVal Original_SchoolID As Integer, ByVal Original_Class As String, ByVal Original_FeeName As String, ByVal Original_Semester As String, ByVal Original_Fee As Decimal) As Integer
28431             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_C_ID,Integer)
28432             Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_SchoolID,Integer)
28433             If (Original_Class Is Nothing) Then
28434                 Throw New Global.System.ArgumentNullException("Original_Class")
28435             Else
28436                 Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_Class,String)
28437             End If
28438             If (Original_FeeName Is Nothing) Then
28439                 Throw New Global.System.ArgumentNullException("Original_FeeName")
28440             Else
28441                 Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_FeeName,String)
28442             End If
28443             If (Original_Semester Is Nothing) Then
28444                 Throw New Global.System.ArgumentNullException("Original_Semester")
28445             Else
28446                 Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_Semester,String)
28447             End If
28448             Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_Fee,Decimal)
28449             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
28450             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
28451                         <> Global.System.Data.ConnectionState.Open) Then
28452                 Me.Adapter.DeleteCommand.Connection.Open
28453             End If
28454             Try
28455                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
28456                 Return returnValue
28457             Finally
28458                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
28459                     Me.Adapter.DeleteCommand.Connection.Close
28460                 End If
28461             End Try
28462         End Function
28463         
28464         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
28465          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
28466          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
28467          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
28468         Public Overloads Overridable Function Insert(ByVal C_ID As Integer, ByVal SchoolID As Integer, ByVal _Class As String, ByVal FeeName As String, ByVal Semester As String, ByVal Fee As Decimal) As Integer
28469             Me.Adapter.InsertCommand.Parameters(0).Value = CType(C_ID,Integer)
28470             Me.Adapter.InsertCommand.Parameters(1).Value = CType(SchoolID,Integer)
28471             If (_Class Is Nothing) Then
28472                 Throw New Global.System.ArgumentNullException("_Class")
28473             Else
28474                 Me.Adapter.InsertCommand.Parameters(2).Value = CType(_Class,String)
28475             End If
28476             If (FeeName Is Nothing) Then
28477                 Throw New Global.System.ArgumentNullException("FeeName")
28478             Else
28479                 Me.Adapter.InsertCommand.Parameters(3).Value = CType(FeeName,String)
28480             End If
28481             If (Semester Is Nothing) Then
28482                 Throw New Global.System.ArgumentNullException("Semester")
28483             Else
28484                 Me.Adapter.InsertCommand.Parameters(4).Value = CType(Semester,String)
28485             End If
28486             Me.Adapter.InsertCommand.Parameters(5).Value = CType(Fee,Decimal)
28487             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
28488             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
28489                         <> Global.System.Data.ConnectionState.Open) Then
28490                 Me.Adapter.InsertCommand.Connection.Open
28491             End If
28492             Try
28493                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
28494                 Return returnValue
28495             Finally
28496                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
28497                     Me.Adapter.InsertCommand.Connection.Close
28498                 End If
28499             End Try
28500         End Function
28501         
28502         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
28503          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
28504          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
28505          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
28506         Public Overloads Overridable Function Update(ByVal C_ID As Integer, ByVal SchoolID As Integer, ByVal _Class As String, ByVal FeeName As String, ByVal Semester As String, ByVal Fee As Decimal, ByVal Original_C_ID As Integer, ByVal Original_SchoolID As Integer, ByVal Original_Class As String, ByVal Original_FeeName As String, ByVal Original_Semester As String, ByVal Original_Fee As Decimal) As Integer
28507             Me.Adapter.UpdateCommand.Parameters(0).Value = CType(C_ID,Integer)
28508             Me.Adapter.UpdateCommand.Parameters(1).Value = CType(SchoolID,Integer)
28509             If (_Class Is Nothing) Then
28510                 Throw New Global.System.ArgumentNullException("_Class")
28511             Else
28512                 Me.Adapter.UpdateCommand.Parameters(2).Value = CType(_Class,String)
28513             End If
28514             If (FeeName Is Nothing) Then
28515                 Throw New Global.System.ArgumentNullException("FeeName")
28516             Else
28517                 Me.Adapter.UpdateCommand.Parameters(3).Value = CType(FeeName,String)
28518             End If
28519             If (Semester Is Nothing) Then
28520                 Throw New Global.System.ArgumentNullException("Semester")
28521             Else
28522                 Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Semester,String)
28523             End If
28524             Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Fee,Decimal)
28525             Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_C_ID,Integer)
28526             Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_SchoolID,Integer)
28527             If (Original_Class Is Nothing) Then
28528                 Throw New Global.System.ArgumentNullException("Original_Class")
28529             Else
28530                 Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_Class,String)
28531             End If
28532             If (Original_FeeName Is Nothing) Then
28533                 Throw New Global.System.ArgumentNullException("Original_FeeName")
28534             Else
28535                 Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_FeeName,String)
28536             End If
28537             If (Original_Semester Is Nothing) Then
28538                 Throw New Global.System.ArgumentNullException("Original_Semester")
28539             Else
28540                 Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_Semester,String)
28541             End If
28542             Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_Fee,Decimal)
28543             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
28544             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
28545                         <> Global.System.Data.ConnectionState.Open) Then
28546                 Me.Adapter.UpdateCommand.Connection.Open
28547             End If
28548             Try
28549                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
28550                 Return returnValue
28551             Finally
28552                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
28553                     Me.Adapter.UpdateCommand.Connection.Close
28554                 End If
28555             End Try
28556         End Function
28557         
28558         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
28559          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
28560          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
28561          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
28562         Public Overloads Overridable Function Update(ByVal SchoolID As Integer, ByVal _Class As String, ByVal FeeName As String, ByVal Semester As String, ByVal Fee As Decimal, ByVal Original_C_ID As Integer, ByVal Original_SchoolID As Integer, ByVal Original_Class As String, ByVal Original_FeeName As String, ByVal Original_Semester As String, ByVal Original_Fee As Decimal) As Integer
28563             Return Me.Update(Original_C_ID, SchoolID, _Class, FeeName, Semester, Fee, Original_C_ID, Original_SchoolID, Original_Class, Original_FeeName, Original_Semester, Original_Fee)
28564         End Function
28565     End Class
28566     
28567     '''<summary>
28568     '''Represents the connection and commands used to retrieve and save data.
28569     '''</summary>
28570     <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
28571      Global.System.ComponentModel.ToolboxItem(true), _
28572      Global.System.ComponentModel.DataObjectAttribute(true), _
28573      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
28574         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
28575      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
28576     Partial Public Class CourseFeePaymentTableAdapter
28577         Inherits Global.System.ComponentModel.Component
28578         
28579         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
28580         
28581         Private _connection As Global.System.Data.SqlClient.SqlConnection
28582         
28583         Private _transaction As Global.System.Data.SqlClient.SqlTransaction
28584         
28585         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
28586         
28587         Private _clearBeforeFill As Boolean
28588         
28589         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
28590          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
28591         Public Sub New()
28592             MyBase.New
28593             Me.ClearBeforeFill = true
28594         End Sub
28595         
28596         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
28597          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
28598         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
28599             Get
28600                 If (Me._adapter Is Nothing) Then
28601                     Me.InitAdapter
28602                 End If
28603                 Return Me._adapter
28604             End Get
28605         End Property
28606         
28607         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
28608          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
28609         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
28610             Get
28611                 If (Me._connection Is Nothing) Then
28612                     Me.InitConnection
28613                 End If
28614                 Return Me._connection
28615             End Get
28616             Set
28617                 Me._connection = value
28618                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
28619                     Me.Adapter.InsertCommand.Connection = value
28620                 End If
28621                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
28622                     Me.Adapter.DeleteCommand.Connection = value
28623                 End If
28624                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
28625                     Me.Adapter.UpdateCommand.Connection = value
28626                 End If
28627                 Dim i As Integer = 0
28628                 Do While (i < Me.CommandCollection.Length)
28629                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
28630                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
28631                     End If
28632                     i = (i + 1)
28633                 Loop
28634             End Set
28635         End Property
28636         
28637         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
28638          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
28639         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
28640             Get
28641                 Return Me._transaction
28642             End Get
28643             Set
28644                 Me._transaction = value
28645                 Dim i As Integer = 0
28646                 Do While (i < Me.CommandCollection.Length)
28647                     Me.CommandCollection(i).Transaction = Me._transaction
28648                     i = (i + 1)
28649                 Loop
28650                 If ((Not (Me.Adapter) Is Nothing) _
28651                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
28652                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
28653                 End If
28654                 If ((Not (Me.Adapter) Is Nothing) _
28655                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
28656                     Me.Adapter.InsertCommand.Transaction = Me._transaction
28657                 End If
28658                 If ((Not (Me.Adapter) Is Nothing) _
28659                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
28660                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
28661                 End If
28662             End Set
28663         End Property
28664         
28665         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
28666          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
28667         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
28668             Get
28669                 If (Me._commandCollection Is Nothing) Then
28670                     Me.InitCommandCollection
28671                 End If
28672                 Return Me._commandCollection
28673             End Get
28674         End Property
28675         
28676         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
28677          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
28678         Public Property ClearBeforeFill() As Boolean
28679             Get
28680                 Return Me._clearBeforeFill
28681             End Get
28682             Set
28683                 Me._clearBeforeFill = value
28684             End Set
28685         End Property
28686         
28687         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
28688          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
28689         Private Sub InitAdapter()
28690             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
28691             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
28692             tableMapping.SourceTable = "Table"
28693             tableMapping.DataSetTable = "CourseFeePayment"
28694             tableMapping.ColumnMappings.Add("Id", "Id")
28695             tableMapping.ColumnMappings.Add("CFP_ID", "CFP_ID")
28696             tableMapping.ColumnMappings.Add("PaymentID", "PaymentID")
28697             tableMapping.ColumnMappings.Add("AdmissionNo", "AdmissionNo")
28698             tableMapping.ColumnMappings.Add("Session", "Session")
28699             tableMapping.ColumnMappings.Add("Semester", "Semester")
28700             tableMapping.ColumnMappings.Add("TotalFee", "TotalFee")
28701             tableMapping.ColumnMappings.Add("DiscountPer", "DiscountPer")
28702             tableMapping.ColumnMappings.Add("DiscountAmt", "DiscountAmt")
28703             tableMapping.ColumnMappings.Add("PreviousDue", "PreviousDue")
28704             tableMapping.ColumnMappings.Add("Fine", "Fine")
28705             tableMapping.ColumnMappings.Add("GrandTotal", "GrandTotal")
28706             tableMapping.ColumnMappings.Add("TotalPaid", "TotalPaid")
28707             tableMapping.ColumnMappings.Add("ModeOfPayment", "ModeOfPayment")
28708             tableMapping.ColumnMappings.Add("PaymentModeDetails", "PaymentModeDetails")
28709             tableMapping.ColumnMappings.Add("PaymentDate", "PaymentDate")
28710             tableMapping.ColumnMappings.Add("PaymentDue", "PaymentDue")
28711             tableMapping.ColumnMappings.Add("ClassType", "ClassType")
28712             tableMapping.ColumnMappings.Add("SchoolType", "SchoolType")
28713             tableMapping.ColumnMappings.Add("Class", "Class")
28714             tableMapping.ColumnMappings.Add("Section", "Section")
28715             Me._adapter.TableMappings.Add(tableMapping)
28716             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
28717             Me._adapter.DeleteCommand.Connection = Me.Connection
28718             Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[CourseFeePayment] WHERE (([Id] = @Original_Id) AND ([CFP_ID] ="& _
28719                 " @Original_CFP_ID) AND ([PaymentID] = @Original_PaymentID) AND ([AdmissionNo] = "& _
28720                 "@Original_AdmissionNo) AND ([Session] = @Original_Session) AND ([Semester] = @Or"& _
28721                 "iginal_Semester) AND ([TotalFee] = @Original_TotalFee) AND ([DiscountPer] = @Ori"& _
28722                 "ginal_DiscountPer) AND ([DiscountAmt] = @Original_DiscountAmt) AND ([PreviousDue"& _
28723                 "] = @Original_PreviousDue) AND ([Fine] = @Original_Fine) AND ([GrandTotal] = @Or"& _
28724                 "iginal_GrandTotal) AND ([TotalPaid] = @Original_TotalPaid) AND ([ModeOfPayment] "& _
28725                 "= @Original_ModeOfPayment) AND ((@IsNull_PaymentModeDetails = 1 AND [PaymentMode"& _
28726                 "Details] IS NULL) OR ([PaymentModeDetails] = @Original_PaymentModeDetails)) AND "& _
28727                 "([PaymentDate] = @Original_PaymentDate) AND ([PaymentDue] = @Original_PaymentDue"& _
28728                 ") AND ([ClassType] = @Original_ClassType) AND ([SchoolType] = @Original_SchoolTy"& _
28729                 "pe) AND ([Class] = @Original_Class) AND ([Section] = @Original_Section))"
28730             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
28731             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
28732             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CFP_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CFP_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
28733             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PaymentID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PaymentID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
28734             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_AdmissionNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AdmissionNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
28735             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Session", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Session", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
28736             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Semester", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Semester", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
28737             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TotalFee", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalFee", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
28738             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DiscountPer", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "DiscountPer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
28739             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DiscountAmt", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "DiscountAmt", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
28740             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PreviousDue", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "PreviousDue", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
28741             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Fine", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Fine", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
28742             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GrandTotal", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "GrandTotal", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
28743             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TotalPaid", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalPaid", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
28744             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ModeOfPayment", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ModeOfPayment", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
28745             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_PaymentModeDetails", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PaymentModeDetails", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
28746             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PaymentModeDetails", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PaymentModeDetails", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
28747             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PaymentDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PaymentDate", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
28748             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PaymentDue", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "PaymentDue", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
28749             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ClassType", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ClassType", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
28750             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SchoolType", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SchoolType", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
28751             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Class", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Class", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
28752             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Section", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Section", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
28753             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
28754             Me._adapter.InsertCommand.Connection = Me.Connection
28755             Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[CourseFeePayment] ([CFP_ID], [PaymentID], [AdmissionNo], [Sess"& _
28756                 "ion], [Semester], [TotalFee], [DiscountPer], [DiscountAmt], [PreviousDue], [Fine"& _
28757                 "], [GrandTotal], [TotalPaid], [ModeOfPayment], [PaymentModeDetails], [PaymentDat"& _
28758                 "e], [PaymentDue], [ClassType], [SchoolType], [Class], [Section]) VALUES (@CFP_ID"& _
28759                 ", @PaymentID, @AdmissionNo, @Session, @Semester, @TotalFee, @DiscountPer, @Disco"& _
28760                 "untAmt, @PreviousDue, @Fine, @GrandTotal, @TotalPaid, @ModeOfPayment, @PaymentMo"& _
28761                 "deDetails, @PaymentDate, @PaymentDue, @ClassType, @SchoolType, @Class, @Section)"& _
28762                 ";"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Id, CFP_ID, PaymentID, AdmissionNo, Session, Semester, TotalFee, Disco"& _
28763                 "untPer, DiscountAmt, PreviousDue, Fine, GrandTotal, TotalPaid, ModeOfPayment, Pa"& _
28764                 "ymentModeDetails, PaymentDate, PaymentDue, ClassType, SchoolType, Class, Section"& _
28765                 " FROM CourseFeePayment WHERE (Id = SCOPE_IDENTITY())"
28766             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
28767             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CFP_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CFP_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
28768             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PaymentID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PaymentID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
28769             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AdmissionNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AdmissionNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
28770             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Session", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Session", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
28771             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Semester", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Semester", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
28772             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TotalFee", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalFee", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
28773             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DiscountPer", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "DiscountPer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
28774             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DiscountAmt", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "DiscountAmt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
28775             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PreviousDue", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "PreviousDue", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
28776             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Fine", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Fine", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
28777             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GrandTotal", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "GrandTotal", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
28778             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TotalPaid", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalPaid", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
28779             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ModeOfPayment", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ModeOfPayment", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
28780             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PaymentModeDetails", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PaymentModeDetails", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
28781             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PaymentDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PaymentDate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
28782             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PaymentDue", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "PaymentDue", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
28783             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ClassType", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ClassType", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
28784             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SchoolType", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SchoolType", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
28785             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Class", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Class", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
28786             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Section", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Section", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
28787             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
28788             Me._adapter.UpdateCommand.Connection = Me.Connection
28789             Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[CourseFeePayment] SET [CFP_ID] = @CFP_ID, [PaymentID] = @PaymentID,"& _
28790                 " [AdmissionNo] = @AdmissionNo, [Session] = @Session, [Semester] = @Semester, [To"& _
28791                 "talFee] = @TotalFee, [DiscountPer] = @DiscountPer, [DiscountAmt] = @DiscountAmt,"& _
28792                 " [PreviousDue] = @PreviousDue, [Fine] = @Fine, [GrandTotal] = @GrandTotal, [Tota"& _
28793                 "lPaid] = @TotalPaid, [ModeOfPayment] = @ModeOfPayment, [PaymentModeDetails] = @P"& _
28794                 "aymentModeDetails, [PaymentDate] = @PaymentDate, [PaymentDue] = @PaymentDue, [Cl"& _
28795                 "assType] = @ClassType, [SchoolType] = @SchoolType, [Class] = @Class, [Section] ="& _
28796                 " @Section WHERE (([Id] = @Original_Id) AND ([CFP_ID] = @Original_CFP_ID) AND ([P"& _
28797                 "aymentID] = @Original_PaymentID) AND ([AdmissionNo] = @Original_AdmissionNo) AND"& _
28798                 " ([Session] = @Original_Session) AND ([Semester] = @Original_Semester) AND ([Tot"& _
28799                 "alFee] = @Original_TotalFee) AND ([DiscountPer] = @Original_DiscountPer) AND ([D"& _
28800                 "iscountAmt] = @Original_DiscountAmt) AND ([PreviousDue] = @Original_PreviousDue)"& _
28801                 " AND ([Fine] = @Original_Fine) AND ([GrandTotal] = @Original_GrandTotal) AND ([T"& _
28802                 "otalPaid] = @Original_TotalPaid) AND ([ModeOfPayment] = @Original_ModeOfPayment)"& _
28803                 " AND ((@IsNull_PaymentModeDetails = 1 AND [PaymentModeDetails] IS NULL) OR ([Pay"& _
28804                 "mentModeDetails] = @Original_PaymentModeDetails)) AND ([PaymentDate] = @Original"& _
28805                 "_PaymentDate) AND ([PaymentDue] = @Original_PaymentDue) AND ([ClassType] = @Orig"& _
28806                 "inal_ClassType) AND ([SchoolType] = @Original_SchoolType) AND ([Class] = @Origin"& _
28807                 "al_Class) AND ([Section] = @Original_Section));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Id, CFP_ID, PaymentID, A"& _
28808                 "dmissionNo, Session, Semester, TotalFee, DiscountPer, DiscountAmt, PreviousDue, "& _
28809                 "Fine, GrandTotal, TotalPaid, ModeOfPayment, PaymentModeDetails, PaymentDate, Pay"& _
28810                 "mentDue, ClassType, SchoolType, Class, Section FROM CourseFeePayment WHERE (Id ="& _
28811                 " @Id)"
28812             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
28813             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CFP_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CFP_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
28814             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PaymentID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PaymentID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
28815             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AdmissionNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AdmissionNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
28816             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Session", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Session", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
28817             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Semester", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Semester", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
28818             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TotalFee", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalFee", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
28819             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DiscountPer", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "DiscountPer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
28820             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DiscountAmt", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "DiscountAmt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
28821             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PreviousDue", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "PreviousDue", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
28822             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Fine", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Fine", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
28823             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GrandTotal", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "GrandTotal", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
28824             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TotalPaid", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalPaid", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
28825             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ModeOfPayment", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ModeOfPayment", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
28826             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PaymentModeDetails", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PaymentModeDetails", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
28827             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PaymentDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PaymentDate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
28828             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PaymentDue", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "PaymentDue", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
28829             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ClassType", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ClassType", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
28830             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SchoolType", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SchoolType", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
28831             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Class", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Class", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
28832             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Section", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Section", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
28833             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
28834             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CFP_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CFP_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
28835             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PaymentID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PaymentID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
28836             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_AdmissionNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AdmissionNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
28837             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Session", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Session", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
28838             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Semester", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Semester", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
28839             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TotalFee", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalFee", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
28840             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DiscountPer", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "DiscountPer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
28841             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DiscountAmt", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "DiscountAmt", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
28842             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PreviousDue", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "PreviousDue", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
28843             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Fine", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Fine", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
28844             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GrandTotal", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "GrandTotal", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
28845             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TotalPaid", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalPaid", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
28846             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ModeOfPayment", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ModeOfPayment", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
28847             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_PaymentModeDetails", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PaymentModeDetails", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
28848             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PaymentModeDetails", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PaymentModeDetails", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
28849             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PaymentDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PaymentDate", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
28850             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PaymentDue", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "PaymentDue", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
28851             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ClassType", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ClassType", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
28852             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SchoolType", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SchoolType", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
28853             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Class", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Class", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
28854             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Section", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Section", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
28855             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "Id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
28856         End Sub
28857         
28858         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
28859          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
28860         Private Sub InitConnection()
28861             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
28862             Me._connection.ConnectionString = Global.ERP_System.My.MySettings.Default.ERPS_DBConnectionString
28863         End Sub
28864         
28865         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
28866          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
28867         Private Sub InitCommandCollection()
28868             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
28869             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
28870             Me._commandCollection(0).Connection = Me.Connection
28871             Me._commandCollection(0).CommandText = "SELECT Id, CFP_ID, PaymentID, AdmissionNo, Session, Semester, TotalFee, DiscountP"& _
28872                 "er, DiscountAmt, PreviousDue, Fine, GrandTotal, TotalPaid, ModeOfPayment, Paymen"& _
28873                 "tModeDetails, PaymentDate, PaymentDue, ClassType, SchoolType, Class, Section FRO"& _
28874                 "M dbo.CourseFeePayment"
28875             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
28876         End Sub
28877         
28878         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
28879          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
28880          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
28881          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
28882         Public Overloads Overridable Function Fill(ByVal dataTable As ERPS_DBDataSet1.CourseFeePaymentDataTable) As Integer
28883             Me.Adapter.SelectCommand = Me.CommandCollection(0)
28884             If (Me.ClearBeforeFill = true) Then
28885                 dataTable.Clear
28886             End If
28887             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
28888             Return returnValue
28889         End Function
28890         
28891         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
28892          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
28893          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
28894          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
28895         Public Overloads Overridable Function GetData() As ERPS_DBDataSet1.CourseFeePaymentDataTable
28896             Me.Adapter.SelectCommand = Me.CommandCollection(0)
28897             Dim dataTable As ERPS_DBDataSet1.CourseFeePaymentDataTable = New ERPS_DBDataSet1.CourseFeePaymentDataTable()
28898             Me.Adapter.Fill(dataTable)
28899             Return dataTable
28900         End Function
28901         
28902         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
28903          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
28904          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
28905         Public Overloads Overridable Function Update(ByVal dataTable As ERPS_DBDataSet1.CourseFeePaymentDataTable) As Integer
28906             Return Me.Adapter.Update(dataTable)
28907         End Function
28908         
28909         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
28910          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
28911          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
28912         Public Overloads Overridable Function Update(ByVal dataSet As ERPS_DBDataSet1) As Integer
28913             Return Me.Adapter.Update(dataSet, "CourseFeePayment")
28914         End Function
28915         
28916         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
28917          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
28918          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
28919         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
28920             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
28921         End Function
28922         
28923         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
28924          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
28925          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
28926         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
28927             Return Me.Adapter.Update(dataRows)
28928         End Function
28929         
28930         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
28931          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
28932          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
28933          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
28934         Public Overloads Overridable Function Delete( _
28935                     ByVal Original_Id As Integer, _
28936                     ByVal Original_CFP_ID As Integer, _
28937                     ByVal Original_PaymentID As String, _
28938                     ByVal Original_AdmissionNo As String, _
28939                     ByVal Original_Session As String, _
28940                     ByVal Original_Semester As String, _
28941                     ByVal Original_TotalFee As Decimal, _
28942                     ByVal Original_DiscountPer As Decimal, _
28943                     ByVal Original_DiscountAmt As Decimal, _
28944                     ByVal Original_PreviousDue As Decimal, _
28945                     ByVal Original_Fine As Decimal, _
28946                     ByVal Original_GrandTotal As Decimal, _
28947                     ByVal Original_TotalPaid As Decimal, _
28948                     ByVal Original_ModeOfPayment As String, _
28949                     ByVal Original_PaymentModeDetails As String, _
28950                     ByVal Original_PaymentDate As Date, _
28951                     ByVal Original_PaymentDue As Decimal, _
28952                     ByVal Original_ClassType As String, _
28953                     ByVal Original_SchoolType As String, _
28954                     ByVal Original_Class As String, _
28955                     ByVal Original_Section As String) As Integer
28956             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_Id,Integer)
28957             Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_CFP_ID,Integer)
28958             If (Original_PaymentID Is Nothing) Then
28959                 Throw New Global.System.ArgumentNullException("Original_PaymentID")
28960             Else
28961                 Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_PaymentID,String)
28962             End If
28963             If (Original_AdmissionNo Is Nothing) Then
28964                 Throw New Global.System.ArgumentNullException("Original_AdmissionNo")
28965             Else
28966                 Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_AdmissionNo,String)
28967             End If
28968             If (Original_Session Is Nothing) Then
28969                 Throw New Global.System.ArgumentNullException("Original_Session")
28970             Else
28971                 Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_Session,String)
28972             End If
28973             If (Original_Semester Is Nothing) Then
28974                 Throw New Global.System.ArgumentNullException("Original_Semester")
28975             Else
28976                 Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_Semester,String)
28977             End If
28978             Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_TotalFee,Decimal)
28979             Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_DiscountPer,Decimal)
28980             Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_DiscountAmt,Decimal)
28981             Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_PreviousDue,Decimal)
28982             Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_Fine,Decimal)
28983             Me.Adapter.DeleteCommand.Parameters(11).Value = CType(Original_GrandTotal,Decimal)
28984             Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_TotalPaid,Decimal)
28985             If (Original_ModeOfPayment Is Nothing) Then
28986                 Throw New Global.System.ArgumentNullException("Original_ModeOfPayment")
28987             Else
28988                 Me.Adapter.DeleteCommand.Parameters(13).Value = CType(Original_ModeOfPayment,String)
28989             End If
28990             If (Original_PaymentModeDetails Is Nothing) Then
28991                 Me.Adapter.DeleteCommand.Parameters(14).Value = CType(1,Object)
28992                 Me.Adapter.DeleteCommand.Parameters(15).Value = Global.System.DBNull.Value
28993             Else
28994                 Me.Adapter.DeleteCommand.Parameters(14).Value = CType(0,Object)
28995                 Me.Adapter.DeleteCommand.Parameters(15).Value = CType(Original_PaymentModeDetails,String)
28996             End If
28997             Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_PaymentDate,Date)
28998             Me.Adapter.DeleteCommand.Parameters(17).Value = CType(Original_PaymentDue,Decimal)
28999             If (Original_ClassType Is Nothing) Then
29000                 Throw New Global.System.ArgumentNullException("Original_ClassType")
29001             Else
29002                 Me.Adapter.DeleteCommand.Parameters(18).Value = CType(Original_ClassType,String)
29003             End If
29004             If (Original_SchoolType Is Nothing) Then
29005                 Throw New Global.System.ArgumentNullException("Original_SchoolType")
29006             Else
29007                 Me.Adapter.DeleteCommand.Parameters(19).Value = CType(Original_SchoolType,String)
29008             End If
29009             If (Original_Class Is Nothing) Then
29010                 Throw New Global.System.ArgumentNullException("Original_Class")
29011             Else
29012                 Me.Adapter.DeleteCommand.Parameters(20).Value = CType(Original_Class,String)
29013             End If
29014             If (Original_Section Is Nothing) Then
29015                 Throw New Global.System.ArgumentNullException("Original_Section")
29016             Else
29017                 Me.Adapter.DeleteCommand.Parameters(21).Value = CType(Original_Section,String)
29018             End If
29019             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
29020             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
29021                         <> Global.System.Data.ConnectionState.Open) Then
29022                 Me.Adapter.DeleteCommand.Connection.Open
29023             End If
29024             Try
29025                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
29026                 Return returnValue
29027             Finally
29028                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
29029                     Me.Adapter.DeleteCommand.Connection.Close
29030                 End If
29031             End Try
29032         End Function
29033         
29034         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
29035          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
29036          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
29037          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
29038         Public Overloads Overridable Function Insert( _
29039                     ByVal CFP_ID As Integer, _
29040                     ByVal PaymentID As String, _
29041                     ByVal AdmissionNo As String, _
29042                     ByVal Session As String, _
29043                     ByVal Semester As String, _
29044                     ByVal TotalFee As Decimal, _
29045                     ByVal DiscountPer As Decimal, _
29046                     ByVal DiscountAmt As Decimal, _
29047                     ByVal PreviousDue As Decimal, _
29048                     ByVal Fine As Decimal, _
29049                     ByVal GrandTotal As Decimal, _
29050                     ByVal TotalPaid As Decimal, _
29051                     ByVal ModeOfPayment As String, _
29052                     ByVal PaymentModeDetails As String, _
29053                     ByVal PaymentDate As Date, _
29054                     ByVal PaymentDue As Decimal, _
29055                     ByVal ClassType As String, _
29056                     ByVal SchoolType As String, _
29057                     ByVal _Class As String, _
29058                     ByVal Section As String) As Integer
29059             Me.Adapter.InsertCommand.Parameters(0).Value = CType(CFP_ID,Integer)
29060             If (PaymentID Is Nothing) Then
29061                 Throw New Global.System.ArgumentNullException("PaymentID")
29062             Else
29063                 Me.Adapter.InsertCommand.Parameters(1).Value = CType(PaymentID,String)
29064             End If
29065             If (AdmissionNo Is Nothing) Then
29066                 Throw New Global.System.ArgumentNullException("AdmissionNo")
29067             Else
29068                 Me.Adapter.InsertCommand.Parameters(2).Value = CType(AdmissionNo,String)
29069             End If
29070             If (Session Is Nothing) Then
29071                 Throw New Global.System.ArgumentNullException("Session")
29072             Else
29073                 Me.Adapter.InsertCommand.Parameters(3).Value = CType(Session,String)
29074             End If
29075             If (Semester Is Nothing) Then
29076                 Throw New Global.System.ArgumentNullException("Semester")
29077             Else
29078                 Me.Adapter.InsertCommand.Parameters(4).Value = CType(Semester,String)
29079             End If
29080             Me.Adapter.InsertCommand.Parameters(5).Value = CType(TotalFee,Decimal)
29081             Me.Adapter.InsertCommand.Parameters(6).Value = CType(DiscountPer,Decimal)
29082             Me.Adapter.InsertCommand.Parameters(7).Value = CType(DiscountAmt,Decimal)
29083             Me.Adapter.InsertCommand.Parameters(8).Value = CType(PreviousDue,Decimal)
29084             Me.Adapter.InsertCommand.Parameters(9).Value = CType(Fine,Decimal)
29085             Me.Adapter.InsertCommand.Parameters(10).Value = CType(GrandTotal,Decimal)
29086             Me.Adapter.InsertCommand.Parameters(11).Value = CType(TotalPaid,Decimal)
29087             If (ModeOfPayment Is Nothing) Then
29088                 Throw New Global.System.ArgumentNullException("ModeOfPayment")
29089             Else
29090                 Me.Adapter.InsertCommand.Parameters(12).Value = CType(ModeOfPayment,String)
29091             End If
29092             If (PaymentModeDetails Is Nothing) Then
29093                 Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value
29094             Else
29095                 Me.Adapter.InsertCommand.Parameters(13).Value = CType(PaymentModeDetails,String)
29096             End If
29097             Me.Adapter.InsertCommand.Parameters(14).Value = CType(PaymentDate,Date)
29098             Me.Adapter.InsertCommand.Parameters(15).Value = CType(PaymentDue,Decimal)
29099             If (ClassType Is Nothing) Then
29100                 Throw New Global.System.ArgumentNullException("ClassType")
29101             Else
29102                 Me.Adapter.InsertCommand.Parameters(16).Value = CType(ClassType,String)
29103             End If
29104             If (SchoolType Is Nothing) Then
29105                 Throw New Global.System.ArgumentNullException("SchoolType")
29106             Else
29107                 Me.Adapter.InsertCommand.Parameters(17).Value = CType(SchoolType,String)
29108             End If
29109             If (_Class Is Nothing) Then
29110                 Throw New Global.System.ArgumentNullException("_Class")
29111             Else
29112                 Me.Adapter.InsertCommand.Parameters(18).Value = CType(_Class,String)
29113             End If
29114             If (Section Is Nothing) Then
29115                 Throw New Global.System.ArgumentNullException("Section")
29116             Else
29117                 Me.Adapter.InsertCommand.Parameters(19).Value = CType(Section,String)
29118             End If
29119             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
29120             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
29121                         <> Global.System.Data.ConnectionState.Open) Then
29122                 Me.Adapter.InsertCommand.Connection.Open
29123             End If
29124             Try
29125                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
29126                 Return returnValue
29127             Finally
29128                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
29129                     Me.Adapter.InsertCommand.Connection.Close
29130                 End If
29131             End Try
29132         End Function
29133         
29134         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
29135          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
29136          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
29137          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
29138         Public Overloads Overridable Function Update( _
29139                     ByVal CFP_ID As Integer, _
29140                     ByVal PaymentID As String, _
29141                     ByVal AdmissionNo As String, _
29142                     ByVal Session As String, _
29143                     ByVal Semester As String, _
29144                     ByVal TotalFee As Decimal, _
29145                     ByVal DiscountPer As Decimal, _
29146                     ByVal DiscountAmt As Decimal, _
29147                     ByVal PreviousDue As Decimal, _
29148                     ByVal Fine As Decimal, _
29149                     ByVal GrandTotal As Decimal, _
29150                     ByVal TotalPaid As Decimal, _
29151                     ByVal ModeOfPayment As String, _
29152                     ByVal PaymentModeDetails As String, _
29153                     ByVal PaymentDate As Date, _
29154                     ByVal PaymentDue As Decimal, _
29155                     ByVal ClassType As String, _
29156                     ByVal SchoolType As String, _
29157                     ByVal _Class As String, _
29158                     ByVal Section As String, _
29159                     ByVal Original_Id As Integer, _
29160                     ByVal Original_CFP_ID As Integer, _
29161                     ByVal Original_PaymentID As String, _
29162                     ByVal Original_AdmissionNo As String, _
29163                     ByVal Original_Session As String, _
29164                     ByVal Original_Semester As String, _
29165                     ByVal Original_TotalFee As Decimal, _
29166                     ByVal Original_DiscountPer As Decimal, _
29167                     ByVal Original_DiscountAmt As Decimal, _
29168                     ByVal Original_PreviousDue As Decimal, _
29169                     ByVal Original_Fine As Decimal, _
29170                     ByVal Original_GrandTotal As Decimal, _
29171                     ByVal Original_TotalPaid As Decimal, _
29172                     ByVal Original_ModeOfPayment As String, _
29173                     ByVal Original_PaymentModeDetails As String, _
29174                     ByVal Original_PaymentDate As Date, _
29175                     ByVal Original_PaymentDue As Decimal, _
29176                     ByVal Original_ClassType As String, _
29177                     ByVal Original_SchoolType As String, _
29178                     ByVal Original_Class As String, _
29179                     ByVal Original_Section As String, _
29180                     ByVal Id As Integer) As Integer
29181             Me.Adapter.UpdateCommand.Parameters(0).Value = CType(CFP_ID,Integer)
29182             If (PaymentID Is Nothing) Then
29183                 Throw New Global.System.ArgumentNullException("PaymentID")
29184             Else
29185                 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(PaymentID,String)
29186             End If
29187             If (AdmissionNo Is Nothing) Then
29188                 Throw New Global.System.ArgumentNullException("AdmissionNo")
29189             Else
29190                 Me.Adapter.UpdateCommand.Parameters(2).Value = CType(AdmissionNo,String)
29191             End If
29192             If (Session Is Nothing) Then
29193                 Throw New Global.System.ArgumentNullException("Session")
29194             Else
29195                 Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Session,String)
29196             End If
29197             If (Semester Is Nothing) Then
29198                 Throw New Global.System.ArgumentNullException("Semester")
29199             Else
29200                 Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Semester,String)
29201             End If
29202             Me.Adapter.UpdateCommand.Parameters(5).Value = CType(TotalFee,Decimal)
29203             Me.Adapter.UpdateCommand.Parameters(6).Value = CType(DiscountPer,Decimal)
29204             Me.Adapter.UpdateCommand.Parameters(7).Value = CType(DiscountAmt,Decimal)
29205             Me.Adapter.UpdateCommand.Parameters(8).Value = CType(PreviousDue,Decimal)
29206             Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Fine,Decimal)
29207             Me.Adapter.UpdateCommand.Parameters(10).Value = CType(GrandTotal,Decimal)
29208             Me.Adapter.UpdateCommand.Parameters(11).Value = CType(TotalPaid,Decimal)
29209             If (ModeOfPayment Is Nothing) Then
29210                 Throw New Global.System.ArgumentNullException("ModeOfPayment")
29211             Else
29212                 Me.Adapter.UpdateCommand.Parameters(12).Value = CType(ModeOfPayment,String)
29213             End If
29214             If (PaymentModeDetails Is Nothing) Then
29215                 Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value
29216             Else
29217                 Me.Adapter.UpdateCommand.Parameters(13).Value = CType(PaymentModeDetails,String)
29218             End If
29219             Me.Adapter.UpdateCommand.Parameters(14).Value = CType(PaymentDate,Date)
29220             Me.Adapter.UpdateCommand.Parameters(15).Value = CType(PaymentDue,Decimal)
29221             If (ClassType Is Nothing) Then
29222                 Throw New Global.System.ArgumentNullException("ClassType")
29223             Else
29224                 Me.Adapter.UpdateCommand.Parameters(16).Value = CType(ClassType,String)
29225             End If
29226             If (SchoolType Is Nothing) Then
29227                 Throw New Global.System.ArgumentNullException("SchoolType")
29228             Else
29229                 Me.Adapter.UpdateCommand.Parameters(17).Value = CType(SchoolType,String)
29230             End If
29231             If (_Class Is Nothing) Then
29232                 Throw New Global.System.ArgumentNullException("_Class")
29233             Else
29234                 Me.Adapter.UpdateCommand.Parameters(18).Value = CType(_Class,String)
29235             End If
29236             If (Section Is Nothing) Then
29237                 Throw New Global.System.ArgumentNullException("Section")
29238             Else
29239                 Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Section,String)
29240             End If
29241             Me.Adapter.UpdateCommand.Parameters(20).Value = CType(Original_Id,Integer)
29242             Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_CFP_ID,Integer)
29243             If (Original_PaymentID Is Nothing) Then
29244                 Throw New Global.System.ArgumentNullException("Original_PaymentID")
29245             Else
29246                 Me.Adapter.UpdateCommand.Parameters(22).Value = CType(Original_PaymentID,String)
29247             End If
29248             If (Original_AdmissionNo Is Nothing) Then
29249                 Throw New Global.System.ArgumentNullException("Original_AdmissionNo")
29250             Else
29251                 Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Original_AdmissionNo,String)
29252             End If
29253             If (Original_Session Is Nothing) Then
29254                 Throw New Global.System.ArgumentNullException("Original_Session")
29255             Else
29256                 Me.Adapter.UpdateCommand.Parameters(24).Value = CType(Original_Session,String)
29257             End If
29258             If (Original_Semester Is Nothing) Then
29259                 Throw New Global.System.ArgumentNullException("Original_Semester")
29260             Else
29261                 Me.Adapter.UpdateCommand.Parameters(25).Value = CType(Original_Semester,String)
29262             End If
29263             Me.Adapter.UpdateCommand.Parameters(26).Value = CType(Original_TotalFee,Decimal)
29264             Me.Adapter.UpdateCommand.Parameters(27).Value = CType(Original_DiscountPer,Decimal)
29265             Me.Adapter.UpdateCommand.Parameters(28).Value = CType(Original_DiscountAmt,Decimal)
29266             Me.Adapter.UpdateCommand.Parameters(29).Value = CType(Original_PreviousDue,Decimal)
29267             Me.Adapter.UpdateCommand.Parameters(30).Value = CType(Original_Fine,Decimal)
29268             Me.Adapter.UpdateCommand.Parameters(31).Value = CType(Original_GrandTotal,Decimal)
29269             Me.Adapter.UpdateCommand.Parameters(32).Value = CType(Original_TotalPaid,Decimal)
29270             If (Original_ModeOfPayment Is Nothing) Then
29271                 Throw New Global.System.ArgumentNullException("Original_ModeOfPayment")
29272             Else
29273                 Me.Adapter.UpdateCommand.Parameters(33).Value = CType(Original_ModeOfPayment,String)
29274             End If
29275             If (Original_PaymentModeDetails Is Nothing) Then
29276                 Me.Adapter.UpdateCommand.Parameters(34).Value = CType(1,Object)
29277                 Me.Adapter.UpdateCommand.Parameters(35).Value = Global.System.DBNull.Value
29278             Else
29279                 Me.Adapter.UpdateCommand.Parameters(34).Value = CType(0,Object)
29280                 Me.Adapter.UpdateCommand.Parameters(35).Value = CType(Original_PaymentModeDetails,String)
29281             End If
29282             Me.Adapter.UpdateCommand.Parameters(36).Value = CType(Original_PaymentDate,Date)
29283             Me.Adapter.UpdateCommand.Parameters(37).Value = CType(Original_PaymentDue,Decimal)
29284             If (Original_ClassType Is Nothing) Then
29285                 Throw New Global.System.ArgumentNullException("Original_ClassType")
29286             Else
29287                 Me.Adapter.UpdateCommand.Parameters(38).Value = CType(Original_ClassType,String)
29288             End If
29289             If (Original_SchoolType Is Nothing) Then
29290                 Throw New Global.System.ArgumentNullException("Original_SchoolType")
29291             Else
29292                 Me.Adapter.UpdateCommand.Parameters(39).Value = CType(Original_SchoolType,String)
29293             End If
29294             If (Original_Class Is Nothing) Then
29295                 Throw New Global.System.ArgumentNullException("Original_Class")
29296             Else
29297                 Me.Adapter.UpdateCommand.Parameters(40).Value = CType(Original_Class,String)
29298             End If
29299             If (Original_Section Is Nothing) Then
29300                 Throw New Global.System.ArgumentNullException("Original_Section")
29301             Else
29302                 Me.Adapter.UpdateCommand.Parameters(41).Value = CType(Original_Section,String)
29303             End If
29304             Me.Adapter.UpdateCommand.Parameters(42).Value = CType(Id,Integer)
29305             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
29306             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
29307                         <> Global.System.Data.ConnectionState.Open) Then
29308                 Me.Adapter.UpdateCommand.Connection.Open
29309             End If
29310             Try
29311                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
29312                 Return returnValue
29313             Finally
29314                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
29315                     Me.Adapter.UpdateCommand.Connection.Close
29316                 End If
29317             End Try
29318         End Function
29319         
29320         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
29321          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
29322          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
29323          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
29324         Public Overloads Overridable Function Update( _
29325                     ByVal CFP_ID As Integer, _
29326                     ByVal PaymentID As String, _
29327                     ByVal AdmissionNo As String, _
29328                     ByVal Session As String, _
29329                     ByVal Semester As String, _
29330                     ByVal TotalFee As Decimal, _
29331                     ByVal DiscountPer As Decimal, _
29332                     ByVal DiscountAmt As Decimal, _
29333                     ByVal PreviousDue As Decimal, _
29334                     ByVal Fine As Decimal, _
29335                     ByVal GrandTotal As Decimal, _
29336                     ByVal TotalPaid As Decimal, _
29337                     ByVal ModeOfPayment As String, _
29338                     ByVal PaymentModeDetails As String, _
29339                     ByVal PaymentDate As Date, _
29340                     ByVal PaymentDue As Decimal, _
29341                     ByVal ClassType As String, _
29342                     ByVal SchoolType As String, _
29343                     ByVal _Class As String, _
29344                     ByVal Section As String, _
29345                     ByVal Original_Id As Integer, _
29346                     ByVal Original_CFP_ID As Integer, _
29347                     ByVal Original_PaymentID As String, _
29348                     ByVal Original_AdmissionNo As String, _
29349                     ByVal Original_Session As String, _
29350                     ByVal Original_Semester As String, _
29351                     ByVal Original_TotalFee As Decimal, _
29352                     ByVal Original_DiscountPer As Decimal, _
29353                     ByVal Original_DiscountAmt As Decimal, _
29354                     ByVal Original_PreviousDue As Decimal, _
29355                     ByVal Original_Fine As Decimal, _
29356                     ByVal Original_GrandTotal As Decimal, _
29357                     ByVal Original_TotalPaid As Decimal, _
29358                     ByVal Original_ModeOfPayment As String, _
29359                     ByVal Original_PaymentModeDetails As String, _
29360                     ByVal Original_PaymentDate As Date, _
29361                     ByVal Original_PaymentDue As Decimal, _
29362                     ByVal Original_ClassType As String, _
29363                     ByVal Original_SchoolType As String, _
29364                     ByVal Original_Class As String, _
29365                     ByVal Original_Section As String) As Integer
29366             Return Me.Update(CFP_ID, PaymentID, AdmissionNo, Session, Semester, TotalFee, DiscountPer, DiscountAmt, PreviousDue, Fine, GrandTotal, TotalPaid, ModeOfPayment, PaymentModeDetails, PaymentDate, PaymentDue, ClassType, SchoolType, _Class, Section, Original_Id, Original_CFP_ID, Original_PaymentID, Original_AdmissionNo, Original_Session, Original_Semester, Original_TotalFee, Original_DiscountPer, Original_DiscountAmt, Original_PreviousDue, Original_Fine, Original_GrandTotal, Original_TotalPaid, Original_ModeOfPayment, Original_PaymentModeDetails, Original_PaymentDate, Original_PaymentDue, Original_ClassType, Original_SchoolType, Original_Class, Original_Section, Original_Id)
29367         End Function
29368     End Class
29369     
29370     '''<summary>
29371     '''Represents the connection and commands used to retrieve and save data.
29372     '''</summary>
29373     <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
29374      Global.System.ComponentModel.ToolboxItem(true), _
29375      Global.System.ComponentModel.DataObjectAttribute(true), _
29376      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
29377         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
29378      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
29379     Partial Public Class CourseFeePayment_JoinTableAdapter
29380         Inherits Global.System.ComponentModel.Component
29381         
29382         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
29383         
29384         Private _connection As Global.System.Data.SqlClient.SqlConnection
29385         
29386         Private _transaction As Global.System.Data.SqlClient.SqlTransaction
29387         
29388         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
29389         
29390         Private _clearBeforeFill As Boolean
29391         
29392         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
29393          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
29394         Public Sub New()
29395             MyBase.New
29396             Me.ClearBeforeFill = true
29397         End Sub
29398         
29399         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
29400          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
29401         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
29402             Get
29403                 If (Me._adapter Is Nothing) Then
29404                     Me.InitAdapter
29405                 End If
29406                 Return Me._adapter
29407             End Get
29408         End Property
29409         
29410         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
29411          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
29412         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
29413             Get
29414                 If (Me._connection Is Nothing) Then
29415                     Me.InitConnection
29416                 End If
29417                 Return Me._connection
29418             End Get
29419             Set
29420                 Me._connection = value
29421                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
29422                     Me.Adapter.InsertCommand.Connection = value
29423                 End If
29424                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
29425                     Me.Adapter.DeleteCommand.Connection = value
29426                 End If
29427                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
29428                     Me.Adapter.UpdateCommand.Connection = value
29429                 End If
29430                 Dim i As Integer = 0
29431                 Do While (i < Me.CommandCollection.Length)
29432                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
29433                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
29434                     End If
29435                     i = (i + 1)
29436                 Loop
29437             End Set
29438         End Property
29439         
29440         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
29441          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
29442         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
29443             Get
29444                 Return Me._transaction
29445             End Get
29446             Set
29447                 Me._transaction = value
29448                 Dim i As Integer = 0
29449                 Do While (i < Me.CommandCollection.Length)
29450                     Me.CommandCollection(i).Transaction = Me._transaction
29451                     i = (i + 1)
29452                 Loop
29453                 If ((Not (Me.Adapter) Is Nothing) _
29454                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
29455                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
29456                 End If
29457                 If ((Not (Me.Adapter) Is Nothing) _
29458                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
29459                     Me.Adapter.InsertCommand.Transaction = Me._transaction
29460                 End If
29461                 If ((Not (Me.Adapter) Is Nothing) _
29462                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
29463                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
29464                 End If
29465             End Set
29466         End Property
29467         
29468         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
29469          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
29470         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
29471             Get
29472                 If (Me._commandCollection Is Nothing) Then
29473                     Me.InitCommandCollection
29474                 End If
29475                 Return Me._commandCollection
29476             End Get
29477         End Property
29478         
29479         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
29480          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
29481         Public Property ClearBeforeFill() As Boolean
29482             Get
29483                 Return Me._clearBeforeFill
29484             End Get
29485             Set
29486                 Me._clearBeforeFill = value
29487             End Set
29488         End Property
29489         
29490         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
29491          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
29492         Private Sub InitAdapter()
29493             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
29494             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
29495             tableMapping.SourceTable = "Table"
29496             tableMapping.DataSetTable = "CourseFeePayment_Join"
29497             tableMapping.ColumnMappings.Add("CFPJ_Id", "CFPJ_Id")
29498             tableMapping.ColumnMappings.Add("C_PaymentID", "C_PaymentID")
29499             tableMapping.ColumnMappings.Add("FeeName", "FeeName")
29500             tableMapping.ColumnMappings.Add("Fee", "Fee")
29501             Me._adapter.TableMappings.Add(tableMapping)
29502             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
29503             Me._adapter.DeleteCommand.Connection = Me.Connection
29504             Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[CourseFeePayment_Join] WHERE (([CFPJ_Id] = @Original_CFPJ_Id) "& _
29505                 "AND ([C_PaymentID] = @Original_C_PaymentID) AND ([FeeName] = @Original_FeeName) "& _
29506                 "AND ([Fee] = @Original_Fee))"
29507             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
29508             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CFPJ_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CFPJ_Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
29509             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_C_PaymentID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "C_PaymentID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
29510             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FeeName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FeeName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
29511             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Fee", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Fee", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
29512             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
29513             Me._adapter.InsertCommand.Connection = Me.Connection
29514             Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[CourseFeePayment_Join] ([C_PaymentID], [FeeName], [Fee]) VALUE"& _
29515                 "S (@C_PaymentID, @FeeName, @Fee);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT CFPJ_Id, C_PaymentID, FeeName, Fee FRO"& _
29516                 "M CourseFeePayment_Join WHERE (CFPJ_Id = SCOPE_IDENTITY())"
29517             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
29518             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@C_PaymentID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "C_PaymentID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
29519             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FeeName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FeeName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
29520             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Fee", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Fee", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
29521             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
29522             Me._adapter.UpdateCommand.Connection = Me.Connection
29523             Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[CourseFeePayment_Join] SET [C_PaymentID] = @C_PaymentID, [FeeName] "& _
29524                 "= @FeeName, [Fee] = @Fee WHERE (([CFPJ_Id] = @Original_CFPJ_Id) AND ([C_PaymentI"& _
29525                 "D] = @Original_C_PaymentID) AND ([FeeName] = @Original_FeeName) AND ([Fee] = @Or"& _
29526                 "iginal_Fee));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT CFPJ_Id, C_PaymentID, FeeName, Fee FROM CourseFeePayment_J"& _
29527                 "oin WHERE (CFPJ_Id = @CFPJ_Id)"
29528             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
29529             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@C_PaymentID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "C_PaymentID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
29530             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FeeName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FeeName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
29531             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Fee", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Fee", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
29532             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CFPJ_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CFPJ_Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
29533             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_C_PaymentID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "C_PaymentID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
29534             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FeeName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FeeName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
29535             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Fee", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Fee", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
29536             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CFPJ_Id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CFPJ_Id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
29537         End Sub
29538         
29539         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
29540          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
29541         Private Sub InitConnection()
29542             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
29543             Me._connection.ConnectionString = Global.ERP_System.My.MySettings.Default.ERPS_DBConnectionString
29544         End Sub
29545         
29546         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
29547          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
29548         Private Sub InitCommandCollection()
29549             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
29550             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
29551             Me._commandCollection(0).Connection = Me.Connection
29552             Me._commandCollection(0).CommandText = "SELECT CFPJ_Id, C_PaymentID, FeeName, Fee FROM dbo.CourseFeePayment_Join"
29553             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
29554         End Sub
29555         
29556         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
29557          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
29558          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
29559          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
29560         Public Overloads Overridable Function Fill(ByVal dataTable As ERPS_DBDataSet1.CourseFeePayment_JoinDataTable) As Integer
29561             Me.Adapter.SelectCommand = Me.CommandCollection(0)
29562             If (Me.ClearBeforeFill = true) Then
29563                 dataTable.Clear
29564             End If
29565             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
29566             Return returnValue
29567         End Function
29568         
29569         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
29570          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
29571          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
29572          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
29573         Public Overloads Overridable Function GetData() As ERPS_DBDataSet1.CourseFeePayment_JoinDataTable
29574             Me.Adapter.SelectCommand = Me.CommandCollection(0)
29575             Dim dataTable As ERPS_DBDataSet1.CourseFeePayment_JoinDataTable = New ERPS_DBDataSet1.CourseFeePayment_JoinDataTable()
29576             Me.Adapter.Fill(dataTable)
29577             Return dataTable
29578         End Function
29579         
29580         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
29581          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
29582          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
29583         Public Overloads Overridable Function Update(ByVal dataTable As ERPS_DBDataSet1.CourseFeePayment_JoinDataTable) As Integer
29584             Return Me.Adapter.Update(dataTable)
29585         End Function
29586         
29587         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
29588          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
29589          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
29590         Public Overloads Overridable Function Update(ByVal dataSet As ERPS_DBDataSet1) As Integer
29591             Return Me.Adapter.Update(dataSet, "CourseFeePayment_Join")
29592         End Function
29593         
29594         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
29595          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
29596          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
29597         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
29598             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
29599         End Function
29600         
29601         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
29602          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
29603          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
29604         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
29605             Return Me.Adapter.Update(dataRows)
29606         End Function
29607         
29608         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
29609          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
29610          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
29611          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
29612         Public Overloads Overridable Function Delete(ByVal Original_CFPJ_Id As Integer, ByVal Original_C_PaymentID As Integer, ByVal Original_FeeName As String, ByVal Original_Fee As Decimal) As Integer
29613             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_CFPJ_Id,Integer)
29614             Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_C_PaymentID,Integer)
29615             If (Original_FeeName Is Nothing) Then
29616                 Throw New Global.System.ArgumentNullException("Original_FeeName")
29617             Else
29618                 Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_FeeName,String)
29619             End If
29620             Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_Fee,Decimal)
29621             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
29622             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
29623                         <> Global.System.Data.ConnectionState.Open) Then
29624                 Me.Adapter.DeleteCommand.Connection.Open
29625             End If
29626             Try
29627                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
29628                 Return returnValue
29629             Finally
29630                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
29631                     Me.Adapter.DeleteCommand.Connection.Close
29632                 End If
29633             End Try
29634         End Function
29635         
29636         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
29637          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
29638          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
29639          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
29640         Public Overloads Overridable Function Insert(ByVal C_PaymentID As Integer, ByVal FeeName As String, ByVal Fee As Decimal) As Integer
29641             Me.Adapter.InsertCommand.Parameters(0).Value = CType(C_PaymentID,Integer)
29642             If (FeeName Is Nothing) Then
29643                 Throw New Global.System.ArgumentNullException("FeeName")
29644             Else
29645                 Me.Adapter.InsertCommand.Parameters(1).Value = CType(FeeName,String)
29646             End If
29647             Me.Adapter.InsertCommand.Parameters(2).Value = CType(Fee,Decimal)
29648             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
29649             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
29650                         <> Global.System.Data.ConnectionState.Open) Then
29651                 Me.Adapter.InsertCommand.Connection.Open
29652             End If
29653             Try
29654                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
29655                 Return returnValue
29656             Finally
29657                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
29658                     Me.Adapter.InsertCommand.Connection.Close
29659                 End If
29660             End Try
29661         End Function
29662         
29663         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
29664          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
29665          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
29666          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
29667         Public Overloads Overridable Function Update(ByVal C_PaymentID As Integer, ByVal FeeName As String, ByVal Fee As Decimal, ByVal Original_CFPJ_Id As Integer, ByVal Original_C_PaymentID As Integer, ByVal Original_FeeName As String, ByVal Original_Fee As Decimal, ByVal CFPJ_Id As Integer) As Integer
29668             Me.Adapter.UpdateCommand.Parameters(0).Value = CType(C_PaymentID,Integer)
29669             If (FeeName Is Nothing) Then
29670                 Throw New Global.System.ArgumentNullException("FeeName")
29671             Else
29672                 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(FeeName,String)
29673             End If
29674             Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Fee,Decimal)
29675             Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_CFPJ_Id,Integer)
29676             Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_C_PaymentID,Integer)
29677             If (Original_FeeName Is Nothing) Then
29678                 Throw New Global.System.ArgumentNullException("Original_FeeName")
29679             Else
29680                 Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_FeeName,String)
29681             End If
29682             Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_Fee,Decimal)
29683             Me.Adapter.UpdateCommand.Parameters(7).Value = CType(CFPJ_Id,Integer)
29684             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
29685             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
29686                         <> Global.System.Data.ConnectionState.Open) Then
29687                 Me.Adapter.UpdateCommand.Connection.Open
29688             End If
29689             Try
29690                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
29691                 Return returnValue
29692             Finally
29693                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
29694                     Me.Adapter.UpdateCommand.Connection.Close
29695                 End If
29696             End Try
29697         End Function
29698         
29699         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
29700          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
29701          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
29702          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
29703         Public Overloads Overridable Function Update(ByVal C_PaymentID As Integer, ByVal FeeName As String, ByVal Fee As Decimal, ByVal Original_CFPJ_Id As Integer, ByVal Original_C_PaymentID As Integer, ByVal Original_FeeName As String, ByVal Original_Fee As Decimal) As Integer
29704             Return Me.Update(C_PaymentID, FeeName, Fee, Original_CFPJ_Id, Original_C_PaymentID, Original_FeeName, Original_Fee, Original_CFPJ_Id)
29705         End Function
29706     End Class
29707     
29708     '''<summary>
29709     '''Represents the connection and commands used to retrieve and save data.
29710     '''</summary>
29711     <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
29712      Global.System.ComponentModel.ToolboxItem(true), _
29713      Global.System.ComponentModel.DataObjectAttribute(true), _
29714      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
29715         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
29716      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
29717     Partial Public Class DepartmentTableAdapter
29718         Inherits Global.System.ComponentModel.Component
29719         
29720         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
29721         
29722         Private _connection As Global.System.Data.SqlClient.SqlConnection
29723         
29724         Private _transaction As Global.System.Data.SqlClient.SqlTransaction
29725         
29726         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
29727         
29728         Private _clearBeforeFill As Boolean
29729         
29730         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
29731          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
29732         Public Sub New()
29733             MyBase.New
29734             Me.ClearBeforeFill = true
29735         End Sub
29736         
29737         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
29738          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
29739         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
29740             Get
29741                 If (Me._adapter Is Nothing) Then
29742                     Me.InitAdapter
29743                 End If
29744                 Return Me._adapter
29745             End Get
29746         End Property
29747         
29748         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
29749          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
29750         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
29751             Get
29752                 If (Me._connection Is Nothing) Then
29753                     Me.InitConnection
29754                 End If
29755                 Return Me._connection
29756             End Get
29757             Set
29758                 Me._connection = value
29759                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
29760                     Me.Adapter.InsertCommand.Connection = value
29761                 End If
29762                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
29763                     Me.Adapter.DeleteCommand.Connection = value
29764                 End If
29765                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
29766                     Me.Adapter.UpdateCommand.Connection = value
29767                 End If
29768                 Dim i As Integer = 0
29769                 Do While (i < Me.CommandCollection.Length)
29770                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
29771                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
29772                     End If
29773                     i = (i + 1)
29774                 Loop
29775             End Set
29776         End Property
29777         
29778         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
29779          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
29780         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
29781             Get
29782                 Return Me._transaction
29783             End Get
29784             Set
29785                 Me._transaction = value
29786                 Dim i As Integer = 0
29787                 Do While (i < Me.CommandCollection.Length)
29788                     Me.CommandCollection(i).Transaction = Me._transaction
29789                     i = (i + 1)
29790                 Loop
29791                 If ((Not (Me.Adapter) Is Nothing) _
29792                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
29793                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
29794                 End If
29795                 If ((Not (Me.Adapter) Is Nothing) _
29796                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
29797                     Me.Adapter.InsertCommand.Transaction = Me._transaction
29798                 End If
29799                 If ((Not (Me.Adapter) Is Nothing) _
29800                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
29801                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
29802                 End If
29803             End Set
29804         End Property
29805         
29806         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
29807          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
29808         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
29809             Get
29810                 If (Me._commandCollection Is Nothing) Then
29811                     Me.InitCommandCollection
29812                 End If
29813                 Return Me._commandCollection
29814             End Get
29815         End Property
29816         
29817         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
29818          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
29819         Public Property ClearBeforeFill() As Boolean
29820             Get
29821                 Return Me._clearBeforeFill
29822             End Get
29823             Set
29824                 Me._clearBeforeFill = value
29825             End Set
29826         End Property
29827         
29828         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
29829          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
29830         Private Sub InitAdapter()
29831             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
29832             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
29833             tableMapping.SourceTable = "Table"
29834             tableMapping.DataSetTable = "Department"
29835             tableMapping.ColumnMappings.Add("id", "id")
29836             tableMapping.ColumnMappings.Add("DepartmentName", "DepartmentName")
29837             Me._adapter.TableMappings.Add(tableMapping)
29838             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
29839             Me._adapter.DeleteCommand.Connection = Me.Connection
29840             Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[Department] WHERE (([id] = @Original_id) AND ([DepartmentName]"& _
29841                 " = @Original_DepartmentName))"
29842             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
29843             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
29844             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DepartmentName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DepartmentName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
29845             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
29846             Me._adapter.InsertCommand.Connection = Me.Connection
29847             Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[Department] ([id], [DepartmentName]) VALUES (@id, @DepartmentN"& _
29848                 "ame);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT id, DepartmentName FROM Department WHERE (id = @id)"
29849             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
29850             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
29851             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DepartmentName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DepartmentName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
29852             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
29853             Me._adapter.UpdateCommand.Connection = Me.Connection
29854             Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[Department] SET [id] = @id, [DepartmentName] = @DepartmentName WHER"& _
29855                 "E (([id] = @Original_id) AND ([DepartmentName] = @Original_DepartmentName));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SE"& _
29856                 "LECT id, DepartmentName FROM Department WHERE (id = @id)"
29857             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
29858             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
29859             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DepartmentName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DepartmentName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
29860             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
29861             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DepartmentName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DepartmentName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
29862         End Sub
29863         
29864         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
29865          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
29866         Private Sub InitConnection()
29867             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
29868             Me._connection.ConnectionString = Global.ERP_System.My.MySettings.Default.ERPS_DBConnectionString
29869         End Sub
29870         
29871         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
29872          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
29873         Private Sub InitCommandCollection()
29874             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
29875             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
29876             Me._commandCollection(0).Connection = Me.Connection
29877             Me._commandCollection(0).CommandText = "SELECT id, DepartmentName FROM dbo.Department"
29878             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
29879         End Sub
29880         
29881         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
29882          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
29883          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
29884          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
29885         Public Overloads Overridable Function Fill(ByVal dataTable As ERPS_DBDataSet1.DepartmentDataTable) As Integer
29886             Me.Adapter.SelectCommand = Me.CommandCollection(0)
29887             If (Me.ClearBeforeFill = true) Then
29888                 dataTable.Clear
29889             End If
29890             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
29891             Return returnValue
29892         End Function
29893         
29894         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
29895          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
29896          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
29897          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
29898         Public Overloads Overridable Function GetData() As ERPS_DBDataSet1.DepartmentDataTable
29899             Me.Adapter.SelectCommand = Me.CommandCollection(0)
29900             Dim dataTable As ERPS_DBDataSet1.DepartmentDataTable = New ERPS_DBDataSet1.DepartmentDataTable()
29901             Me.Adapter.Fill(dataTable)
29902             Return dataTable
29903         End Function
29904         
29905         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
29906          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
29907          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
29908         Public Overloads Overridable Function Update(ByVal dataTable As ERPS_DBDataSet1.DepartmentDataTable) As Integer
29909             Return Me.Adapter.Update(dataTable)
29910         End Function
29911         
29912         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
29913          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
29914          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
29915         Public Overloads Overridable Function Update(ByVal dataSet As ERPS_DBDataSet1) As Integer
29916             Return Me.Adapter.Update(dataSet, "Department")
29917         End Function
29918         
29919         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
29920          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
29921          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
29922         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
29923             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
29924         End Function
29925         
29926         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
29927          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
29928          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
29929         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
29930             Return Me.Adapter.Update(dataRows)
29931         End Function
29932         
29933         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
29934          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
29935          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
29936          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
29937         Public Overloads Overridable Function Delete(ByVal Original_id As Integer, ByVal Original_DepartmentName As String) As Integer
29938             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_id,Integer)
29939             If (Original_DepartmentName Is Nothing) Then
29940                 Throw New Global.System.ArgumentNullException("Original_DepartmentName")
29941             Else
29942                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_DepartmentName,String)
29943             End If
29944             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
29945             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
29946                         <> Global.System.Data.ConnectionState.Open) Then
29947                 Me.Adapter.DeleteCommand.Connection.Open
29948             End If
29949             Try
29950                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
29951                 Return returnValue
29952             Finally
29953                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
29954                     Me.Adapter.DeleteCommand.Connection.Close
29955                 End If
29956             End Try
29957         End Function
29958         
29959         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
29960          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
29961          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
29962          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
29963         Public Overloads Overridable Function Insert(ByVal id As Integer, ByVal DepartmentName As String) As Integer
29964             Me.Adapter.InsertCommand.Parameters(0).Value = CType(id,Integer)
29965             If (DepartmentName Is Nothing) Then
29966                 Throw New Global.System.ArgumentNullException("DepartmentName")
29967             Else
29968                 Me.Adapter.InsertCommand.Parameters(1).Value = CType(DepartmentName,String)
29969             End If
29970             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
29971             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
29972                         <> Global.System.Data.ConnectionState.Open) Then
29973                 Me.Adapter.InsertCommand.Connection.Open
29974             End If
29975             Try
29976                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
29977                 Return returnValue
29978             Finally
29979                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
29980                     Me.Adapter.InsertCommand.Connection.Close
29981                 End If
29982             End Try
29983         End Function
29984         
29985         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
29986          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
29987          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
29988          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
29989         Public Overloads Overridable Function Update(ByVal id As Integer, ByVal DepartmentName As String, ByVal Original_id As Integer, ByVal Original_DepartmentName As String) As Integer
29990             Me.Adapter.UpdateCommand.Parameters(0).Value = CType(id,Integer)
29991             If (DepartmentName Is Nothing) Then
29992                 Throw New Global.System.ArgumentNullException("DepartmentName")
29993             Else
29994                 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(DepartmentName,String)
29995             End If
29996             Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Original_id,Integer)
29997             If (Original_DepartmentName Is Nothing) Then
29998                 Throw New Global.System.ArgumentNullException("Original_DepartmentName")
29999             Else
30000                 Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_DepartmentName,String)
30001             End If
30002             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
30003             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
30004                         <> Global.System.Data.ConnectionState.Open) Then
30005                 Me.Adapter.UpdateCommand.Connection.Open
30006             End If
30007             Try
30008                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
30009                 Return returnValue
30010             Finally
30011                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
30012                     Me.Adapter.UpdateCommand.Connection.Close
30013                 End If
30014             End Try
30015         End Function
30016         
30017         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
30018          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
30019          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
30020          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
30021         Public Overloads Overridable Function Update(ByVal DepartmentName As String, ByVal Original_id As Integer, ByVal Original_DepartmentName As String) As Integer
30022             Return Me.Update(Original_id, DepartmentName, Original_id, Original_DepartmentName)
30023         End Function
30024     End Class
30025     
30026     '''<summary>
30027     '''Represents the connection and commands used to retrieve and save data.
30028     '''</summary>
30029     <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
30030      Global.System.ComponentModel.ToolboxItem(true), _
30031      Global.System.ComponentModel.DataObjectAttribute(true), _
30032      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
30033         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
30034      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
30035     Partial Public Class DesignationTableAdapter
30036         Inherits Global.System.ComponentModel.Component
30037         
30038         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
30039         
30040         Private _connection As Global.System.Data.SqlClient.SqlConnection
30041         
30042         Private _transaction As Global.System.Data.SqlClient.SqlTransaction
30043         
30044         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
30045         
30046         Private _clearBeforeFill As Boolean
30047         
30048         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
30049          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
30050         Public Sub New()
30051             MyBase.New
30052             Me.ClearBeforeFill = true
30053         End Sub
30054         
30055         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
30056          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
30057         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
30058             Get
30059                 If (Me._adapter Is Nothing) Then
30060                     Me.InitAdapter
30061                 End If
30062                 Return Me._adapter
30063             End Get
30064         End Property
30065         
30066         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
30067          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
30068         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
30069             Get
30070                 If (Me._connection Is Nothing) Then
30071                     Me.InitConnection
30072                 End If
30073                 Return Me._connection
30074             End Get
30075             Set
30076                 Me._connection = value
30077                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
30078                     Me.Adapter.InsertCommand.Connection = value
30079                 End If
30080                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
30081                     Me.Adapter.DeleteCommand.Connection = value
30082                 End If
30083                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
30084                     Me.Adapter.UpdateCommand.Connection = value
30085                 End If
30086                 Dim i As Integer = 0
30087                 Do While (i < Me.CommandCollection.Length)
30088                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
30089                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
30090                     End If
30091                     i = (i + 1)
30092                 Loop
30093             End Set
30094         End Property
30095         
30096         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
30097          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
30098         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
30099             Get
30100                 Return Me._transaction
30101             End Get
30102             Set
30103                 Me._transaction = value
30104                 Dim i As Integer = 0
30105                 Do While (i < Me.CommandCollection.Length)
30106                     Me.CommandCollection(i).Transaction = Me._transaction
30107                     i = (i + 1)
30108                 Loop
30109                 If ((Not (Me.Adapter) Is Nothing) _
30110                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
30111                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
30112                 End If
30113                 If ((Not (Me.Adapter) Is Nothing) _
30114                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
30115                     Me.Adapter.InsertCommand.Transaction = Me._transaction
30116                 End If
30117                 If ((Not (Me.Adapter) Is Nothing) _
30118                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
30119                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
30120                 End If
30121             End Set
30122         End Property
30123         
30124         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
30125          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
30126         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
30127             Get
30128                 If (Me._commandCollection Is Nothing) Then
30129                     Me.InitCommandCollection
30130                 End If
30131                 Return Me._commandCollection
30132             End Get
30133         End Property
30134         
30135         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
30136          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
30137         Public Property ClearBeforeFill() As Boolean
30138             Get
30139                 Return Me._clearBeforeFill
30140             End Get
30141             Set
30142                 Me._clearBeforeFill = value
30143             End Set
30144         End Property
30145         
30146         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
30147          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
30148         Private Sub InitAdapter()
30149             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
30150             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
30151             tableMapping.SourceTable = "Table"
30152             tableMapping.DataSetTable = "Designation"
30153             tableMapping.ColumnMappings.Add("Designation", "Designation")
30154             Me._adapter.TableMappings.Add(tableMapping)
30155             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
30156             Me._adapter.DeleteCommand.Connection = Me.Connection
30157             Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[Designation] WHERE (([Designation] = @Original_Designation))"
30158             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
30159             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Designation", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Designation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
30160             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
30161             Me._adapter.InsertCommand.Connection = Me.Connection
30162             Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[Designation] ([Designation]) VALUES (@Designation);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT De"& _
30163                 "signation FROM Designation WHERE (Designation = @Designation)"
30164             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
30165             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Designation", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Designation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
30166             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
30167             Me._adapter.UpdateCommand.Connection = Me.Connection
30168             Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[Designation] SET [Designation] = @Designation WHERE (([Designation]"& _
30169                 " = @Original_Designation));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Designation FROM Designation WHERE (Designat"& _
30170                 "ion = @Designation)"
30171             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
30172             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Designation", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Designation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
30173             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Designation", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Designation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
30174         End Sub
30175         
30176         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
30177          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
30178         Private Sub InitConnection()
30179             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
30180             Me._connection.ConnectionString = Global.ERP_System.My.MySettings.Default.ERPS_DBConnectionString
30181         End Sub
30182         
30183         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
30184          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
30185         Private Sub InitCommandCollection()
30186             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
30187             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
30188             Me._commandCollection(0).Connection = Me.Connection
30189             Me._commandCollection(0).CommandText = "SELECT Designation FROM dbo.Designation"
30190             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
30191         End Sub
30192         
30193         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
30194          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
30195          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
30196          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
30197         Public Overloads Overridable Function Fill(ByVal dataTable As ERPS_DBDataSet1.DesignationDataTable) As Integer
30198             Me.Adapter.SelectCommand = Me.CommandCollection(0)
30199             If (Me.ClearBeforeFill = true) Then
30200                 dataTable.Clear
30201             End If
30202             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
30203             Return returnValue
30204         End Function
30205         
30206         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
30207          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
30208          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
30209          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
30210         Public Overloads Overridable Function GetData() As ERPS_DBDataSet1.DesignationDataTable
30211             Me.Adapter.SelectCommand = Me.CommandCollection(0)
30212             Dim dataTable As ERPS_DBDataSet1.DesignationDataTable = New ERPS_DBDataSet1.DesignationDataTable()
30213             Me.Adapter.Fill(dataTable)
30214             Return dataTable
30215         End Function
30216         
30217         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
30218          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
30219          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
30220         Public Overloads Overridable Function Update(ByVal dataTable As ERPS_DBDataSet1.DesignationDataTable) As Integer
30221             Return Me.Adapter.Update(dataTable)
30222         End Function
30223         
30224         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
30225          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
30226          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
30227         Public Overloads Overridable Function Update(ByVal dataSet As ERPS_DBDataSet1) As Integer
30228             Return Me.Adapter.Update(dataSet, "Designation")
30229         End Function
30230         
30231         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
30232          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
30233          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
30234         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
30235             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
30236         End Function
30237         
30238         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
30239          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
30240          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
30241         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
30242             Return Me.Adapter.Update(dataRows)
30243         End Function
30244         
30245         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
30246          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
30247          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
30248          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
30249         Public Overloads Overridable Function Delete(ByVal Original_Designation As String) As Integer
30250             If (Original_Designation Is Nothing) Then
30251                 Throw New Global.System.ArgumentNullException("Original_Designation")
30252             Else
30253                 Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_Designation,String)
30254             End If
30255             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
30256             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
30257                         <> Global.System.Data.ConnectionState.Open) Then
30258                 Me.Adapter.DeleteCommand.Connection.Open
30259             End If
30260             Try
30261                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
30262                 Return returnValue
30263             Finally
30264                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
30265                     Me.Adapter.DeleteCommand.Connection.Close
30266                 End If
30267             End Try
30268         End Function
30269         
30270         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
30271          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
30272          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
30273          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
30274         Public Overloads Overridable Function Insert(ByVal Designation As String) As Integer
30275             If (Designation Is Nothing) Then
30276                 Throw New Global.System.ArgumentNullException("Designation")
30277             Else
30278                 Me.Adapter.InsertCommand.Parameters(0).Value = CType(Designation,String)
30279             End If
30280             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
30281             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
30282                         <> Global.System.Data.ConnectionState.Open) Then
30283                 Me.Adapter.InsertCommand.Connection.Open
30284             End If
30285             Try
30286                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
30287                 Return returnValue
30288             Finally
30289                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
30290                     Me.Adapter.InsertCommand.Connection.Close
30291                 End If
30292             End Try
30293         End Function
30294         
30295         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
30296          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
30297          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
30298          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
30299         Public Overloads Overridable Function Update(ByVal Designation As String, ByVal Original_Designation As String) As Integer
30300             If (Designation Is Nothing) Then
30301                 Throw New Global.System.ArgumentNullException("Designation")
30302             Else
30303                 Me.Adapter.UpdateCommand.Parameters(0).Value = CType(Designation,String)
30304             End If
30305             If (Original_Designation Is Nothing) Then
30306                 Throw New Global.System.ArgumentNullException("Original_Designation")
30307             Else
30308                 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Original_Designation,String)
30309             End If
30310             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
30311             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
30312                         <> Global.System.Data.ConnectionState.Open) Then
30313                 Me.Adapter.UpdateCommand.Connection.Open
30314             End If
30315             Try
30316                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
30317                 Return returnValue
30318             Finally
30319                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
30320                     Me.Adapter.UpdateCommand.Connection.Close
30321                 End If
30322             End Try
30323         End Function
30324         
30325         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
30326          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
30327          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
30328          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
30329         Public Overloads Overridable Function Update(ByVal Original_Designation As String) As Integer
30330             Return Me.Update(Original_Designation, Original_Designation)
30331         End Function
30332     End Class
30333     
30334     '''<summary>
30335     '''Represents the connection and commands used to retrieve and save data.
30336     '''</summary>
30337     <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
30338      Global.System.ComponentModel.ToolboxItem(true), _
30339      Global.System.ComponentModel.DataObjectAttribute(true), _
30340      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
30341         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
30342      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
30343     Partial Public Class DiscountTableAdapter
30344         Inherits Global.System.ComponentModel.Component
30345         
30346         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
30347         
30348         Private _connection As Global.System.Data.SqlClient.SqlConnection
30349         
30350         Private _transaction As Global.System.Data.SqlClient.SqlTransaction
30351         
30352         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
30353         
30354         Private _clearBeforeFill As Boolean
30355         
30356         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
30357          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
30358         Public Sub New()
30359             MyBase.New
30360             Me.ClearBeforeFill = true
30361         End Sub
30362         
30363         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
30364          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
30365         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
30366             Get
30367                 If (Me._adapter Is Nothing) Then
30368                     Me.InitAdapter
30369                 End If
30370                 Return Me._adapter
30371             End Get
30372         End Property
30373         
30374         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
30375          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
30376         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
30377             Get
30378                 If (Me._connection Is Nothing) Then
30379                     Me.InitConnection
30380                 End If
30381                 Return Me._connection
30382             End Get
30383             Set
30384                 Me._connection = value
30385                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
30386                     Me.Adapter.InsertCommand.Connection = value
30387                 End If
30388                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
30389                     Me.Adapter.DeleteCommand.Connection = value
30390                 End If
30391                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
30392                     Me.Adapter.UpdateCommand.Connection = value
30393                 End If
30394                 Dim i As Integer = 0
30395                 Do While (i < Me.CommandCollection.Length)
30396                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
30397                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
30398                     End If
30399                     i = (i + 1)
30400                 Loop
30401             End Set
30402         End Property
30403         
30404         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
30405          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
30406         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
30407             Get
30408                 Return Me._transaction
30409             End Get
30410             Set
30411                 Me._transaction = value
30412                 Dim i As Integer = 0
30413                 Do While (i < Me.CommandCollection.Length)
30414                     Me.CommandCollection(i).Transaction = Me._transaction
30415                     i = (i + 1)
30416                 Loop
30417                 If ((Not (Me.Adapter) Is Nothing) _
30418                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
30419                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
30420                 End If
30421                 If ((Not (Me.Adapter) Is Nothing) _
30422                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
30423                     Me.Adapter.InsertCommand.Transaction = Me._transaction
30424                 End If
30425                 If ((Not (Me.Adapter) Is Nothing) _
30426                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
30427                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
30428                 End If
30429             End Set
30430         End Property
30431         
30432         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
30433          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
30434         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
30435             Get
30436                 If (Me._commandCollection Is Nothing) Then
30437                     Me.InitCommandCollection
30438                 End If
30439                 Return Me._commandCollection
30440             End Get
30441         End Property
30442         
30443         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
30444          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
30445         Public Property ClearBeforeFill() As Boolean
30446             Get
30447                 Return Me._clearBeforeFill
30448             End Get
30449             Set
30450                 Me._clearBeforeFill = value
30451             End Set
30452         End Property
30453         
30454         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
30455          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
30456         Private Sub InitAdapter()
30457             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
30458             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
30459             tableMapping.SourceTable = "Table"
30460             tableMapping.DataSetTable = "Discount"
30461             tableMapping.ColumnMappings.Add("Id", "Id")
30462             tableMapping.ColumnMappings.Add("AdmissionNo", "AdmissionNo")
30463             tableMapping.ColumnMappings.Add("Feetype", "Feetype")
30464             tableMapping.ColumnMappings.Add("Discount", "Discount")
30465             Me._adapter.TableMappings.Add(tableMapping)
30466             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
30467             Me._adapter.DeleteCommand.Connection = Me.Connection
30468             Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[Discount] WHERE (([Id] = @Original_Id) AND ([AdmissionNo] = @O"& _
30469                 "riginal_AdmissionNo) AND ([Feetype] = @Original_Feetype) AND ([Discount] = @Orig"& _
30470                 "inal_Discount))"
30471             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
30472             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
30473             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_AdmissionNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AdmissionNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
30474             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Feetype", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Feetype", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
30475             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Discount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Discount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
30476             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
30477             Me._adapter.InsertCommand.Connection = Me.Connection
30478             Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[Discount] ([AdmissionNo], [Feetype], [Discount]) VALUES (@Admi"& _
30479                 "ssionNo, @Feetype, @Discount);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Id, AdmissionNo, Feetype, Discount FROM D"& _
30480                 "iscount WHERE (Id = SCOPE_IDENTITY())"
30481             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
30482             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AdmissionNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AdmissionNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
30483             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Feetype", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Feetype", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
30484             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Discount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Discount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
30485             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
30486             Me._adapter.UpdateCommand.Connection = Me.Connection
30487             Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[Discount] SET [AdmissionNo] = @AdmissionNo, [Feetype] = @Feetype, ["& _
30488                 "Discount] = @Discount WHERE (([Id] = @Original_Id) AND ([AdmissionNo] = @Origina"& _
30489                 "l_AdmissionNo) AND ([Feetype] = @Original_Feetype) AND ([Discount] = @Original_D"& _
30490                 "iscount));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Id, AdmissionNo, Feetype, Discount FROM Discount WHERE (Id = "& _
30491                 "@Id)"
30492             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
30493             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AdmissionNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AdmissionNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
30494             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Feetype", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Feetype", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
30495             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Discount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Discount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
30496             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
30497             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_AdmissionNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AdmissionNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
30498             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Feetype", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Feetype", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
30499             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Discount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Discount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
30500             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "Id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
30501         End Sub
30502         
30503         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
30504          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
30505         Private Sub InitConnection()
30506             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
30507             Me._connection.ConnectionString = Global.ERP_System.My.MySettings.Default.ERPS_DBConnectionString
30508         End Sub
30509         
30510         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
30511          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
30512         Private Sub InitCommandCollection()
30513             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
30514             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
30515             Me._commandCollection(0).Connection = Me.Connection
30516             Me._commandCollection(0).CommandText = "SELECT Id, AdmissionNo, Feetype, Discount FROM dbo.Discount"
30517             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
30518         End Sub
30519         
30520         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
30521          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
30522          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
30523          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
30524         Public Overloads Overridable Function Fill(ByVal dataTable As ERPS_DBDataSet1.DiscountDataTable) As Integer
30525             Me.Adapter.SelectCommand = Me.CommandCollection(0)
30526             If (Me.ClearBeforeFill = true) Then
30527                 dataTable.Clear
30528             End If
30529             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
30530             Return returnValue
30531         End Function
30532         
30533         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
30534          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
30535          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
30536          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
30537         Public Overloads Overridable Function GetData() As ERPS_DBDataSet1.DiscountDataTable
30538             Me.Adapter.SelectCommand = Me.CommandCollection(0)
30539             Dim dataTable As ERPS_DBDataSet1.DiscountDataTable = New ERPS_DBDataSet1.DiscountDataTable()
30540             Me.Adapter.Fill(dataTable)
30541             Return dataTable
30542         End Function
30543         
30544         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
30545          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
30546          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
30547         Public Overloads Overridable Function Update(ByVal dataTable As ERPS_DBDataSet1.DiscountDataTable) As Integer
30548             Return Me.Adapter.Update(dataTable)
30549         End Function
30550         
30551         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
30552          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
30553          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
30554         Public Overloads Overridable Function Update(ByVal dataSet As ERPS_DBDataSet1) As Integer
30555             Return Me.Adapter.Update(dataSet, "Discount")
30556         End Function
30557         
30558         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
30559          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
30560          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
30561         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
30562             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
30563         End Function
30564         
30565         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
30566          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
30567          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
30568         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
30569             Return Me.Adapter.Update(dataRows)
30570         End Function
30571         
30572         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
30573          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
30574          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
30575          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
30576         Public Overloads Overridable Function Delete(ByVal Original_Id As Integer, ByVal Original_AdmissionNo As String, ByVal Original_Feetype As String, ByVal Original_Discount As Decimal) As Integer
30577             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_Id,Integer)
30578             If (Original_AdmissionNo Is Nothing) Then
30579                 Throw New Global.System.ArgumentNullException("Original_AdmissionNo")
30580             Else
30581                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_AdmissionNo,String)
30582             End If
30583             If (Original_Feetype Is Nothing) Then
30584                 Throw New Global.System.ArgumentNullException("Original_Feetype")
30585             Else
30586                 Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_Feetype,String)
30587             End If
30588             Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_Discount,Decimal)
30589             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
30590             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
30591                         <> Global.System.Data.ConnectionState.Open) Then
30592                 Me.Adapter.DeleteCommand.Connection.Open
30593             End If
30594             Try
30595                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
30596                 Return returnValue
30597             Finally
30598                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
30599                     Me.Adapter.DeleteCommand.Connection.Close
30600                 End If
30601             End Try
30602         End Function
30603         
30604         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
30605          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
30606          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
30607          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
30608         Public Overloads Overridable Function Insert(ByVal AdmissionNo As String, ByVal Feetype As String, ByVal Discount As Decimal) As Integer
30609             If (AdmissionNo Is Nothing) Then
30610                 Throw New Global.System.ArgumentNullException("AdmissionNo")
30611             Else
30612                 Me.Adapter.InsertCommand.Parameters(0).Value = CType(AdmissionNo,String)
30613             End If
30614             If (Feetype Is Nothing) Then
30615                 Throw New Global.System.ArgumentNullException("Feetype")
30616             Else
30617                 Me.Adapter.InsertCommand.Parameters(1).Value = CType(Feetype,String)
30618             End If
30619             Me.Adapter.InsertCommand.Parameters(2).Value = CType(Discount,Decimal)
30620             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
30621             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
30622                         <> Global.System.Data.ConnectionState.Open) Then
30623                 Me.Adapter.InsertCommand.Connection.Open
30624             End If
30625             Try
30626                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
30627                 Return returnValue
30628             Finally
30629                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
30630                     Me.Adapter.InsertCommand.Connection.Close
30631                 End If
30632             End Try
30633         End Function
30634         
30635         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
30636          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
30637          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
30638          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
30639         Public Overloads Overridable Function Update(ByVal AdmissionNo As String, ByVal Feetype As String, ByVal Discount As Decimal, ByVal Original_Id As Integer, ByVal Original_AdmissionNo As String, ByVal Original_Feetype As String, ByVal Original_Discount As Decimal, ByVal Id As Integer) As Integer
30640             If (AdmissionNo Is Nothing) Then
30641                 Throw New Global.System.ArgumentNullException("AdmissionNo")
30642             Else
30643                 Me.Adapter.UpdateCommand.Parameters(0).Value = CType(AdmissionNo,String)
30644             End If
30645             If (Feetype Is Nothing) Then
30646                 Throw New Global.System.ArgumentNullException("Feetype")
30647             Else
30648                 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Feetype,String)
30649             End If
30650             Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Discount,Decimal)
30651             Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_Id,Integer)
30652             If (Original_AdmissionNo Is Nothing) Then
30653                 Throw New Global.System.ArgumentNullException("Original_AdmissionNo")
30654             Else
30655                 Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_AdmissionNo,String)
30656             End If
30657             If (Original_Feetype Is Nothing) Then
30658                 Throw New Global.System.ArgumentNullException("Original_Feetype")
30659             Else
30660                 Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_Feetype,String)
30661             End If
30662             Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_Discount,Decimal)
30663             Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Id,Integer)
30664             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
30665             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
30666                         <> Global.System.Data.ConnectionState.Open) Then
30667                 Me.Adapter.UpdateCommand.Connection.Open
30668             End If
30669             Try
30670                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
30671                 Return returnValue
30672             Finally
30673                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
30674                     Me.Adapter.UpdateCommand.Connection.Close
30675                 End If
30676             End Try
30677         End Function
30678         
30679         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
30680          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
30681          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
30682          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
30683         Public Overloads Overridable Function Update(ByVal AdmissionNo As String, ByVal Feetype As String, ByVal Discount As Decimal, ByVal Original_Id As Integer, ByVal Original_AdmissionNo As String, ByVal Original_Feetype As String, ByVal Original_Discount As Decimal) As Integer
30684             Return Me.Update(AdmissionNo, Feetype, Discount, Original_Id, Original_AdmissionNo, Original_Feetype, Original_Discount, Original_Id)
30685         End Function
30686     End Class
30687     
30688     '''<summary>
30689     '''Represents the connection and commands used to retrieve and save data.
30690     '''</summary>
30691     <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
30692      Global.System.ComponentModel.ToolboxItem(true), _
30693      Global.System.ComponentModel.DataObjectAttribute(true), _
30694      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
30695         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
30696      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
30697     Partial Public Class Discount_StaffTableAdapter
30698         Inherits Global.System.ComponentModel.Component
30699         
30700         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
30701         
30702         Private _connection As Global.System.Data.SqlClient.SqlConnection
30703         
30704         Private _transaction As Global.System.Data.SqlClient.SqlTransaction
30705         
30706         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
30707         
30708         Private _clearBeforeFill As Boolean
30709         
30710         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
30711          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
30712         Public Sub New()
30713             MyBase.New
30714             Me.ClearBeforeFill = true
30715         End Sub
30716         
30717         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
30718          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
30719         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
30720             Get
30721                 If (Me._adapter Is Nothing) Then
30722                     Me.InitAdapter
30723                 End If
30724                 Return Me._adapter
30725             End Get
30726         End Property
30727         
30728         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
30729          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
30730         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
30731             Get
30732                 If (Me._connection Is Nothing) Then
30733                     Me.InitConnection
30734                 End If
30735                 Return Me._connection
30736             End Get
30737             Set
30738                 Me._connection = value
30739                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
30740                     Me.Adapter.InsertCommand.Connection = value
30741                 End If
30742                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
30743                     Me.Adapter.DeleteCommand.Connection = value
30744                 End If
30745                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
30746                     Me.Adapter.UpdateCommand.Connection = value
30747                 End If
30748                 Dim i As Integer = 0
30749                 Do While (i < Me.CommandCollection.Length)
30750                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
30751                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
30752                     End If
30753                     i = (i + 1)
30754                 Loop
30755             End Set
30756         End Property
30757         
30758         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
30759          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
30760         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
30761             Get
30762                 Return Me._transaction
30763             End Get
30764             Set
30765                 Me._transaction = value
30766                 Dim i As Integer = 0
30767                 Do While (i < Me.CommandCollection.Length)
30768                     Me.CommandCollection(i).Transaction = Me._transaction
30769                     i = (i + 1)
30770                 Loop
30771                 If ((Not (Me.Adapter) Is Nothing) _
30772                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
30773                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
30774                 End If
30775                 If ((Not (Me.Adapter) Is Nothing) _
30776                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
30777                     Me.Adapter.InsertCommand.Transaction = Me._transaction
30778                 End If
30779                 If ((Not (Me.Adapter) Is Nothing) _
30780                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
30781                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
30782                 End If
30783             End Set
30784         End Property
30785         
30786         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
30787          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
30788         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
30789             Get
30790                 If (Me._commandCollection Is Nothing) Then
30791                     Me.InitCommandCollection
30792                 End If
30793                 Return Me._commandCollection
30794             End Get
30795         End Property
30796         
30797         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
30798          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
30799         Public Property ClearBeforeFill() As Boolean
30800             Get
30801                 Return Me._clearBeforeFill
30802             End Get
30803             Set
30804                 Me._clearBeforeFill = value
30805             End Set
30806         End Property
30807         
30808         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
30809          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
30810         Private Sub InitAdapter()
30811             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
30812             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
30813             tableMapping.SourceTable = "Table"
30814             tableMapping.DataSetTable = "Discount_Staff"
30815             tableMapping.ColumnMappings.Add("Id", "Id")
30816             tableMapping.ColumnMappings.Add("StaffID", "StaffID")
30817             tableMapping.ColumnMappings.Add("Discount", "Discount")
30818             Me._adapter.TableMappings.Add(tableMapping)
30819             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
30820             Me._adapter.DeleteCommand.Connection = Me.Connection
30821             Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[Discount_Staff] WHERE (([Id] = @Original_Id) AND ([StaffID] = "& _
30822                 "@Original_StaffID) AND ([Discount] = @Original_Discount))"
30823             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
30824             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
30825             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_StaffID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "StaffID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
30826             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Discount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Discount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
30827             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
30828             Me._adapter.InsertCommand.Connection = Me.Connection
30829             Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[Discount_Staff] ([StaffID], [Discount]) VALUES (@StaffID, @Dis"& _
30830                 "count);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Id, StaffID, Discount FROM Discount_Staff WHERE (Id = SCOPE_IDEN"& _
30831                 "TITY())"
30832             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
30833             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@StaffID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "StaffID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
30834             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Discount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Discount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
30835             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
30836             Me._adapter.UpdateCommand.Connection = Me.Connection
30837             Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[Discount_Staff] SET [StaffID] = @StaffID, [Discount] = @Discount WH"& _
30838                 "ERE (([Id] = @Original_Id) AND ([StaffID] = @Original_StaffID) AND ([Discount] ="& _
30839                 " @Original_Discount));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Id, StaffID, Discount FROM Discount_Staff WHERE ("& _
30840                 "Id = @Id)"
30841             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
30842             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@StaffID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "StaffID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
30843             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Discount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Discount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
30844             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
30845             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_StaffID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "StaffID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
30846             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Discount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Discount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
30847             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "Id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
30848         End Sub
30849         
30850         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
30851          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
30852         Private Sub InitConnection()
30853             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
30854             Me._connection.ConnectionString = Global.ERP_System.My.MySettings.Default.ERPS_DBConnectionString
30855         End Sub
30856         
30857         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
30858          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
30859         Private Sub InitCommandCollection()
30860             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
30861             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
30862             Me._commandCollection(0).Connection = Me.Connection
30863             Me._commandCollection(0).CommandText = "SELECT Id, StaffID, Discount FROM dbo.Discount_Staff"
30864             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
30865         End Sub
30866         
30867         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
30868          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
30869          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
30870          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
30871         Public Overloads Overridable Function Fill(ByVal dataTable As ERPS_DBDataSet1.Discount_StaffDataTable) As Integer
30872             Me.Adapter.SelectCommand = Me.CommandCollection(0)
30873             If (Me.ClearBeforeFill = true) Then
30874                 dataTable.Clear
30875             End If
30876             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
30877             Return returnValue
30878         End Function
30879         
30880         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
30881          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
30882          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
30883          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
30884         Public Overloads Overridable Function GetData() As ERPS_DBDataSet1.Discount_StaffDataTable
30885             Me.Adapter.SelectCommand = Me.CommandCollection(0)
30886             Dim dataTable As ERPS_DBDataSet1.Discount_StaffDataTable = New ERPS_DBDataSet1.Discount_StaffDataTable()
30887             Me.Adapter.Fill(dataTable)
30888             Return dataTable
30889         End Function
30890         
30891         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
30892          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
30893          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
30894         Public Overloads Overridable Function Update(ByVal dataTable As ERPS_DBDataSet1.Discount_StaffDataTable) As Integer
30895             Return Me.Adapter.Update(dataTable)
30896         End Function
30897         
30898         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
30899          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
30900          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
30901         Public Overloads Overridable Function Update(ByVal dataSet As ERPS_DBDataSet1) As Integer
30902             Return Me.Adapter.Update(dataSet, "Discount_Staff")
30903         End Function
30904         
30905         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
30906          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
30907          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
30908         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
30909             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
30910         End Function
30911         
30912         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
30913          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
30914          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
30915         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
30916             Return Me.Adapter.Update(dataRows)
30917         End Function
30918         
30919         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
30920          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
30921          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
30922          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
30923         Public Overloads Overridable Function Delete(ByVal Original_Id As Integer, ByVal Original_StaffID As Integer, ByVal Original_Discount As Decimal) As Integer
30924             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_Id,Integer)
30925             Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_StaffID,Integer)
30926             Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_Discount,Decimal)
30927             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
30928             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
30929                         <> Global.System.Data.ConnectionState.Open) Then
30930                 Me.Adapter.DeleteCommand.Connection.Open
30931             End If
30932             Try
30933                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
30934                 Return returnValue
30935             Finally
30936                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
30937                     Me.Adapter.DeleteCommand.Connection.Close
30938                 End If
30939             End Try
30940         End Function
30941         
30942         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
30943          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
30944          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
30945          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
30946         Public Overloads Overridable Function Insert(ByVal StaffID As Integer, ByVal Discount As Decimal) As Integer
30947             Me.Adapter.InsertCommand.Parameters(0).Value = CType(StaffID,Integer)
30948             Me.Adapter.InsertCommand.Parameters(1).Value = CType(Discount,Decimal)
30949             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
30950             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
30951                         <> Global.System.Data.ConnectionState.Open) Then
30952                 Me.Adapter.InsertCommand.Connection.Open
30953             End If
30954             Try
30955                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
30956                 Return returnValue
30957             Finally
30958                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
30959                     Me.Adapter.InsertCommand.Connection.Close
30960                 End If
30961             End Try
30962         End Function
30963         
30964         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
30965          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
30966          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
30967          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
30968         Public Overloads Overridable Function Update(ByVal StaffID As Integer, ByVal Discount As Decimal, ByVal Original_Id As Integer, ByVal Original_StaffID As Integer, ByVal Original_Discount As Decimal, ByVal Id As Integer) As Integer
30969             Me.Adapter.UpdateCommand.Parameters(0).Value = CType(StaffID,Integer)
30970             Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Discount,Decimal)
30971             Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Original_Id,Integer)
30972             Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_StaffID,Integer)
30973             Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_Discount,Decimal)
30974             Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Id,Integer)
30975             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
30976             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
30977                         <> Global.System.Data.ConnectionState.Open) Then
30978                 Me.Adapter.UpdateCommand.Connection.Open
30979             End If
30980             Try
30981                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
30982                 Return returnValue
30983             Finally
30984                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
30985                     Me.Adapter.UpdateCommand.Connection.Close
30986                 End If
30987             End Try
30988         End Function
30989         
30990         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
30991          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
30992          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
30993          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
30994         Public Overloads Overridable Function Update(ByVal StaffID As Integer, ByVal Discount As Decimal, ByVal Original_Id As Integer, ByVal Original_StaffID As Integer, ByVal Original_Discount As Decimal) As Integer
30995             Return Me.Update(StaffID, Discount, Original_Id, Original_StaffID, Original_Discount, Original_Id)
30996         End Function
30997     End Class
30998     
30999     '''<summary>
31000     '''Represents the connection and commands used to retrieve and save data.
31001     '''</summary>
31002     <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
31003      Global.System.ComponentModel.ToolboxItem(true), _
31004      Global.System.ComponentModel.DataObjectAttribute(true), _
31005      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
31006         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
31007      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
31008     Partial Public Class DocumentTableAdapter
31009         Inherits Global.System.ComponentModel.Component
31010         
31011         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
31012         
31013         Private _connection As Global.System.Data.SqlClient.SqlConnection
31014         
31015         Private _transaction As Global.System.Data.SqlClient.SqlTransaction
31016         
31017         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
31018         
31019         Private _clearBeforeFill As Boolean
31020         
31021         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
31022          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
31023         Public Sub New()
31024             MyBase.New
31025             Me.ClearBeforeFill = true
31026         End Sub
31027         
31028         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
31029          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
31030         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
31031             Get
31032                 If (Me._adapter Is Nothing) Then
31033                     Me.InitAdapter
31034                 End If
31035                 Return Me._adapter
31036             End Get
31037         End Property
31038         
31039         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
31040          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
31041         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
31042             Get
31043                 If (Me._connection Is Nothing) Then
31044                     Me.InitConnection
31045                 End If
31046                 Return Me._connection
31047             End Get
31048             Set
31049                 Me._connection = value
31050                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
31051                     Me.Adapter.InsertCommand.Connection = value
31052                 End If
31053                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
31054                     Me.Adapter.DeleteCommand.Connection = value
31055                 End If
31056                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
31057                     Me.Adapter.UpdateCommand.Connection = value
31058                 End If
31059                 Dim i As Integer = 0
31060                 Do While (i < Me.CommandCollection.Length)
31061                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
31062                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
31063                     End If
31064                     i = (i + 1)
31065                 Loop
31066             End Set
31067         End Property
31068         
31069         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
31070          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
31071         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
31072             Get
31073                 Return Me._transaction
31074             End Get
31075             Set
31076                 Me._transaction = value
31077                 Dim i As Integer = 0
31078                 Do While (i < Me.CommandCollection.Length)
31079                     Me.CommandCollection(i).Transaction = Me._transaction
31080                     i = (i + 1)
31081                 Loop
31082                 If ((Not (Me.Adapter) Is Nothing) _
31083                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
31084                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
31085                 End If
31086                 If ((Not (Me.Adapter) Is Nothing) _
31087                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
31088                     Me.Adapter.InsertCommand.Transaction = Me._transaction
31089                 End If
31090                 If ((Not (Me.Adapter) Is Nothing) _
31091                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
31092                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
31093                 End If
31094             End Set
31095         End Property
31096         
31097         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
31098          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
31099         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
31100             Get
31101                 If (Me._commandCollection Is Nothing) Then
31102                     Me.InitCommandCollection
31103                 End If
31104                 Return Me._commandCollection
31105             End Get
31106         End Property
31107         
31108         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
31109          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
31110         Public Property ClearBeforeFill() As Boolean
31111             Get
31112                 Return Me._clearBeforeFill
31113             End Get
31114             Set
31115                 Me._clearBeforeFill = value
31116             End Set
31117         End Property
31118         
31119         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
31120          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
31121         Private Sub InitAdapter()
31122             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
31123             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
31124             tableMapping.SourceTable = "Table"
31125             tableMapping.DataSetTable = "Document"
31126             tableMapping.ColumnMappings.Add("Doc_Id", "Doc_Id")
31127             tableMapping.ColumnMappings.Add("DocName", "DocName")
31128             Me._adapter.TableMappings.Add(tableMapping)
31129             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
31130             Me._adapter.DeleteCommand.Connection = Me.Connection
31131             Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[Document] WHERE (([Doc_Id] = @Original_Doc_Id) AND ([DocName] "& _
31132                 "= @Original_DocName))"
31133             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
31134             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Doc_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Doc_Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
31135             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DocName", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
31136             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
31137             Me._adapter.InsertCommand.Connection = Me.Connection
31138             Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[Document] ([Doc_Id], [DocName]) VALUES (@Doc_Id, @DocName);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"S"& _
31139                 "ELECT Doc_Id, DocName FROM [Document] WHERE (Doc_Id = @Doc_Id)"
31140             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
31141             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Doc_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Doc_Id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
31142             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DocName", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
31143             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
31144             Me._adapter.UpdateCommand.Connection = Me.Connection
31145             Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[Document] SET [Doc_Id] = @Doc_Id, [DocName] = @DocName WHERE (([Doc"& _
31146                 "_Id] = @Original_Doc_Id) AND ([DocName] = @Original_DocName));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Doc_Id, D"& _
31147                 "ocName FROM [Document] WHERE (Doc_Id = @Doc_Id)"
31148             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
31149             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Doc_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Doc_Id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
31150             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DocName", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
31151             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Doc_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Doc_Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
31152             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DocName", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
31153         End Sub
31154         
31155         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
31156          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
31157         Private Sub InitConnection()
31158             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
31159             Me._connection.ConnectionString = Global.ERP_System.My.MySettings.Default.ERPS_DBConnectionString
31160         End Sub
31161         
31162         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
31163          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
31164         Private Sub InitCommandCollection()
31165             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
31166             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
31167             Me._commandCollection(0).Connection = Me.Connection
31168             Me._commandCollection(0).CommandText = "SELECT Doc_Id, DocName FROM dbo.Document"
31169             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
31170         End Sub
31171         
31172         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
31173          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
31174          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
31175          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
31176         Public Overloads Overridable Function Fill(ByVal dataTable As ERPS_DBDataSet1.DocumentDataTable) As Integer
31177             Me.Adapter.SelectCommand = Me.CommandCollection(0)
31178             If (Me.ClearBeforeFill = true) Then
31179                 dataTable.Clear
31180             End If
31181             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
31182             Return returnValue
31183         End Function
31184         
31185         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
31186          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
31187          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
31188          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
31189         Public Overloads Overridable Function GetData() As ERPS_DBDataSet1.DocumentDataTable
31190             Me.Adapter.SelectCommand = Me.CommandCollection(0)
31191             Dim dataTable As ERPS_DBDataSet1.DocumentDataTable = New ERPS_DBDataSet1.DocumentDataTable()
31192             Me.Adapter.Fill(dataTable)
31193             Return dataTable
31194         End Function
31195         
31196         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
31197          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
31198          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
31199         Public Overloads Overridable Function Update(ByVal dataTable As ERPS_DBDataSet1.DocumentDataTable) As Integer
31200             Return Me.Adapter.Update(dataTable)
31201         End Function
31202         
31203         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
31204          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
31205          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
31206         Public Overloads Overridable Function Update(ByVal dataSet As ERPS_DBDataSet1) As Integer
31207             Return Me.Adapter.Update(dataSet, "Document")
31208         End Function
31209         
31210         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
31211          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
31212          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
31213         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
31214             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
31215         End Function
31216         
31217         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
31218          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
31219          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
31220         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
31221             Return Me.Adapter.Update(dataRows)
31222         End Function
31223         
31224         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
31225          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
31226          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
31227          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
31228         Public Overloads Overridable Function Delete(ByVal Original_Doc_Id As Integer, ByVal Original_DocName As String) As Integer
31229             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_Doc_Id,Integer)
31230             If (Original_DocName Is Nothing) Then
31231                 Throw New Global.System.ArgumentNullException("Original_DocName")
31232             Else
31233                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_DocName,String)
31234             End If
31235             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
31236             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
31237                         <> Global.System.Data.ConnectionState.Open) Then
31238                 Me.Adapter.DeleteCommand.Connection.Open
31239             End If
31240             Try
31241                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
31242                 Return returnValue
31243             Finally
31244                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
31245                     Me.Adapter.DeleteCommand.Connection.Close
31246                 End If
31247             End Try
31248         End Function
31249         
31250         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
31251          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
31252          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
31253          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
31254         Public Overloads Overridable Function Insert(ByVal Doc_Id As Integer, ByVal DocName As String) As Integer
31255             Me.Adapter.InsertCommand.Parameters(0).Value = CType(Doc_Id,Integer)
31256             If (DocName Is Nothing) Then
31257                 Throw New Global.System.ArgumentNullException("DocName")
31258             Else
31259                 Me.Adapter.InsertCommand.Parameters(1).Value = CType(DocName,String)
31260             End If
31261             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
31262             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
31263                         <> Global.System.Data.ConnectionState.Open) Then
31264                 Me.Adapter.InsertCommand.Connection.Open
31265             End If
31266             Try
31267                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
31268                 Return returnValue
31269             Finally
31270                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
31271                     Me.Adapter.InsertCommand.Connection.Close
31272                 End If
31273             End Try
31274         End Function
31275         
31276         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
31277          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
31278          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
31279          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
31280         Public Overloads Overridable Function Update(ByVal Doc_Id As Integer, ByVal DocName As String, ByVal Original_Doc_Id As Integer, ByVal Original_DocName As String) As Integer
31281             Me.Adapter.UpdateCommand.Parameters(0).Value = CType(Doc_Id,Integer)
31282             If (DocName Is Nothing) Then
31283                 Throw New Global.System.ArgumentNullException("DocName")
31284             Else
31285                 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(DocName,String)
31286             End If
31287             Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Original_Doc_Id,Integer)
31288             If (Original_DocName Is Nothing) Then
31289                 Throw New Global.System.ArgumentNullException("Original_DocName")
31290             Else
31291                 Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_DocName,String)
31292             End If
31293             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
31294             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
31295                         <> Global.System.Data.ConnectionState.Open) Then
31296                 Me.Adapter.UpdateCommand.Connection.Open
31297             End If
31298             Try
31299                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
31300                 Return returnValue
31301             Finally
31302                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
31303                     Me.Adapter.UpdateCommand.Connection.Close
31304                 End If
31305             End Try
31306         End Function
31307         
31308         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
31309          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
31310          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
31311          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
31312         Public Overloads Overridable Function Update(ByVal DocName As String, ByVal Original_Doc_Id As Integer, ByVal Original_DocName As String) As Integer
31313             Return Me.Update(Original_Doc_Id, DocName, Original_Doc_Id, Original_DocName)
31314         End Function
31315     End Class
31316     
31317     '''<summary>
31318     '''Represents the connection and commands used to retrieve and save data.
31319     '''</summary>
31320     <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
31321      Global.System.ComponentModel.ToolboxItem(true), _
31322      Global.System.ComponentModel.DataObjectAttribute(true), _
31323      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
31324         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
31325      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
31326     Partial Public Class FeeTableAdapter
31327         Inherits Global.System.ComponentModel.Component
31328         
31329         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
31330         
31331         Private _connection As Global.System.Data.SqlClient.SqlConnection
31332         
31333         Private _transaction As Global.System.Data.SqlClient.SqlTransaction
31334         
31335         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
31336         
31337         Private _clearBeforeFill As Boolean
31338         
31339         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
31340          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
31341         Public Sub New()
31342             MyBase.New
31343             Me.ClearBeforeFill = true
31344         End Sub
31345         
31346         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
31347          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
31348         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
31349             Get
31350                 If (Me._adapter Is Nothing) Then
31351                     Me.InitAdapter
31352                 End If
31353                 Return Me._adapter
31354             End Get
31355         End Property
31356         
31357         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
31358          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
31359         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
31360             Get
31361                 If (Me._connection Is Nothing) Then
31362                     Me.InitConnection
31363                 End If
31364                 Return Me._connection
31365             End Get
31366             Set
31367                 Me._connection = value
31368                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
31369                     Me.Adapter.InsertCommand.Connection = value
31370                 End If
31371                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
31372                     Me.Adapter.DeleteCommand.Connection = value
31373                 End If
31374                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
31375                     Me.Adapter.UpdateCommand.Connection = value
31376                 End If
31377                 Dim i As Integer = 0
31378                 Do While (i < Me.CommandCollection.Length)
31379                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
31380                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
31381                     End If
31382                     i = (i + 1)
31383                 Loop
31384             End Set
31385         End Property
31386         
31387         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
31388          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
31389         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
31390             Get
31391                 Return Me._transaction
31392             End Get
31393             Set
31394                 Me._transaction = value
31395                 Dim i As Integer = 0
31396                 Do While (i < Me.CommandCollection.Length)
31397                     Me.CommandCollection(i).Transaction = Me._transaction
31398                     i = (i + 1)
31399                 Loop
31400                 If ((Not (Me.Adapter) Is Nothing) _
31401                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
31402                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
31403                 End If
31404                 If ((Not (Me.Adapter) Is Nothing) _
31405                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
31406                     Me.Adapter.InsertCommand.Transaction = Me._transaction
31407                 End If
31408                 If ((Not (Me.Adapter) Is Nothing) _
31409                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
31410                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
31411                 End If
31412             End Set
31413         End Property
31414         
31415         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
31416          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
31417         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
31418             Get
31419                 If (Me._commandCollection Is Nothing) Then
31420                     Me.InitCommandCollection
31421                 End If
31422                 Return Me._commandCollection
31423             End Get
31424         End Property
31425         
31426         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
31427          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
31428         Public Property ClearBeforeFill() As Boolean
31429             Get
31430                 Return Me._clearBeforeFill
31431             End Get
31432             Set
31433                 Me._clearBeforeFill = value
31434             End Set
31435         End Property
31436         
31437         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
31438          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
31439         Private Sub InitAdapter()
31440             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
31441             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
31442             tableMapping.SourceTable = "Table"
31443             tableMapping.DataSetTable = "Fee"
31444             tableMapping.ColumnMappings.Add("Feename", "Feename")
31445             Me._adapter.TableMappings.Add(tableMapping)
31446             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
31447             Me._adapter.DeleteCommand.Connection = Me.Connection
31448             Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[Fee] WHERE (([Feename] = @Original_Feename))"
31449             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
31450             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Feename", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Feename", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
31451             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
31452             Me._adapter.InsertCommand.Connection = Me.Connection
31453             Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[Fee] ([Feename]) VALUES (@Feename);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Feename FROM Fee W"& _
31454                 "HERE (Feename = @Feename)"
31455             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
31456             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Feename", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Feename", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
31457             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
31458             Me._adapter.UpdateCommand.Connection = Me.Connection
31459             Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[Fee] SET [Feename] = @Feename WHERE (([Feename] = @Original_Feename"& _
31460                 "));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Feename FROM Fee WHERE (Feename = @Feename)"
31461             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
31462             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Feename", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Feename", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
31463             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Feename", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Feename", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
31464         End Sub
31465         
31466         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
31467          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
31468         Private Sub InitConnection()
31469             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
31470             Me._connection.ConnectionString = Global.ERP_System.My.MySettings.Default.ERPS_DBConnectionString
31471         End Sub
31472         
31473         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
31474          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
31475         Private Sub InitCommandCollection()
31476             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
31477             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
31478             Me._commandCollection(0).Connection = Me.Connection
31479             Me._commandCollection(0).CommandText = "SELECT Feename FROM dbo.Fee"
31480             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
31481         End Sub
31482         
31483         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
31484          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
31485          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
31486          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
31487         Public Overloads Overridable Function Fill(ByVal dataTable As ERPS_DBDataSet1.FeeDataTable) As Integer
31488             Me.Adapter.SelectCommand = Me.CommandCollection(0)
31489             If (Me.ClearBeforeFill = true) Then
31490                 dataTable.Clear
31491             End If
31492             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
31493             Return returnValue
31494         End Function
31495         
31496         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
31497          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
31498          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
31499          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
31500         Public Overloads Overridable Function GetData() As ERPS_DBDataSet1.FeeDataTable
31501             Me.Adapter.SelectCommand = Me.CommandCollection(0)
31502             Dim dataTable As ERPS_DBDataSet1.FeeDataTable = New ERPS_DBDataSet1.FeeDataTable()
31503             Me.Adapter.Fill(dataTable)
31504             Return dataTable
31505         End Function
31506         
31507         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
31508          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
31509          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
31510         Public Overloads Overridable Function Update(ByVal dataTable As ERPS_DBDataSet1.FeeDataTable) As Integer
31511             Return Me.Adapter.Update(dataTable)
31512         End Function
31513         
31514         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
31515          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
31516          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
31517         Public Overloads Overridable Function Update(ByVal dataSet As ERPS_DBDataSet1) As Integer
31518             Return Me.Adapter.Update(dataSet, "Fee")
31519         End Function
31520         
31521         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
31522          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
31523          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
31524         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
31525             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
31526         End Function
31527         
31528         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
31529          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
31530          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
31531         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
31532             Return Me.Adapter.Update(dataRows)
31533         End Function
31534         
31535         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
31536          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
31537          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
31538          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
31539         Public Overloads Overridable Function Delete(ByVal Original_Feename As String) As Integer
31540             If (Original_Feename Is Nothing) Then
31541                 Throw New Global.System.ArgumentNullException("Original_Feename")
31542             Else
31543                 Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_Feename,String)
31544             End If
31545             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
31546             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
31547                         <> Global.System.Data.ConnectionState.Open) Then
31548                 Me.Adapter.DeleteCommand.Connection.Open
31549             End If
31550             Try
31551                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
31552                 Return returnValue
31553             Finally
31554                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
31555                     Me.Adapter.DeleteCommand.Connection.Close
31556                 End If
31557             End Try
31558         End Function
31559         
31560         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
31561          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
31562          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
31563          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
31564         Public Overloads Overridable Function Insert(ByVal Feename As String) As Integer
31565             If (Feename Is Nothing) Then
31566                 Throw New Global.System.ArgumentNullException("Feename")
31567             Else
31568                 Me.Adapter.InsertCommand.Parameters(0).Value = CType(Feename,String)
31569             End If
31570             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
31571             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
31572                         <> Global.System.Data.ConnectionState.Open) Then
31573                 Me.Adapter.InsertCommand.Connection.Open
31574             End If
31575             Try
31576                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
31577                 Return returnValue
31578             Finally
31579                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
31580                     Me.Adapter.InsertCommand.Connection.Close
31581                 End If
31582             End Try
31583         End Function
31584         
31585         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
31586          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
31587          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
31588          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
31589         Public Overloads Overridable Function Update(ByVal Feename As String, ByVal Original_Feename As String) As Integer
31590             If (Feename Is Nothing) Then
31591                 Throw New Global.System.ArgumentNullException("Feename")
31592             Else
31593                 Me.Adapter.UpdateCommand.Parameters(0).Value = CType(Feename,String)
31594             End If
31595             If (Original_Feename Is Nothing) Then
31596                 Throw New Global.System.ArgumentNullException("Original_Feename")
31597             Else
31598                 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Original_Feename,String)
31599             End If
31600             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
31601             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
31602                         <> Global.System.Data.ConnectionState.Open) Then
31603                 Me.Adapter.UpdateCommand.Connection.Open
31604             End If
31605             Try
31606                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
31607                 Return returnValue
31608             Finally
31609                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
31610                     Me.Adapter.UpdateCommand.Connection.Close
31611                 End If
31612             End Try
31613         End Function
31614         
31615         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
31616          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
31617          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
31618          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
31619         Public Overloads Overridable Function Update(ByVal Original_Feename As String) As Integer
31620             Return Me.Update(Original_Feename, Original_Feename)
31621         End Function
31622     End Class
31623     
31624     '''<summary>
31625     '''Represents the connection and commands used to retrieve and save data.
31626     '''</summary>
31627     <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
31628      Global.System.ComponentModel.ToolboxItem(true), _
31629      Global.System.ComponentModel.DataObjectAttribute(true), _
31630      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
31631         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
31632      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
31633     Partial Public Class HostelerTableAdapter
31634         Inherits Global.System.ComponentModel.Component
31635         
31636         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
31637         
31638         Private _connection As Global.System.Data.SqlClient.SqlConnection
31639         
31640         Private _transaction As Global.System.Data.SqlClient.SqlTransaction
31641         
31642         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
31643         
31644         Private _clearBeforeFill As Boolean
31645         
31646         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
31647          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
31648         Public Sub New()
31649             MyBase.New
31650             Me.ClearBeforeFill = true
31651         End Sub
31652         
31653         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
31654          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
31655         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
31656             Get
31657                 If (Me._adapter Is Nothing) Then
31658                     Me.InitAdapter
31659                 End If
31660                 Return Me._adapter
31661             End Get
31662         End Property
31663         
31664         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
31665          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
31666         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
31667             Get
31668                 If (Me._connection Is Nothing) Then
31669                     Me.InitConnection
31670                 End If
31671                 Return Me._connection
31672             End Get
31673             Set
31674                 Me._connection = value
31675                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
31676                     Me.Adapter.InsertCommand.Connection = value
31677                 End If
31678                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
31679                     Me.Adapter.DeleteCommand.Connection = value
31680                 End If
31681                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
31682                     Me.Adapter.UpdateCommand.Connection = value
31683                 End If
31684                 Dim i As Integer = 0
31685                 Do While (i < Me.CommandCollection.Length)
31686                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
31687                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
31688                     End If
31689                     i = (i + 1)
31690                 Loop
31691             End Set
31692         End Property
31693         
31694         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
31695          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
31696         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
31697             Get
31698                 Return Me._transaction
31699             End Get
31700             Set
31701                 Me._transaction = value
31702                 Dim i As Integer = 0
31703                 Do While (i < Me.CommandCollection.Length)
31704                     Me.CommandCollection(i).Transaction = Me._transaction
31705                     i = (i + 1)
31706                 Loop
31707                 If ((Not (Me.Adapter) Is Nothing) _
31708                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
31709                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
31710                 End If
31711                 If ((Not (Me.Adapter) Is Nothing) _
31712                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
31713                     Me.Adapter.InsertCommand.Transaction = Me._transaction
31714                 End If
31715                 If ((Not (Me.Adapter) Is Nothing) _
31716                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
31717                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
31718                 End If
31719             End Set
31720         End Property
31721         
31722         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
31723          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
31724         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
31725             Get
31726                 If (Me._commandCollection Is Nothing) Then
31727                     Me.InitCommandCollection
31728                 End If
31729                 Return Me._commandCollection
31730             End Get
31731         End Property
31732         
31733         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
31734          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
31735         Public Property ClearBeforeFill() As Boolean
31736             Get
31737                 Return Me._clearBeforeFill
31738             End Get
31739             Set
31740                 Me._clearBeforeFill = value
31741             End Set
31742         End Property
31743         
31744         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
31745          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
31746         Private Sub InitAdapter()
31747             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
31748             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
31749             tableMapping.SourceTable = "Table"
31750             tableMapping.DataSetTable = "Hosteler"
31751             tableMapping.ColumnMappings.Add("H_Id", "H_Id")
31752             tableMapping.ColumnMappings.Add("AdmissionNo", "AdmissionNo")
31753             tableMapping.ColumnMappings.Add("HostelID", "HostelID")
31754             tableMapping.ColumnMappings.Add("JoiningDate", "JoiningDate")
31755             tableMapping.ColumnMappings.Add("Status", "Status")
31756             Me._adapter.TableMappings.Add(tableMapping)
31757             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
31758             Me._adapter.DeleteCommand.Connection = Me.Connection
31759             Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[Hosteler] WHERE (([H_Id] = @Original_H_Id) AND ([AdmissionNo] "& _
31760                 "= @Original_AdmissionNo) AND ([HostelID] = @Original_HostelID) AND ([JoiningDate"& _
31761                 "] = @Original_JoiningDate) AND ([Status] = @Original_Status))"
31762             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
31763             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_H_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "H_Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
31764             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_AdmissionNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AdmissionNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
31765             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_HostelID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HostelID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
31766             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_JoiningDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "JoiningDate", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
31767             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Status", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Status", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
31768             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
31769             Me._adapter.InsertCommand.Connection = Me.Connection
31770             Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[Hosteler] ([H_Id], [AdmissionNo], [HostelID], [JoiningDate], ["& _
31771                 "Status]) VALUES (@H_Id, @AdmissionNo, @HostelID, @JoiningDate, @Status);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT"& _
31772                 " H_Id, AdmissionNo, HostelID, JoiningDate, Status FROM Hosteler WHERE (H_Id = @H"& _
31773                 "_Id)"
31774             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
31775             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@H_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "H_Id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
31776             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AdmissionNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AdmissionNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
31777             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HostelID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HostelID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
31778             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@JoiningDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "JoiningDate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
31779             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Status", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Status", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
31780             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
31781             Me._adapter.UpdateCommand.Connection = Me.Connection
31782             Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[Hosteler] SET [H_Id] = @H_Id, [AdmissionNo] = @AdmissionNo, [Hostel"& _
31783                 "ID] = @HostelID, [JoiningDate] = @JoiningDate, [Status] = @Status WHERE (([H_Id]"& _
31784                 " = @Original_H_Id) AND ([AdmissionNo] = @Original_AdmissionNo) AND ([HostelID] ="& _
31785                 " @Original_HostelID) AND ([JoiningDate] = @Original_JoiningDate) AND ([Status] ="& _
31786                 " @Original_Status));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT H_Id, AdmissionNo, HostelID, JoiningDate, Status FR"& _
31787                 "OM Hosteler WHERE (H_Id = @H_Id)"
31788             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
31789             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@H_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "H_Id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
31790             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AdmissionNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AdmissionNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
31791             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HostelID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HostelID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
31792             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@JoiningDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "JoiningDate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
31793             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Status", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Status", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
31794             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_H_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "H_Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
31795             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_AdmissionNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AdmissionNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
31796             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_HostelID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HostelID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
31797             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_JoiningDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "JoiningDate", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
31798             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Status", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Status", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
31799         End Sub
31800         
31801         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
31802          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
31803         Private Sub InitConnection()
31804             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
31805             Me._connection.ConnectionString = Global.ERP_System.My.MySettings.Default.ERPS_DBConnectionString
31806         End Sub
31807         
31808         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
31809          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
31810         Private Sub InitCommandCollection()
31811             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
31812             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
31813             Me._commandCollection(0).Connection = Me.Connection
31814             Me._commandCollection(0).CommandText = "SELECT H_Id, AdmissionNo, HostelID, JoiningDate, Status FROM dbo.Hosteler"
31815             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
31816         End Sub
31817         
31818         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
31819          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
31820          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
31821          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
31822         Public Overloads Overridable Function Fill(ByVal dataTable As ERPS_DBDataSet1.HostelerDataTable) As Integer
31823             Me.Adapter.SelectCommand = Me.CommandCollection(0)
31824             If (Me.ClearBeforeFill = true) Then
31825                 dataTable.Clear
31826             End If
31827             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
31828             Return returnValue
31829         End Function
31830         
31831         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
31832          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
31833          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
31834          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
31835         Public Overloads Overridable Function GetData() As ERPS_DBDataSet1.HostelerDataTable
31836             Me.Adapter.SelectCommand = Me.CommandCollection(0)
31837             Dim dataTable As ERPS_DBDataSet1.HostelerDataTable = New ERPS_DBDataSet1.HostelerDataTable()
31838             Me.Adapter.Fill(dataTable)
31839             Return dataTable
31840         End Function
31841         
31842         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
31843          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
31844          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
31845         Public Overloads Overridable Function Update(ByVal dataTable As ERPS_DBDataSet1.HostelerDataTable) As Integer
31846             Return Me.Adapter.Update(dataTable)
31847         End Function
31848         
31849         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
31850          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
31851          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
31852         Public Overloads Overridable Function Update(ByVal dataSet As ERPS_DBDataSet1) As Integer
31853             Return Me.Adapter.Update(dataSet, "Hosteler")
31854         End Function
31855         
31856         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
31857          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
31858          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
31859         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
31860             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
31861         End Function
31862         
31863         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
31864          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
31865          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
31866         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
31867             Return Me.Adapter.Update(dataRows)
31868         End Function
31869         
31870         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
31871          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
31872          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
31873          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
31874         Public Overloads Overridable Function Delete(ByVal Original_H_Id As Integer, ByVal Original_AdmissionNo As String, ByVal Original_HostelID As Integer, ByVal Original_JoiningDate As Date, ByVal Original_Status As String) As Integer
31875             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_H_Id,Integer)
31876             If (Original_AdmissionNo Is Nothing) Then
31877                 Throw New Global.System.ArgumentNullException("Original_AdmissionNo")
31878             Else
31879                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_AdmissionNo,String)
31880             End If
31881             Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_HostelID,Integer)
31882             Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_JoiningDate,Date)
31883             If (Original_Status Is Nothing) Then
31884                 Throw New Global.System.ArgumentNullException("Original_Status")
31885             Else
31886                 Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_Status,String)
31887             End If
31888             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
31889             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
31890                         <> Global.System.Data.ConnectionState.Open) Then
31891                 Me.Adapter.DeleteCommand.Connection.Open
31892             End If
31893             Try
31894                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
31895                 Return returnValue
31896             Finally
31897                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
31898                     Me.Adapter.DeleteCommand.Connection.Close
31899                 End If
31900             End Try
31901         End Function
31902         
31903         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
31904          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
31905          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
31906          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
31907         Public Overloads Overridable Function Insert(ByVal H_Id As Integer, ByVal AdmissionNo As String, ByVal HostelID As Integer, ByVal JoiningDate As Date, ByVal Status As String) As Integer
31908             Me.Adapter.InsertCommand.Parameters(0).Value = CType(H_Id,Integer)
31909             If (AdmissionNo Is Nothing) Then
31910                 Throw New Global.System.ArgumentNullException("AdmissionNo")
31911             Else
31912                 Me.Adapter.InsertCommand.Parameters(1).Value = CType(AdmissionNo,String)
31913             End If
31914             Me.Adapter.InsertCommand.Parameters(2).Value = CType(HostelID,Integer)
31915             Me.Adapter.InsertCommand.Parameters(3).Value = CType(JoiningDate,Date)
31916             If (Status Is Nothing) Then
31917                 Throw New Global.System.ArgumentNullException("Status")
31918             Else
31919                 Me.Adapter.InsertCommand.Parameters(4).Value = CType(Status,String)
31920             End If
31921             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
31922             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
31923                         <> Global.System.Data.ConnectionState.Open) Then
31924                 Me.Adapter.InsertCommand.Connection.Open
31925             End If
31926             Try
31927                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
31928                 Return returnValue
31929             Finally
31930                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
31931                     Me.Adapter.InsertCommand.Connection.Close
31932                 End If
31933             End Try
31934         End Function
31935         
31936         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
31937          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
31938          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
31939          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
31940         Public Overloads Overridable Function Update(ByVal H_Id As Integer, ByVal AdmissionNo As String, ByVal HostelID As Integer, ByVal JoiningDate As Date, ByVal Status As String, ByVal Original_H_Id As Integer, ByVal Original_AdmissionNo As String, ByVal Original_HostelID As Integer, ByVal Original_JoiningDate As Date, ByVal Original_Status As String) As Integer
31941             Me.Adapter.UpdateCommand.Parameters(0).Value = CType(H_Id,Integer)
31942             If (AdmissionNo Is Nothing) Then
31943                 Throw New Global.System.ArgumentNullException("AdmissionNo")
31944             Else
31945                 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(AdmissionNo,String)
31946             End If
31947             Me.Adapter.UpdateCommand.Parameters(2).Value = CType(HostelID,Integer)
31948             Me.Adapter.UpdateCommand.Parameters(3).Value = CType(JoiningDate,Date)
31949             If (Status Is Nothing) Then
31950                 Throw New Global.System.ArgumentNullException("Status")
31951             Else
31952                 Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Status,String)
31953             End If
31954             Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_H_Id,Integer)
31955             If (Original_AdmissionNo Is Nothing) Then
31956                 Throw New Global.System.ArgumentNullException("Original_AdmissionNo")
31957             Else
31958                 Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_AdmissionNo,String)
31959             End If
31960             Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_HostelID,Integer)
31961             Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_JoiningDate,Date)
31962             If (Original_Status Is Nothing) Then
31963                 Throw New Global.System.ArgumentNullException("Original_Status")
31964             Else
31965                 Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_Status,String)
31966             End If
31967             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
31968             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
31969                         <> Global.System.Data.ConnectionState.Open) Then
31970                 Me.Adapter.UpdateCommand.Connection.Open
31971             End If
31972             Try
31973                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
31974                 Return returnValue
31975             Finally
31976                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
31977                     Me.Adapter.UpdateCommand.Connection.Close
31978                 End If
31979             End Try
31980         End Function
31981         
31982         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
31983          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
31984          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
31985          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
31986         Public Overloads Overridable Function Update(ByVal AdmissionNo As String, ByVal HostelID As Integer, ByVal JoiningDate As Date, ByVal Status As String, ByVal Original_H_Id As Integer, ByVal Original_AdmissionNo As String, ByVal Original_HostelID As Integer, ByVal Original_JoiningDate As Date, ByVal Original_Status As String) As Integer
31987             Return Me.Update(Original_H_Id, AdmissionNo, HostelID, JoiningDate, Status, Original_H_Id, Original_AdmissionNo, Original_HostelID, Original_JoiningDate, Original_Status)
31988         End Function
31989     End Class
31990     
31991     '''<summary>
31992     '''Represents the connection and commands used to retrieve and save data.
31993     '''</summary>
31994     <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
31995      Global.System.ComponentModel.ToolboxItem(true), _
31996      Global.System.ComponentModel.DataObjectAttribute(true), _
31997      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
31998         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
31999      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
32000     Partial Public Class HostelFeePaymentTableAdapter
32001         Inherits Global.System.ComponentModel.Component
32002         
32003         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
32004         
32005         Private _connection As Global.System.Data.SqlClient.SqlConnection
32006         
32007         Private _transaction As Global.System.Data.SqlClient.SqlTransaction
32008         
32009         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
32010         
32011         Private _clearBeforeFill As Boolean
32012         
32013         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
32014          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
32015         Public Sub New()
32016             MyBase.New
32017             Me.ClearBeforeFill = true
32018         End Sub
32019         
32020         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
32021          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
32022         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
32023             Get
32024                 If (Me._adapter Is Nothing) Then
32025                     Me.InitAdapter
32026                 End If
32027                 Return Me._adapter
32028             End Get
32029         End Property
32030         
32031         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
32032          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
32033         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
32034             Get
32035                 If (Me._connection Is Nothing) Then
32036                     Me.InitConnection
32037                 End If
32038                 Return Me._connection
32039             End Get
32040             Set
32041                 Me._connection = value
32042                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
32043                     Me.Adapter.InsertCommand.Connection = value
32044                 End If
32045                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
32046                     Me.Adapter.DeleteCommand.Connection = value
32047                 End If
32048                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
32049                     Me.Adapter.UpdateCommand.Connection = value
32050                 End If
32051                 Dim i As Integer = 0
32052                 Do While (i < Me.CommandCollection.Length)
32053                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
32054                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
32055                     End If
32056                     i = (i + 1)
32057                 Loop
32058             End Set
32059         End Property
32060         
32061         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
32062          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
32063         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
32064             Get
32065                 Return Me._transaction
32066             End Get
32067             Set
32068                 Me._transaction = value
32069                 Dim i As Integer = 0
32070                 Do While (i < Me.CommandCollection.Length)
32071                     Me.CommandCollection(i).Transaction = Me._transaction
32072                     i = (i + 1)
32073                 Loop
32074                 If ((Not (Me.Adapter) Is Nothing) _
32075                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
32076                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
32077                 End If
32078                 If ((Not (Me.Adapter) Is Nothing) _
32079                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
32080                     Me.Adapter.InsertCommand.Transaction = Me._transaction
32081                 End If
32082                 If ((Not (Me.Adapter) Is Nothing) _
32083                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
32084                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
32085                 End If
32086             End Set
32087         End Property
32088         
32089         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
32090          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
32091         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
32092             Get
32093                 If (Me._commandCollection Is Nothing) Then
32094                     Me.InitCommandCollection
32095                 End If
32096                 Return Me._commandCollection
32097             End Get
32098         End Property
32099         
32100         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
32101          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
32102         Public Property ClearBeforeFill() As Boolean
32103             Get
32104                 Return Me._clearBeforeFill
32105             End Get
32106             Set
32107                 Me._clearBeforeFill = value
32108             End Set
32109         End Property
32110         
32111         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
32112          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
32113         Private Sub InitAdapter()
32114             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
32115             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
32116             tableMapping.SourceTable = "Table"
32117             tableMapping.DataSetTable = "HostelFeePayment"
32118             tableMapping.ColumnMappings.Add("Id", "Id")
32119             tableMapping.ColumnMappings.Add("HFP_Id", "HFP_Id")
32120             tableMapping.ColumnMappings.Add("PaymentID", "PaymentID")
32121             tableMapping.ColumnMappings.Add("HostelerID", "HostelerID")
32122             tableMapping.ColumnMappings.Add("Session", "Session")
32123             tableMapping.ColumnMappings.Add("Installment", "Installment")
32124             tableMapping.ColumnMappings.Add("TotalFee", "TotalFee")
32125             tableMapping.ColumnMappings.Add("DiscountPer", "DiscountPer")
32126             tableMapping.ColumnMappings.Add("DiscountAmt", "DiscountAmt")
32127             tableMapping.ColumnMappings.Add("PreviousDue", "PreviousDue")
32128             tableMapping.ColumnMappings.Add("Fine", "Fine")
32129             tableMapping.ColumnMappings.Add("GrandTotal", "GrandTotal")
32130             tableMapping.ColumnMappings.Add("TotalPaid", "TotalPaid")
32131             tableMapping.ColumnMappings.Add("ModeOfPayment", "ModeOfPayment")
32132             tableMapping.ColumnMappings.Add("PaymentModeDetails", "PaymentModeDetails")
32133             tableMapping.ColumnMappings.Add("Paymentdate", "Paymentdate")
32134             tableMapping.ColumnMappings.Add("PaymentDue", "PaymentDue")
32135             tableMapping.ColumnMappings.Add("ClassType", "ClassType")
32136             tableMapping.ColumnMappings.Add("SchoolType", "SchoolType")
32137             tableMapping.ColumnMappings.Add("Class", "Class")
32138             tableMapping.ColumnMappings.Add("Section", "Section")
32139             Me._adapter.TableMappings.Add(tableMapping)
32140             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
32141             Me._adapter.DeleteCommand.Connection = Me.Connection
32142             Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[HostelFeePayment] WHERE (([Id] = @Original_Id) AND ([HFP_Id] ="& _
32143                 " @Original_HFP_Id) AND ([PaymentID] = @Original_PaymentID) AND ([HostelerID] = @"& _
32144                 "Original_HostelerID) AND ([Session] = @Original_Session) AND ([Installment] = @O"& _
32145                 "riginal_Installment) AND ([TotalFee] = @Original_TotalFee) AND ([DiscountPer] = "& _
32146                 "@Original_DiscountPer) AND ([DiscountAmt] = @Original_DiscountAmt) AND ([Previou"& _
32147                 "sDue] = @Original_PreviousDue) AND ([Fine] = @Original_Fine) AND ([GrandTotal] ="& _
32148                 " @Original_GrandTotal) AND ([TotalPaid] = @Original_TotalPaid) AND ([ModeOfPayme"& _
32149                 "nt] = @Original_ModeOfPayment) AND ((@IsNull_PaymentModeDetails = 1 AND [Payment"& _
32150                 "ModeDetails] IS NULL) OR ([PaymentModeDetails] = @Original_PaymentModeDetails)) "& _
32151                 "AND ([Paymentdate] = @Original_Paymentdate) AND ([PaymentDue] = @Original_Paymen"& _
32152                 "tDue) AND ([ClassType] = @Original_ClassType) AND ([SchoolType] = @Original_Scho"& _
32153                 "olType) AND ([Class] = @Original_Class) AND ([Section] = @Original_Section))"
32154             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
32155             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
32156             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_HFP_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HFP_Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
32157             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PaymentID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PaymentID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
32158             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_HostelerID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HostelerID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
32159             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Session", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Session", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
32160             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Installment", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Installment", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
32161             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TotalFee", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalFee", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
32162             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DiscountPer", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "DiscountPer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
32163             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DiscountAmt", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "DiscountAmt", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
32164             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PreviousDue", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "PreviousDue", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
32165             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Fine", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Fine", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
32166             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GrandTotal", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "GrandTotal", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
32167             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TotalPaid", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalPaid", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
32168             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ModeOfPayment", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ModeOfPayment", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
32169             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_PaymentModeDetails", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PaymentModeDetails", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
32170             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PaymentModeDetails", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PaymentModeDetails", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
32171             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Paymentdate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Paymentdate", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
32172             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PaymentDue", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "PaymentDue", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
32173             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ClassType", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ClassType", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
32174             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SchoolType", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SchoolType", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
32175             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Class", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Class", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
32176             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Section", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Section", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
32177             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
32178             Me._adapter.InsertCommand.Connection = Me.Connection
32179             Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[HostelFeePayment] ([HFP_Id], [PaymentID], [HostelerID], [Sessi"& _
32180                 "on], [Installment], [TotalFee], [DiscountPer], [DiscountAmt], [PreviousDue], [Fi"& _
32181                 "ne], [GrandTotal], [TotalPaid], [ModeOfPayment], [PaymentModeDetails], [Paymentd"& _
32182                 "ate], [PaymentDue], [ClassType], [SchoolType], [Class], [Section]) VALUES (@HFP_"& _
32183                 "Id, @PaymentID, @HostelerID, @Session, @Installment, @TotalFee, @DiscountPer, @D"& _
32184                 "iscountAmt, @PreviousDue, @Fine, @GrandTotal, @TotalPaid, @ModeOfPayment, @Payme"& _
32185                 "ntModeDetails, @Paymentdate, @PaymentDue, @ClassType, @SchoolType, @Class, @Sect"& _
32186                 "ion);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Id, HFP_Id, PaymentID, HostelerID, Session, Installment, TotalFee,"& _
32187                 " DiscountPer, DiscountAmt, PreviousDue, Fine, GrandTotal, TotalPaid, ModeOfPayme"& _
32188                 "nt, PaymentModeDetails, Paymentdate, PaymentDue, ClassType, SchoolType, Class, S"& _
32189                 "ection FROM HostelFeePayment WHERE (Id = SCOPE_IDENTITY())"
32190             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
32191             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HFP_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HFP_Id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
32192             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PaymentID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PaymentID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
32193             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HostelerID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HostelerID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
32194             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Session", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Session", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
32195             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Installment", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Installment", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
32196             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TotalFee", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalFee", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
32197             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DiscountPer", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "DiscountPer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
32198             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DiscountAmt", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "DiscountAmt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
32199             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PreviousDue", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "PreviousDue", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
32200             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Fine", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Fine", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
32201             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GrandTotal", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "GrandTotal", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
32202             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TotalPaid", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalPaid", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
32203             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ModeOfPayment", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ModeOfPayment", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
32204             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PaymentModeDetails", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PaymentModeDetails", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
32205             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Paymentdate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Paymentdate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
32206             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PaymentDue", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "PaymentDue", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
32207             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ClassType", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ClassType", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
32208             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SchoolType", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SchoolType", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
32209             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Class", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Class", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
32210             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Section", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Section", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
32211             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
32212             Me._adapter.UpdateCommand.Connection = Me.Connection
32213             Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[HostelFeePayment] SET [HFP_Id] = @HFP_Id, [PaymentID] = @PaymentID,"& _
32214                 " [HostelerID] = @HostelerID, [Session] = @Session, [Installment] = @Installment,"& _
32215                 " [TotalFee] = @TotalFee, [DiscountPer] = @DiscountPer, [DiscountAmt] = @Discount"& _
32216                 "Amt, [PreviousDue] = @PreviousDue, [Fine] = @Fine, [GrandTotal] = @GrandTotal, ["& _
32217                 "TotalPaid] = @TotalPaid, [ModeOfPayment] = @ModeOfPayment, [PaymentModeDetails] "& _
32218                 "= @PaymentModeDetails, [Paymentdate] = @Paymentdate, [PaymentDue] = @PaymentDue,"& _
32219                 " [ClassType] = @ClassType, [SchoolType] = @SchoolType, [Class] = @Class, [Sectio"& _
32220                 "n] = @Section WHERE (([Id] = @Original_Id) AND ([HFP_Id] = @Original_HFP_Id) AND"& _
32221                 " ([PaymentID] = @Original_PaymentID) AND ([HostelerID] = @Original_HostelerID) A"& _
32222                 "ND ([Session] = @Original_Session) AND ([Installment] = @Original_Installment) A"& _
32223                 "ND ([TotalFee] = @Original_TotalFee) AND ([DiscountPer] = @Original_DiscountPer)"& _
32224                 " AND ([DiscountAmt] = @Original_DiscountAmt) AND ([PreviousDue] = @Original_Prev"& _
32225                 "iousDue) AND ([Fine] = @Original_Fine) AND ([GrandTotal] = @Original_GrandTotal)"& _
32226                 " AND ([TotalPaid] = @Original_TotalPaid) AND ([ModeOfPayment] = @Original_ModeOf"& _
32227                 "Payment) AND ((@IsNull_PaymentModeDetails = 1 AND [PaymentModeDetails] IS NULL) "& _
32228                 "OR ([PaymentModeDetails] = @Original_PaymentModeDetails)) AND ([Paymentdate] = @"& _
32229                 "Original_Paymentdate) AND ([PaymentDue] = @Original_PaymentDue) AND ([ClassType]"& _
32230                 " = @Original_ClassType) AND ([SchoolType] = @Original_SchoolType) AND ([Class] ="& _
32231                 " @Original_Class) AND ([Section] = @Original_Section));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Id, HFP_Id, Paym"& _
32232                 "entID, HostelerID, Session, Installment, TotalFee, DiscountPer, DiscountAmt, Pre"& _
32233                 "viousDue, Fine, GrandTotal, TotalPaid, ModeOfPayment, PaymentModeDetails, Paymen"& _
32234                 "tdate, PaymentDue, ClassType, SchoolType, Class, Section FROM HostelFeePayment W"& _
32235                 "HERE (Id = @Id)"
32236             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
32237             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HFP_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HFP_Id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
32238             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PaymentID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PaymentID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
32239             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HostelerID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HostelerID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
32240             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Session", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Session", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
32241             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Installment", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Installment", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
32242             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TotalFee", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalFee", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
32243             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DiscountPer", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "DiscountPer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
32244             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DiscountAmt", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "DiscountAmt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
32245             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PreviousDue", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "PreviousDue", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
32246             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Fine", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Fine", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
32247             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GrandTotal", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "GrandTotal", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
32248             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TotalPaid", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalPaid", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
32249             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ModeOfPayment", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ModeOfPayment", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
32250             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PaymentModeDetails", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PaymentModeDetails", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
32251             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Paymentdate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Paymentdate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
32252             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PaymentDue", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "PaymentDue", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
32253             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ClassType", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ClassType", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
32254             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SchoolType", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SchoolType", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
32255             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Class", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Class", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
32256             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Section", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Section", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
32257             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
32258             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_HFP_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HFP_Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
32259             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PaymentID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PaymentID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
32260             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_HostelerID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HostelerID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
32261             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Session", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Session", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
32262             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Installment", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Installment", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
32263             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TotalFee", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalFee", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
32264             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DiscountPer", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "DiscountPer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
32265             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DiscountAmt", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "DiscountAmt", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
32266             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PreviousDue", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "PreviousDue", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
32267             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Fine", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Fine", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
32268             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GrandTotal", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "GrandTotal", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
32269             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TotalPaid", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalPaid", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
32270             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ModeOfPayment", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ModeOfPayment", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
32271             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_PaymentModeDetails", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PaymentModeDetails", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
32272             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PaymentModeDetails", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PaymentModeDetails", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
32273             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Paymentdate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Paymentdate", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
32274             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PaymentDue", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "PaymentDue", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
32275             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ClassType", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ClassType", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
32276             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SchoolType", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SchoolType", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
32277             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Class", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Class", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
32278             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Section", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Section", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
32279             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "Id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
32280         End Sub
32281         
32282         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
32283          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
32284         Private Sub InitConnection()
32285             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
32286             Me._connection.ConnectionString = Global.ERP_System.My.MySettings.Default.ERPS_DBConnectionString
32287         End Sub
32288         
32289         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
32290          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
32291         Private Sub InitCommandCollection()
32292             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
32293             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
32294             Me._commandCollection(0).Connection = Me.Connection
32295             Me._commandCollection(0).CommandText = "SELECT Id, HFP_Id, PaymentID, HostelerID, Session, Installment, TotalFee, Discoun"& _
32296                 "tPer, DiscountAmt, PreviousDue, Fine, GrandTotal, TotalPaid, ModeOfPayment, Paym"& _
32297                 "entModeDetails, Paymentdate, PaymentDue, ClassType, SchoolType, Class, Section F"& _
32298                 "ROM dbo.HostelFeePayment"
32299             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
32300         End Sub
32301         
32302         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
32303          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
32304          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
32305          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
32306         Public Overloads Overridable Function Fill(ByVal dataTable As ERPS_DBDataSet1.HostelFeePaymentDataTable) As Integer
32307             Me.Adapter.SelectCommand = Me.CommandCollection(0)
32308             If (Me.ClearBeforeFill = true) Then
32309                 dataTable.Clear
32310             End If
32311             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
32312             Return returnValue
32313         End Function
32314         
32315         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
32316          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
32317          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
32318          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
32319         Public Overloads Overridable Function GetData() As ERPS_DBDataSet1.HostelFeePaymentDataTable
32320             Me.Adapter.SelectCommand = Me.CommandCollection(0)
32321             Dim dataTable As ERPS_DBDataSet1.HostelFeePaymentDataTable = New ERPS_DBDataSet1.HostelFeePaymentDataTable()
32322             Me.Adapter.Fill(dataTable)
32323             Return dataTable
32324         End Function
32325         
32326         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
32327          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
32328          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
32329         Public Overloads Overridable Function Update(ByVal dataTable As ERPS_DBDataSet1.HostelFeePaymentDataTable) As Integer
32330             Return Me.Adapter.Update(dataTable)
32331         End Function
32332         
32333         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
32334          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
32335          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
32336         Public Overloads Overridable Function Update(ByVal dataSet As ERPS_DBDataSet1) As Integer
32337             Return Me.Adapter.Update(dataSet, "HostelFeePayment")
32338         End Function
32339         
32340         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
32341          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
32342          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
32343         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
32344             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
32345         End Function
32346         
32347         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
32348          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
32349          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
32350         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
32351             Return Me.Adapter.Update(dataRows)
32352         End Function
32353         
32354         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
32355          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
32356          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
32357          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
32358         Public Overloads Overridable Function Delete( _
32359                     ByVal Original_Id As Integer, _
32360                     ByVal Original_HFP_Id As Integer, _
32361                     ByVal Original_PaymentID As String, _
32362                     ByVal Original_HostelerID As Integer, _
32363                     ByVal Original_Session As String, _
32364                     ByVal Original_Installment As String, _
32365                     ByVal Original_TotalFee As Decimal, _
32366                     ByVal Original_DiscountPer As Decimal, _
32367                     ByVal Original_DiscountAmt As Decimal, _
32368                     ByVal Original_PreviousDue As Decimal, _
32369                     ByVal Original_Fine As Decimal, _
32370                     ByVal Original_GrandTotal As Decimal, _
32371                     ByVal Original_TotalPaid As Decimal, _
32372                     ByVal Original_ModeOfPayment As String, _
32373                     ByVal Original_PaymentModeDetails As String, _
32374                     ByVal Original_Paymentdate As Date, _
32375                     ByVal Original_PaymentDue As Decimal, _
32376                     ByVal Original_ClassType As String, _
32377                     ByVal Original_SchoolType As String, _
32378                     ByVal Original_Class As String, _
32379                     ByVal Original_Section As String) As Integer
32380             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_Id,Integer)
32381             Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_HFP_Id,Integer)
32382             If (Original_PaymentID Is Nothing) Then
32383                 Throw New Global.System.ArgumentNullException("Original_PaymentID")
32384             Else
32385                 Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_PaymentID,String)
32386             End If
32387             Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_HostelerID,Integer)
32388             If (Original_Session Is Nothing) Then
32389                 Throw New Global.System.ArgumentNullException("Original_Session")
32390             Else
32391                 Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_Session,String)
32392             End If
32393             If (Original_Installment Is Nothing) Then
32394                 Throw New Global.System.ArgumentNullException("Original_Installment")
32395             Else
32396                 Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_Installment,String)
32397             End If
32398             Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_TotalFee,Decimal)
32399             Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_DiscountPer,Decimal)
32400             Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_DiscountAmt,Decimal)
32401             Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_PreviousDue,Decimal)
32402             Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_Fine,Decimal)
32403             Me.Adapter.DeleteCommand.Parameters(11).Value = CType(Original_GrandTotal,Decimal)
32404             Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_TotalPaid,Decimal)
32405             If (Original_ModeOfPayment Is Nothing) Then
32406                 Throw New Global.System.ArgumentNullException("Original_ModeOfPayment")
32407             Else
32408                 Me.Adapter.DeleteCommand.Parameters(13).Value = CType(Original_ModeOfPayment,String)
32409             End If
32410             If (Original_PaymentModeDetails Is Nothing) Then
32411                 Me.Adapter.DeleteCommand.Parameters(14).Value = CType(1,Object)
32412                 Me.Adapter.DeleteCommand.Parameters(15).Value = Global.System.DBNull.Value
32413             Else
32414                 Me.Adapter.DeleteCommand.Parameters(14).Value = CType(0,Object)
32415                 Me.Adapter.DeleteCommand.Parameters(15).Value = CType(Original_PaymentModeDetails,String)
32416             End If
32417             Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_Paymentdate,Date)
32418             Me.Adapter.DeleteCommand.Parameters(17).Value = CType(Original_PaymentDue,Decimal)
32419             If (Original_ClassType Is Nothing) Then
32420                 Throw New Global.System.ArgumentNullException("Original_ClassType")
32421             Else
32422                 Me.Adapter.DeleteCommand.Parameters(18).Value = CType(Original_ClassType,String)
32423             End If
32424             If (Original_SchoolType Is Nothing) Then
32425                 Throw New Global.System.ArgumentNullException("Original_SchoolType")
32426             Else
32427                 Me.Adapter.DeleteCommand.Parameters(19).Value = CType(Original_SchoolType,String)
32428             End If
32429             If (Original_Class Is Nothing) Then
32430                 Throw New Global.System.ArgumentNullException("Original_Class")
32431             Else
32432                 Me.Adapter.DeleteCommand.Parameters(20).Value = CType(Original_Class,String)
32433             End If
32434             If (Original_Section Is Nothing) Then
32435                 Throw New Global.System.ArgumentNullException("Original_Section")
32436             Else
32437                 Me.Adapter.DeleteCommand.Parameters(21).Value = CType(Original_Section,String)
32438             End If
32439             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
32440             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
32441                         <> Global.System.Data.ConnectionState.Open) Then
32442                 Me.Adapter.DeleteCommand.Connection.Open
32443             End If
32444             Try
32445                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
32446                 Return returnValue
32447             Finally
32448                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
32449                     Me.Adapter.DeleteCommand.Connection.Close
32450                 End If
32451             End Try
32452         End Function
32453         
32454         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
32455          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
32456          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
32457          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
32458         Public Overloads Overridable Function Insert( _
32459                     ByVal HFP_Id As Integer, _
32460                     ByVal PaymentID As String, _
32461                     ByVal HostelerID As Integer, _
32462                     ByVal Session As String, _
32463                     ByVal Installment As String, _
32464                     ByVal TotalFee As Decimal, _
32465                     ByVal DiscountPer As Decimal, _
32466                     ByVal DiscountAmt As Decimal, _
32467                     ByVal PreviousDue As Decimal, _
32468                     ByVal Fine As Decimal, _
32469                     ByVal GrandTotal As Decimal, _
32470                     ByVal TotalPaid As Decimal, _
32471                     ByVal ModeOfPayment As String, _
32472                     ByVal PaymentModeDetails As String, _
32473                     ByVal Paymentdate As Date, _
32474                     ByVal PaymentDue As Decimal, _
32475                     ByVal ClassType As String, _
32476                     ByVal SchoolType As String, _
32477                     ByVal _Class As String, _
32478                     ByVal Section As String) As Integer
32479             Me.Adapter.InsertCommand.Parameters(0).Value = CType(HFP_Id,Integer)
32480             If (PaymentID Is Nothing) Then
32481                 Throw New Global.System.ArgumentNullException("PaymentID")
32482             Else
32483                 Me.Adapter.InsertCommand.Parameters(1).Value = CType(PaymentID,String)
32484             End If
32485             Me.Adapter.InsertCommand.Parameters(2).Value = CType(HostelerID,Integer)
32486             If (Session Is Nothing) Then
32487                 Throw New Global.System.ArgumentNullException("Session")
32488             Else
32489                 Me.Adapter.InsertCommand.Parameters(3).Value = CType(Session,String)
32490             End If
32491             If (Installment Is Nothing) Then
32492                 Throw New Global.System.ArgumentNullException("Installment")
32493             Else
32494                 Me.Adapter.InsertCommand.Parameters(4).Value = CType(Installment,String)
32495             End If
32496             Me.Adapter.InsertCommand.Parameters(5).Value = CType(TotalFee,Decimal)
32497             Me.Adapter.InsertCommand.Parameters(6).Value = CType(DiscountPer,Decimal)
32498             Me.Adapter.InsertCommand.Parameters(7).Value = CType(DiscountAmt,Decimal)
32499             Me.Adapter.InsertCommand.Parameters(8).Value = CType(PreviousDue,Decimal)
32500             Me.Adapter.InsertCommand.Parameters(9).Value = CType(Fine,Decimal)
32501             Me.Adapter.InsertCommand.Parameters(10).Value = CType(GrandTotal,Decimal)
32502             Me.Adapter.InsertCommand.Parameters(11).Value = CType(TotalPaid,Decimal)
32503             If (ModeOfPayment Is Nothing) Then
32504                 Throw New Global.System.ArgumentNullException("ModeOfPayment")
32505             Else
32506                 Me.Adapter.InsertCommand.Parameters(12).Value = CType(ModeOfPayment,String)
32507             End If
32508             If (PaymentModeDetails Is Nothing) Then
32509                 Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value
32510             Else
32511                 Me.Adapter.InsertCommand.Parameters(13).Value = CType(PaymentModeDetails,String)
32512             End If
32513             Me.Adapter.InsertCommand.Parameters(14).Value = CType(Paymentdate,Date)
32514             Me.Adapter.InsertCommand.Parameters(15).Value = CType(PaymentDue,Decimal)
32515             If (ClassType Is Nothing) Then
32516                 Throw New Global.System.ArgumentNullException("ClassType")
32517             Else
32518                 Me.Adapter.InsertCommand.Parameters(16).Value = CType(ClassType,String)
32519             End If
32520             If (SchoolType Is Nothing) Then
32521                 Throw New Global.System.ArgumentNullException("SchoolType")
32522             Else
32523                 Me.Adapter.InsertCommand.Parameters(17).Value = CType(SchoolType,String)
32524             End If
32525             If (_Class Is Nothing) Then
32526                 Throw New Global.System.ArgumentNullException("_Class")
32527             Else
32528                 Me.Adapter.InsertCommand.Parameters(18).Value = CType(_Class,String)
32529             End If
32530             If (Section Is Nothing) Then
32531                 Throw New Global.System.ArgumentNullException("Section")
32532             Else
32533                 Me.Adapter.InsertCommand.Parameters(19).Value = CType(Section,String)
32534             End If
32535             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
32536             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
32537                         <> Global.System.Data.ConnectionState.Open) Then
32538                 Me.Adapter.InsertCommand.Connection.Open
32539             End If
32540             Try
32541                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
32542                 Return returnValue
32543             Finally
32544                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
32545                     Me.Adapter.InsertCommand.Connection.Close
32546                 End If
32547             End Try
32548         End Function
32549         
32550         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
32551          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
32552          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
32553          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
32554         Public Overloads Overridable Function Update( _
32555                     ByVal HFP_Id As Integer, _
32556                     ByVal PaymentID As String, _
32557                     ByVal HostelerID As Integer, _
32558                     ByVal Session As String, _
32559                     ByVal Installment As String, _
32560                     ByVal TotalFee As Decimal, _
32561                     ByVal DiscountPer As Decimal, _
32562                     ByVal DiscountAmt As Decimal, _
32563                     ByVal PreviousDue As Decimal, _
32564                     ByVal Fine As Decimal, _
32565                     ByVal GrandTotal As Decimal, _
32566                     ByVal TotalPaid As Decimal, _
32567                     ByVal ModeOfPayment As String, _
32568                     ByVal PaymentModeDetails As String, _
32569                     ByVal Paymentdate As Date, _
32570                     ByVal PaymentDue As Decimal, _
32571                     ByVal ClassType As String, _
32572                     ByVal SchoolType As String, _
32573                     ByVal _Class As String, _
32574                     ByVal Section As String, _
32575                     ByVal Original_Id As Integer, _
32576                     ByVal Original_HFP_Id As Integer, _
32577                     ByVal Original_PaymentID As String, _
32578                     ByVal Original_HostelerID As Integer, _
32579                     ByVal Original_Session As String, _
32580                     ByVal Original_Installment As String, _
32581                     ByVal Original_TotalFee As Decimal, _
32582                     ByVal Original_DiscountPer As Decimal, _
32583                     ByVal Original_DiscountAmt As Decimal, _
32584                     ByVal Original_PreviousDue As Decimal, _
32585                     ByVal Original_Fine As Decimal, _
32586                     ByVal Original_GrandTotal As Decimal, _
32587                     ByVal Original_TotalPaid As Decimal, _
32588                     ByVal Original_ModeOfPayment As String, _
32589                     ByVal Original_PaymentModeDetails As String, _
32590                     ByVal Original_Paymentdate As Date, _
32591                     ByVal Original_PaymentDue As Decimal, _
32592                     ByVal Original_ClassType As String, _
32593                     ByVal Original_SchoolType As String, _
32594                     ByVal Original_Class As String, _
32595                     ByVal Original_Section As String, _
32596                     ByVal Id As Integer) As Integer
32597             Me.Adapter.UpdateCommand.Parameters(0).Value = CType(HFP_Id,Integer)
32598             If (PaymentID Is Nothing) Then
32599                 Throw New Global.System.ArgumentNullException("PaymentID")
32600             Else
32601                 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(PaymentID,String)
32602             End If
32603             Me.Adapter.UpdateCommand.Parameters(2).Value = CType(HostelerID,Integer)
32604             If (Session Is Nothing) Then
32605                 Throw New Global.System.ArgumentNullException("Session")
32606             Else
32607                 Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Session,String)
32608             End If
32609             If (Installment Is Nothing) Then
32610                 Throw New Global.System.ArgumentNullException("Installment")
32611             Else
32612                 Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Installment,String)
32613             End If
32614             Me.Adapter.UpdateCommand.Parameters(5).Value = CType(TotalFee,Decimal)
32615             Me.Adapter.UpdateCommand.Parameters(6).Value = CType(DiscountPer,Decimal)
32616             Me.Adapter.UpdateCommand.Parameters(7).Value = CType(DiscountAmt,Decimal)
32617             Me.Adapter.UpdateCommand.Parameters(8).Value = CType(PreviousDue,Decimal)
32618             Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Fine,Decimal)
32619             Me.Adapter.UpdateCommand.Parameters(10).Value = CType(GrandTotal,Decimal)
32620             Me.Adapter.UpdateCommand.Parameters(11).Value = CType(TotalPaid,Decimal)
32621             If (ModeOfPayment Is Nothing) Then
32622                 Throw New Global.System.ArgumentNullException("ModeOfPayment")
32623             Else
32624                 Me.Adapter.UpdateCommand.Parameters(12).Value = CType(ModeOfPayment,String)
32625             End If
32626             If (PaymentModeDetails Is Nothing) Then
32627                 Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value
32628             Else
32629                 Me.Adapter.UpdateCommand.Parameters(13).Value = CType(PaymentModeDetails,String)
32630             End If
32631             Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Paymentdate,Date)
32632             Me.Adapter.UpdateCommand.Parameters(15).Value = CType(PaymentDue,Decimal)
32633             If (ClassType Is Nothing) Then
32634                 Throw New Global.System.ArgumentNullException("ClassType")
32635             Else
32636                 Me.Adapter.UpdateCommand.Parameters(16).Value = CType(ClassType,String)
32637             End If
32638             If (SchoolType Is Nothing) Then
32639                 Throw New Global.System.ArgumentNullException("SchoolType")
32640             Else
32641                 Me.Adapter.UpdateCommand.Parameters(17).Value = CType(SchoolType,String)
32642             End If
32643             If (_Class Is Nothing) Then
32644                 Throw New Global.System.ArgumentNullException("_Class")
32645             Else
32646                 Me.Adapter.UpdateCommand.Parameters(18).Value = CType(_Class,String)
32647             End If
32648             If (Section Is Nothing) Then
32649                 Throw New Global.System.ArgumentNullException("Section")
32650             Else
32651                 Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Section,String)
32652             End If
32653             Me.Adapter.UpdateCommand.Parameters(20).Value = CType(Original_Id,Integer)
32654             Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_HFP_Id,Integer)
32655             If (Original_PaymentID Is Nothing) Then
32656                 Throw New Global.System.ArgumentNullException("Original_PaymentID")
32657             Else
32658                 Me.Adapter.UpdateCommand.Parameters(22).Value = CType(Original_PaymentID,String)
32659             End If
32660             Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Original_HostelerID,Integer)
32661             If (Original_Session Is Nothing) Then
32662                 Throw New Global.System.ArgumentNullException("Original_Session")
32663             Else
32664                 Me.Adapter.UpdateCommand.Parameters(24).Value = CType(Original_Session,String)
32665             End If
32666             If (Original_Installment Is Nothing) Then
32667                 Throw New Global.System.ArgumentNullException("Original_Installment")
32668             Else
32669                 Me.Adapter.UpdateCommand.Parameters(25).Value = CType(Original_Installment,String)
32670             End If
32671             Me.Adapter.UpdateCommand.Parameters(26).Value = CType(Original_TotalFee,Decimal)
32672             Me.Adapter.UpdateCommand.Parameters(27).Value = CType(Original_DiscountPer,Decimal)
32673             Me.Adapter.UpdateCommand.Parameters(28).Value = CType(Original_DiscountAmt,Decimal)
32674             Me.Adapter.UpdateCommand.Parameters(29).Value = CType(Original_PreviousDue,Decimal)
32675             Me.Adapter.UpdateCommand.Parameters(30).Value = CType(Original_Fine,Decimal)
32676             Me.Adapter.UpdateCommand.Parameters(31).Value = CType(Original_GrandTotal,Decimal)
32677             Me.Adapter.UpdateCommand.Parameters(32).Value = CType(Original_TotalPaid,Decimal)
32678             If (Original_ModeOfPayment Is Nothing) Then
32679                 Throw New Global.System.ArgumentNullException("Original_ModeOfPayment")
32680             Else
32681                 Me.Adapter.UpdateCommand.Parameters(33).Value = CType(Original_ModeOfPayment,String)
32682             End If
32683             If (Original_PaymentModeDetails Is Nothing) Then
32684                 Me.Adapter.UpdateCommand.Parameters(34).Value = CType(1,Object)
32685                 Me.Adapter.UpdateCommand.Parameters(35).Value = Global.System.DBNull.Value
32686             Else
32687                 Me.Adapter.UpdateCommand.Parameters(34).Value = CType(0,Object)
32688                 Me.Adapter.UpdateCommand.Parameters(35).Value = CType(Original_PaymentModeDetails,String)
32689             End If
32690             Me.Adapter.UpdateCommand.Parameters(36).Value = CType(Original_Paymentdate,Date)
32691             Me.Adapter.UpdateCommand.Parameters(37).Value = CType(Original_PaymentDue,Decimal)
32692             If (Original_ClassType Is Nothing) Then
32693                 Throw New Global.System.ArgumentNullException("Original_ClassType")
32694             Else
32695                 Me.Adapter.UpdateCommand.Parameters(38).Value = CType(Original_ClassType,String)
32696             End If
32697             If (Original_SchoolType Is Nothing) Then
32698                 Throw New Global.System.ArgumentNullException("Original_SchoolType")
32699             Else
32700                 Me.Adapter.UpdateCommand.Parameters(39).Value = CType(Original_SchoolType,String)
32701             End If
32702             If (Original_Class Is Nothing) Then
32703                 Throw New Global.System.ArgumentNullException("Original_Class")
32704             Else
32705                 Me.Adapter.UpdateCommand.Parameters(40).Value = CType(Original_Class,String)
32706             End If
32707             If (Original_Section Is Nothing) Then
32708                 Throw New Global.System.ArgumentNullException("Original_Section")
32709             Else
32710                 Me.Adapter.UpdateCommand.Parameters(41).Value = CType(Original_Section,String)
32711             End If
32712             Me.Adapter.UpdateCommand.Parameters(42).Value = CType(Id,Integer)
32713             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
32714             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
32715                         <> Global.System.Data.ConnectionState.Open) Then
32716                 Me.Adapter.UpdateCommand.Connection.Open
32717             End If
32718             Try
32719                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
32720                 Return returnValue
32721             Finally
32722                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
32723                     Me.Adapter.UpdateCommand.Connection.Close
32724                 End If
32725             End Try
32726         End Function
32727         
32728         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
32729          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
32730          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
32731          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
32732         Public Overloads Overridable Function Update( _
32733                     ByVal HFP_Id As Integer, _
32734                     ByVal PaymentID As String, _
32735                     ByVal HostelerID As Integer, _
32736                     ByVal Session As String, _
32737                     ByVal Installment As String, _
32738                     ByVal TotalFee As Decimal, _
32739                     ByVal DiscountPer As Decimal, _
32740                     ByVal DiscountAmt As Decimal, _
32741                     ByVal PreviousDue As Decimal, _
32742                     ByVal Fine As Decimal, _
32743                     ByVal GrandTotal As Decimal, _
32744                     ByVal TotalPaid As Decimal, _
32745                     ByVal ModeOfPayment As String, _
32746                     ByVal PaymentModeDetails As String, _
32747                     ByVal Paymentdate As Date, _
32748                     ByVal PaymentDue As Decimal, _
32749                     ByVal ClassType As String, _
32750                     ByVal SchoolType As String, _
32751                     ByVal _Class As String, _
32752                     ByVal Section As String, _
32753                     ByVal Original_Id As Integer, _
32754                     ByVal Original_HFP_Id As Integer, _
32755                     ByVal Original_PaymentID As String, _
32756                     ByVal Original_HostelerID As Integer, _
32757                     ByVal Original_Session As String, _
32758                     ByVal Original_Installment As String, _
32759                     ByVal Original_TotalFee As Decimal, _
32760                     ByVal Original_DiscountPer As Decimal, _
32761                     ByVal Original_DiscountAmt As Decimal, _
32762                     ByVal Original_PreviousDue As Decimal, _
32763                     ByVal Original_Fine As Decimal, _
32764                     ByVal Original_GrandTotal As Decimal, _
32765                     ByVal Original_TotalPaid As Decimal, _
32766                     ByVal Original_ModeOfPayment As String, _
32767                     ByVal Original_PaymentModeDetails As String, _
32768                     ByVal Original_Paymentdate As Date, _
32769                     ByVal Original_PaymentDue As Decimal, _
32770                     ByVal Original_ClassType As String, _
32771                     ByVal Original_SchoolType As String, _
32772                     ByVal Original_Class As String, _
32773                     ByVal Original_Section As String) As Integer
32774             Return Me.Update(HFP_Id, PaymentID, HostelerID, Session, Installment, TotalFee, DiscountPer, DiscountAmt, PreviousDue, Fine, GrandTotal, TotalPaid, ModeOfPayment, PaymentModeDetails, Paymentdate, PaymentDue, ClassType, SchoolType, _Class, Section, Original_Id, Original_HFP_Id, Original_PaymentID, Original_HostelerID, Original_Session, Original_Installment, Original_TotalFee, Original_DiscountPer, Original_DiscountAmt, Original_PreviousDue, Original_Fine, Original_GrandTotal, Original_TotalPaid, Original_ModeOfPayment, Original_PaymentModeDetails, Original_Paymentdate, Original_PaymentDue, Original_ClassType, Original_SchoolType, Original_Class, Original_Section, Original_Id)
32775         End Function
32776     End Class
32777     
32778     '''<summary>
32779     '''Represents the connection and commands used to retrieve and save data.
32780     '''</summary>
32781     <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
32782      Global.System.ComponentModel.ToolboxItem(true), _
32783      Global.System.ComponentModel.DataObjectAttribute(true), _
32784      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
32785         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
32786      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
32787     Partial Public Class HostelInfoTableAdapter
32788         Inherits Global.System.ComponentModel.Component
32789         
32790         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
32791         
32792         Private _connection As Global.System.Data.SqlClient.SqlConnection
32793         
32794         Private _transaction As Global.System.Data.SqlClient.SqlTransaction
32795         
32796         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
32797         
32798         Private _clearBeforeFill As Boolean
32799         
32800         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
32801          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
32802         Public Sub New()
32803             MyBase.New
32804             Me.ClearBeforeFill = true
32805         End Sub
32806         
32807         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
32808          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
32809         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
32810             Get
32811                 If (Me._adapter Is Nothing) Then
32812                     Me.InitAdapter
32813                 End If
32814                 Return Me._adapter
32815             End Get
32816         End Property
32817         
32818         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
32819          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
32820         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
32821             Get
32822                 If (Me._connection Is Nothing) Then
32823                     Me.InitConnection
32824                 End If
32825                 Return Me._connection
32826             End Get
32827             Set
32828                 Me._connection = value
32829                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
32830                     Me.Adapter.InsertCommand.Connection = value
32831                 End If
32832                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
32833                     Me.Adapter.DeleteCommand.Connection = value
32834                 End If
32835                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
32836                     Me.Adapter.UpdateCommand.Connection = value
32837                 End If
32838                 Dim i As Integer = 0
32839                 Do While (i < Me.CommandCollection.Length)
32840                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
32841                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
32842                     End If
32843                     i = (i + 1)
32844                 Loop
32845             End Set
32846         End Property
32847         
32848         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
32849          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
32850         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
32851             Get
32852                 Return Me._transaction
32853             End Get
32854             Set
32855                 Me._transaction = value
32856                 Dim i As Integer = 0
32857                 Do While (i < Me.CommandCollection.Length)
32858                     Me.CommandCollection(i).Transaction = Me._transaction
32859                     i = (i + 1)
32860                 Loop
32861                 If ((Not (Me.Adapter) Is Nothing) _
32862                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
32863                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
32864                 End If
32865                 If ((Not (Me.Adapter) Is Nothing) _
32866                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
32867                     Me.Adapter.InsertCommand.Transaction = Me._transaction
32868                 End If
32869                 If ((Not (Me.Adapter) Is Nothing) _
32870                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
32871                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
32872                 End If
32873             End Set
32874         End Property
32875         
32876         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
32877          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
32878         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
32879             Get
32880                 If (Me._commandCollection Is Nothing) Then
32881                     Me.InitCommandCollection
32882                 End If
32883                 Return Me._commandCollection
32884             End Get
32885         End Property
32886         
32887         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
32888          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
32889         Public Property ClearBeforeFill() As Boolean
32890             Get
32891                 Return Me._clearBeforeFill
32892             End Get
32893             Set
32894                 Me._clearBeforeFill = value
32895             End Set
32896         End Property
32897         
32898         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
32899          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
32900         Private Sub InitAdapter()
32901             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
32902             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
32903             tableMapping.SourceTable = "Table"
32904             tableMapping.DataSetTable = "HostelInfo"
32905             tableMapping.ColumnMappings.Add("HI_Id", "HI_Id")
32906             tableMapping.ColumnMappings.Add("Hostelname", "Hostelname")
32907             tableMapping.ColumnMappings.Add("Address", "Address")
32908             tableMapping.ColumnMappings.Add("ContactNo", "ContactNo")
32909             tableMapping.ColumnMappings.Add("ManagedBy", "ManagedBy")
32910             tableMapping.ColumnMappings.Add("Person_ContactNo", "Person_ContactNo")
32911             Me._adapter.TableMappings.Add(tableMapping)
32912             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
32913             Me._adapter.DeleteCommand.Connection = Me.Connection
32914             Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[HostelInfo] WHERE (([HI_Id] = @Original_HI_Id) AND ([Hostelnam"& _
32915                 "e] = @Original_Hostelname) AND ([Address] = @Original_Address) AND ([ContactNo] "& _
32916                 "= @Original_ContactNo) AND ((@IsNull_ManagedBy = 1 AND [ManagedBy] IS NULL) OR ("& _
32917                 "[ManagedBy] = @Original_ManagedBy)) AND ((@IsNull_Person_ContactNo = 1 AND [Pers"& _
32918                 "on_ContactNo] IS NULL) OR ([Person_ContactNo] = @Original_Person_ContactNo)))"
32919             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
32920             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_HI_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HI_Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
32921             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Hostelname", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hostelname", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
32922             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Address", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Address", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
32923             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ContactNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContactNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
32924             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ManagedBy", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ManagedBy", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
32925             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ManagedBy", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ManagedBy", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
32926             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Person_ContactNo", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Person_ContactNo", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
32927             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Person_ContactNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Person_ContactNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
32928             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
32929             Me._adapter.InsertCommand.Connection = Me.Connection
32930             Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[HostelInfo] ([HI_Id], [Hostelname], [Address], [ContactNo], [M"& _
32931                 "anagedBy], [Person_ContactNo]) VALUES (@HI_Id, @Hostelname, @Address, @ContactNo"& _
32932                 ", @ManagedBy, @Person_ContactNo);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT HI_Id, Hostelname, Address, ContactNo,"& _
32933                 " ManagedBy, Person_ContactNo FROM HostelInfo WHERE (HI_Id = @HI_Id)"
32934             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
32935             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HI_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HI_Id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
32936             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Hostelname", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hostelname", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
32937             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Address", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Address", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
32938             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ContactNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContactNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
32939             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ManagedBy", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ManagedBy", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
32940             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Person_ContactNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Person_ContactNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
32941             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
32942             Me._adapter.UpdateCommand.Connection = Me.Connection
32943             Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[HostelInfo] SET [HI_Id] = @HI_Id, [Hostelname] = @Hostelname, [Addr"& _
32944                 "ess] = @Address, [ContactNo] = @ContactNo, [ManagedBy] = @ManagedBy, [Person_Con"& _
32945                 "tactNo] = @Person_ContactNo WHERE (([HI_Id] = @Original_HI_Id) AND ([Hostelname]"& _
32946                 " = @Original_Hostelname) AND ([Address] = @Original_Address) AND ([ContactNo] = "& _
32947                 "@Original_ContactNo) AND ((@IsNull_ManagedBy = 1 AND [ManagedBy] IS NULL) OR ([M"& _
32948                 "anagedBy] = @Original_ManagedBy)) AND ((@IsNull_Person_ContactNo = 1 AND [Person"& _
32949                 "_ContactNo] IS NULL) OR ([Person_ContactNo] = @Original_Person_ContactNo)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SE"& _
32950                 "LECT HI_Id, Hostelname, Address, ContactNo, ManagedBy, Person_ContactNo FROM Hos"& _
32951                 "telInfo WHERE (HI_Id = @HI_Id)"
32952             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
32953             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HI_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HI_Id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
32954             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Hostelname", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hostelname", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
32955             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Address", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Address", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
32956             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ContactNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContactNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
32957             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ManagedBy", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ManagedBy", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
32958             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Person_ContactNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Person_ContactNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
32959             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_HI_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HI_Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
32960             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Hostelname", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Hostelname", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
32961             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Address", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Address", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
32962             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ContactNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContactNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
32963             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ManagedBy", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ManagedBy", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
32964             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ManagedBy", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ManagedBy", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
32965             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Person_ContactNo", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Person_ContactNo", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
32966             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Person_ContactNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Person_ContactNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
32967         End Sub
32968         
32969         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
32970          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
32971         Private Sub InitConnection()
32972             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
32973             Me._connection.ConnectionString = Global.ERP_System.My.MySettings.Default.ERPS_DBConnectionString
32974         End Sub
32975         
32976         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
32977          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
32978         Private Sub InitCommandCollection()
32979             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
32980             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
32981             Me._commandCollection(0).Connection = Me.Connection
32982             Me._commandCollection(0).CommandText = "SELECT HI_Id, Hostelname, Address, ContactNo, ManagedBy, Person_ContactNo FROM db"& _
32983                 "o.HostelInfo"
32984             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
32985         End Sub
32986         
32987         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
32988          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
32989          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
32990          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
32991         Public Overloads Overridable Function Fill(ByVal dataTable As ERPS_DBDataSet1.HostelInfoDataTable) As Integer
32992             Me.Adapter.SelectCommand = Me.CommandCollection(0)
32993             If (Me.ClearBeforeFill = true) Then
32994                 dataTable.Clear
32995             End If
32996             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
32997             Return returnValue
32998         End Function
32999         
33000         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
33001          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
33002          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
33003          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
33004         Public Overloads Overridable Function GetData() As ERPS_DBDataSet1.HostelInfoDataTable
33005             Me.Adapter.SelectCommand = Me.CommandCollection(0)
33006             Dim dataTable As ERPS_DBDataSet1.HostelInfoDataTable = New ERPS_DBDataSet1.HostelInfoDataTable()
33007             Me.Adapter.Fill(dataTable)
33008             Return dataTable
33009         End Function
33010         
33011         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
33012          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
33013          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
33014         Public Overloads Overridable Function Update(ByVal dataTable As ERPS_DBDataSet1.HostelInfoDataTable) As Integer
33015             Return Me.Adapter.Update(dataTable)
33016         End Function
33017         
33018         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
33019          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
33020          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
33021         Public Overloads Overridable Function Update(ByVal dataSet As ERPS_DBDataSet1) As Integer
33022             Return Me.Adapter.Update(dataSet, "HostelInfo")
33023         End Function
33024         
33025         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
33026          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
33027          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
33028         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
33029             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
33030         End Function
33031         
33032         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
33033          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
33034          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
33035         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
33036             Return Me.Adapter.Update(dataRows)
33037         End Function
33038         
33039         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
33040          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
33041          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
33042          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
33043         Public Overloads Overridable Function Delete(ByVal Original_HI_Id As Integer, ByVal Original_Hostelname As String, ByVal Original_Address As String, ByVal Original_ContactNo As String, ByVal Original_ManagedBy As String, ByVal Original_Person_ContactNo As String) As Integer
33044             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_HI_Id,Integer)
33045             If (Original_Hostelname Is Nothing) Then
33046                 Throw New Global.System.ArgumentNullException("Original_Hostelname")
33047             Else
33048                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_Hostelname,String)
33049             End If
33050             If (Original_Address Is Nothing) Then
33051                 Throw New Global.System.ArgumentNullException("Original_Address")
33052             Else
33053                 Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_Address,String)
33054             End If
33055             If (Original_ContactNo Is Nothing) Then
33056                 Throw New Global.System.ArgumentNullException("Original_ContactNo")
33057             Else
33058                 Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_ContactNo,String)
33059             End If
33060             If (Original_ManagedBy Is Nothing) Then
33061                 Me.Adapter.DeleteCommand.Parameters(4).Value = CType(1,Object)
33062                 Me.Adapter.DeleteCommand.Parameters(5).Value = Global.System.DBNull.Value
33063             Else
33064                 Me.Adapter.DeleteCommand.Parameters(4).Value = CType(0,Object)
33065                 Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_ManagedBy,String)
33066             End If
33067             If (Original_Person_ContactNo Is Nothing) Then
33068                 Me.Adapter.DeleteCommand.Parameters(6).Value = CType(1,Object)
33069                 Me.Adapter.DeleteCommand.Parameters(7).Value = Global.System.DBNull.Value
33070             Else
33071                 Me.Adapter.DeleteCommand.Parameters(6).Value = CType(0,Object)
33072                 Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_Person_ContactNo,String)
33073             End If
33074             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
33075             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
33076                         <> Global.System.Data.ConnectionState.Open) Then
33077                 Me.Adapter.DeleteCommand.Connection.Open
33078             End If
33079             Try
33080                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
33081                 Return returnValue
33082             Finally
33083                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
33084                     Me.Adapter.DeleteCommand.Connection.Close
33085                 End If
33086             End Try
33087         End Function
33088         
33089         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
33090          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
33091          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
33092          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
33093         Public Overloads Overridable Function Insert(ByVal HI_Id As Integer, ByVal Hostelname As String, ByVal Address As String, ByVal ContactNo As String, ByVal ManagedBy As String, ByVal Person_ContactNo As String) As Integer
33094             Me.Adapter.InsertCommand.Parameters(0).Value = CType(HI_Id,Integer)
33095             If (Hostelname Is Nothing) Then
33096                 Throw New Global.System.ArgumentNullException("Hostelname")
33097             Else
33098                 Me.Adapter.InsertCommand.Parameters(1).Value = CType(Hostelname,String)
33099             End If
33100             If (Address Is Nothing) Then
33101                 Throw New Global.System.ArgumentNullException("Address")
33102             Else
33103                 Me.Adapter.InsertCommand.Parameters(2).Value = CType(Address,String)
33104             End If
33105             If (ContactNo Is Nothing) Then
33106                 Throw New Global.System.ArgumentNullException("ContactNo")
33107             Else
33108                 Me.Adapter.InsertCommand.Parameters(3).Value = CType(ContactNo,String)
33109             End If
33110             If (ManagedBy Is Nothing) Then
33111                 Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value
33112             Else
33113                 Me.Adapter.InsertCommand.Parameters(4).Value = CType(ManagedBy,String)
33114             End If
33115             If (Person_ContactNo Is Nothing) Then
33116                 Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value
33117             Else
33118                 Me.Adapter.InsertCommand.Parameters(5).Value = CType(Person_ContactNo,String)
33119             End If
33120             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
33121             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
33122                         <> Global.System.Data.ConnectionState.Open) Then
33123                 Me.Adapter.InsertCommand.Connection.Open
33124             End If
33125             Try
33126                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
33127                 Return returnValue
33128             Finally
33129                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
33130                     Me.Adapter.InsertCommand.Connection.Close
33131                 End If
33132             End Try
33133         End Function
33134         
33135         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
33136          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
33137          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
33138          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
33139         Public Overloads Overridable Function Update(ByVal HI_Id As Integer, ByVal Hostelname As String, ByVal Address As String, ByVal ContactNo As String, ByVal ManagedBy As String, ByVal Person_ContactNo As String, ByVal Original_HI_Id As Integer, ByVal Original_Hostelname As String, ByVal Original_Address As String, ByVal Original_ContactNo As String, ByVal Original_ManagedBy As String, ByVal Original_Person_ContactNo As String) As Integer
33140             Me.Adapter.UpdateCommand.Parameters(0).Value = CType(HI_Id,Integer)
33141             If (Hostelname Is Nothing) Then
33142                 Throw New Global.System.ArgumentNullException("Hostelname")
33143             Else
33144                 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Hostelname,String)
33145             End If
33146             If (Address Is Nothing) Then
33147                 Throw New Global.System.ArgumentNullException("Address")
33148             Else
33149                 Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Address,String)
33150             End If
33151             If (ContactNo Is Nothing) Then
33152                 Throw New Global.System.ArgumentNullException("ContactNo")
33153             Else
33154                 Me.Adapter.UpdateCommand.Parameters(3).Value = CType(ContactNo,String)
33155             End If
33156             If (ManagedBy Is Nothing) Then
33157                 Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value
33158             Else
33159                 Me.Adapter.UpdateCommand.Parameters(4).Value = CType(ManagedBy,String)
33160             End If
33161             If (Person_ContactNo Is Nothing) Then
33162                 Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value
33163             Else
33164                 Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Person_ContactNo,String)
33165             End If
33166             Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_HI_Id,Integer)
33167             If (Original_Hostelname Is Nothing) Then
33168                 Throw New Global.System.ArgumentNullException("Original_Hostelname")
33169             Else
33170                 Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_Hostelname,String)
33171             End If
33172             If (Original_Address Is Nothing) Then
33173                 Throw New Global.System.ArgumentNullException("Original_Address")
33174             Else
33175                 Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_Address,String)
33176             End If
33177             If (Original_ContactNo Is Nothing) Then
33178                 Throw New Global.System.ArgumentNullException("Original_ContactNo")
33179             Else
33180                 Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_ContactNo,String)
33181             End If
33182             If (Original_ManagedBy Is Nothing) Then
33183                 Me.Adapter.UpdateCommand.Parameters(10).Value = CType(1,Object)
33184                 Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value
33185             Else
33186                 Me.Adapter.UpdateCommand.Parameters(10).Value = CType(0,Object)
33187                 Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_ManagedBy,String)
33188             End If
33189             If (Original_Person_ContactNo Is Nothing) Then
33190                 Me.Adapter.UpdateCommand.Parameters(12).Value = CType(1,Object)
33191                 Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value
33192             Else
33193                 Me.Adapter.UpdateCommand.Parameters(12).Value = CType(0,Object)
33194                 Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_Person_ContactNo,String)
33195             End If
33196             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
33197             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
33198                         <> Global.System.Data.ConnectionState.Open) Then
33199                 Me.Adapter.UpdateCommand.Connection.Open
33200             End If
33201             Try
33202                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
33203                 Return returnValue
33204             Finally
33205                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
33206                     Me.Adapter.UpdateCommand.Connection.Close
33207                 End If
33208             End Try
33209         End Function
33210         
33211         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
33212          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
33213          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
33214          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
33215         Public Overloads Overridable Function Update(ByVal Hostelname As String, ByVal Address As String, ByVal ContactNo As String, ByVal ManagedBy As String, ByVal Person_ContactNo As String, ByVal Original_HI_Id As Integer, ByVal Original_Hostelname As String, ByVal Original_Address As String, ByVal Original_ContactNo As String, ByVal Original_ManagedBy As String, ByVal Original_Person_ContactNo As String) As Integer
33216             Return Me.Update(Original_HI_Id, Hostelname, Address, ContactNo, ManagedBy, Person_ContactNo, Original_HI_Id, Original_Hostelname, Original_Address, Original_ContactNo, Original_ManagedBy, Original_Person_ContactNo)
33217         End Function
33218     End Class
33219     
33220     '''<summary>
33221     '''Represents the connection and commands used to retrieve and save data.
33222     '''</summary>
33223     <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
33224      Global.System.ComponentModel.ToolboxItem(true), _
33225      Global.System.ComponentModel.DataObjectAttribute(true), _
33226      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
33227         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
33228      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
33229     Partial Public Class Installment_BusTableAdapter
33230         Inherits Global.System.ComponentModel.Component
33231         
33232         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
33233         
33234         Private _connection As Global.System.Data.SqlClient.SqlConnection
33235         
33236         Private _transaction As Global.System.Data.SqlClient.SqlTransaction
33237         
33238         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
33239         
33240         Private _clearBeforeFill As Boolean
33241         
33242         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
33243          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
33244         Public Sub New()
33245             MyBase.New
33246             Me.ClearBeforeFill = true
33247         End Sub
33248         
33249         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
33250          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
33251         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
33252             Get
33253                 If (Me._adapter Is Nothing) Then
33254                     Me.InitAdapter
33255                 End If
33256                 Return Me._adapter
33257             End Get
33258         End Property
33259         
33260         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
33261          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
33262         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
33263             Get
33264                 If (Me._connection Is Nothing) Then
33265                     Me.InitConnection
33266                 End If
33267                 Return Me._connection
33268             End Get
33269             Set
33270                 Me._connection = value
33271                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
33272                     Me.Adapter.InsertCommand.Connection = value
33273                 End If
33274                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
33275                     Me.Adapter.DeleteCommand.Connection = value
33276                 End If
33277                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
33278                     Me.Adapter.UpdateCommand.Connection = value
33279                 End If
33280                 Dim i As Integer = 0
33281                 Do While (i < Me.CommandCollection.Length)
33282                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
33283                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
33284                     End If
33285                     i = (i + 1)
33286                 Loop
33287             End Set
33288         End Property
33289         
33290         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
33291          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
33292         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
33293             Get
33294                 Return Me._transaction
33295             End Get
33296             Set
33297                 Me._transaction = value
33298                 Dim i As Integer = 0
33299                 Do While (i < Me.CommandCollection.Length)
33300                     Me.CommandCollection(i).Transaction = Me._transaction
33301                     i = (i + 1)
33302                 Loop
33303                 If ((Not (Me.Adapter) Is Nothing) _
33304                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
33305                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
33306                 End If
33307                 If ((Not (Me.Adapter) Is Nothing) _
33308                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
33309                     Me.Adapter.InsertCommand.Transaction = Me._transaction
33310                 End If
33311                 If ((Not (Me.Adapter) Is Nothing) _
33312                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
33313                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
33314                 End If
33315             End Set
33316         End Property
33317         
33318         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
33319          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
33320         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
33321             Get
33322                 If (Me._commandCollection Is Nothing) Then
33323                     Me.InitCommandCollection
33324                 End If
33325                 Return Me._commandCollection
33326             End Get
33327         End Property
33328         
33329         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
33330          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
33331         Public Property ClearBeforeFill() As Boolean
33332             Get
33333                 Return Me._clearBeforeFill
33334             End Get
33335             Set
33336                 Me._clearBeforeFill = value
33337             End Set
33338         End Property
33339         
33340         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
33341          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
33342         Private Sub InitAdapter()
33343             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
33344             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
33345             tableMapping.SourceTable = "Table"
33346             tableMapping.DataSetTable = "Installment_Bus"
33347             tableMapping.ColumnMappings.Add("IB_ID", "IB_ID")
33348             tableMapping.ColumnMappings.Add("Installment", "Installment")
33349             tableMapping.ColumnMappings.Add("Charges", "Charges")
33350             tableMapping.ColumnMappings.Add("Location", "Location")
33351             Me._adapter.TableMappings.Add(tableMapping)
33352             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
33353             Me._adapter.DeleteCommand.Connection = Me.Connection
33354             Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[Installment_Bus] WHERE (([IB_ID] = @Original_IB_ID) AND ([Inst"& _
33355                 "allment] = @Original_Installment) AND ([Charges] = @Original_Charges) AND ((@IsN"& _
33356                 "ull_Location = 1 AND [Location] IS NULL) OR ([Location] = @Original_Location)))"
33357             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
33358             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_IB_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "IB_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
33359             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Installment", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Installment", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
33360             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Charges", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Charges", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
33361             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Location", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Location", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
33362             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Location", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Location", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
33363             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
33364             Me._adapter.InsertCommand.Connection = Me.Connection
33365             Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[Installment_Bus] ([IB_ID], [Installment], [Charges], [Location"& _
33366                 "]) VALUES (@IB_ID, @Installment, @Charges, @Location);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT IB_ID, Installmen"& _
33367                 "t, Charges, Location FROM Installment_Bus WHERE (IB_ID = @IB_ID)"
33368             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
33369             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IB_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "IB_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
33370             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Installment", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Installment", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
33371             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Charges", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Charges", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
33372             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Location", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Location", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
33373             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
33374             Me._adapter.UpdateCommand.Connection = Me.Connection
33375             Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[Installment_Bus] SET [IB_ID] = @IB_ID, [Installment] = @Installment"& _
33376                 ", [Charges] = @Charges, [Location] = @Location WHERE (([IB_ID] = @Original_IB_ID"& _
33377                 ") AND ([Installment] = @Original_Installment) AND ([Charges] = @Original_Charges"& _
33378                 ") AND ((@IsNull_Location = 1 AND [Location] IS NULL) OR ([Location] = @Original_"& _
33379                 "Location)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT IB_ID, Installment, Charges, Location FROM Installment_Bus "& _
33380                 "WHERE (IB_ID = @IB_ID)"
33381             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
33382             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IB_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "IB_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
33383             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Installment", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Installment", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
33384             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Charges", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Charges", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
33385             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Location", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Location", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
33386             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_IB_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "IB_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
33387             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Installment", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Installment", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
33388             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Charges", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Charges", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
33389             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Location", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Location", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
33390             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Location", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Location", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
33391         End Sub
33392         
33393         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
33394          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
33395         Private Sub InitConnection()
33396             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
33397             Me._connection.ConnectionString = Global.ERP_System.My.MySettings.Default.ERPS_DBConnectionString
33398         End Sub
33399         
33400         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
33401          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
33402         Private Sub InitCommandCollection()
33403             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
33404             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
33405             Me._commandCollection(0).Connection = Me.Connection
33406             Me._commandCollection(0).CommandText = "SELECT IB_ID, Installment, Charges, Location FROM dbo.Installment_Bus"
33407             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
33408         End Sub
33409         
33410         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
33411          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
33412          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
33413          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
33414         Public Overloads Overridable Function Fill(ByVal dataTable As ERPS_DBDataSet1.Installment_BusDataTable) As Integer
33415             Me.Adapter.SelectCommand = Me.CommandCollection(0)
33416             If (Me.ClearBeforeFill = true) Then
33417                 dataTable.Clear
33418             End If
33419             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
33420             Return returnValue
33421         End Function
33422         
33423         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
33424          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
33425          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
33426          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
33427         Public Overloads Overridable Function GetData() As ERPS_DBDataSet1.Installment_BusDataTable
33428             Me.Adapter.SelectCommand = Me.CommandCollection(0)
33429             Dim dataTable As ERPS_DBDataSet1.Installment_BusDataTable = New ERPS_DBDataSet1.Installment_BusDataTable()
33430             Me.Adapter.Fill(dataTable)
33431             Return dataTable
33432         End Function
33433         
33434         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
33435          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
33436          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
33437         Public Overloads Overridable Function Update(ByVal dataTable As ERPS_DBDataSet1.Installment_BusDataTable) As Integer
33438             Return Me.Adapter.Update(dataTable)
33439         End Function
33440         
33441         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
33442          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
33443          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
33444         Public Overloads Overridable Function Update(ByVal dataSet As ERPS_DBDataSet1) As Integer
33445             Return Me.Adapter.Update(dataSet, "Installment_Bus")
33446         End Function
33447         
33448         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
33449          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
33450          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
33451         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
33452             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
33453         End Function
33454         
33455         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
33456          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
33457          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
33458         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
33459             Return Me.Adapter.Update(dataRows)
33460         End Function
33461         
33462         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
33463          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
33464          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
33465          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
33466         Public Overloads Overridable Function Delete(ByVal Original_IB_ID As Integer, ByVal Original_Installment As String, ByVal Original_Charges As Decimal, ByVal Original_Location As String) As Integer
33467             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_IB_ID,Integer)
33468             If (Original_Installment Is Nothing) Then
33469                 Throw New Global.System.ArgumentNullException("Original_Installment")
33470             Else
33471                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_Installment,String)
33472             End If
33473             Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_Charges,Decimal)
33474             If (Original_Location Is Nothing) Then
33475                 Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object)
33476                 Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value
33477             Else
33478                 Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object)
33479                 Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_Location,String)
33480             End If
33481             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
33482             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
33483                         <> Global.System.Data.ConnectionState.Open) Then
33484                 Me.Adapter.DeleteCommand.Connection.Open
33485             End If
33486             Try
33487                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
33488                 Return returnValue
33489             Finally
33490                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
33491                     Me.Adapter.DeleteCommand.Connection.Close
33492                 End If
33493             End Try
33494         End Function
33495         
33496         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
33497          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
33498          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
33499          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
33500         Public Overloads Overridable Function Insert(ByVal IB_ID As Integer, ByVal Installment As String, ByVal Charges As Decimal, ByVal Location As String) As Integer
33501             Me.Adapter.InsertCommand.Parameters(0).Value = CType(IB_ID,Integer)
33502             If (Installment Is Nothing) Then
33503                 Throw New Global.System.ArgumentNullException("Installment")
33504             Else
33505                 Me.Adapter.InsertCommand.Parameters(1).Value = CType(Installment,String)
33506             End If
33507             Me.Adapter.InsertCommand.Parameters(2).Value = CType(Charges,Decimal)
33508             If (Location Is Nothing) Then
33509                 Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value
33510             Else
33511                 Me.Adapter.InsertCommand.Parameters(3).Value = CType(Location,String)
33512             End If
33513             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
33514             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
33515                         <> Global.System.Data.ConnectionState.Open) Then
33516                 Me.Adapter.InsertCommand.Connection.Open
33517             End If
33518             Try
33519                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
33520                 Return returnValue
33521             Finally
33522                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
33523                     Me.Adapter.InsertCommand.Connection.Close
33524                 End If
33525             End Try
33526         End Function
33527         
33528         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
33529          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
33530          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
33531          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
33532         Public Overloads Overridable Function Update(ByVal IB_ID As Integer, ByVal Installment As String, ByVal Charges As Decimal, ByVal Location As String, ByVal Original_IB_ID As Integer, ByVal Original_Installment As String, ByVal Original_Charges As Decimal, ByVal Original_Location As String) As Integer
33533             Me.Adapter.UpdateCommand.Parameters(0).Value = CType(IB_ID,Integer)
33534             If (Installment Is Nothing) Then
33535                 Throw New Global.System.ArgumentNullException("Installment")
33536             Else
33537                 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Installment,String)
33538             End If
33539             Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Charges,Decimal)
33540             If (Location Is Nothing) Then
33541                 Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value
33542             Else
33543                 Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Location,String)
33544             End If
33545             Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_IB_ID,Integer)
33546             If (Original_Installment Is Nothing) Then
33547                 Throw New Global.System.ArgumentNullException("Original_Installment")
33548             Else
33549                 Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_Installment,String)
33550             End If
33551             Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_Charges,Decimal)
33552             If (Original_Location Is Nothing) Then
33553                 Me.Adapter.UpdateCommand.Parameters(7).Value = CType(1,Object)
33554                 Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value
33555             Else
33556                 Me.Adapter.UpdateCommand.Parameters(7).Value = CType(0,Object)
33557                 Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_Location,String)
33558             End If
33559             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
33560             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
33561                         <> Global.System.Data.ConnectionState.Open) Then
33562                 Me.Adapter.UpdateCommand.Connection.Open
33563             End If
33564             Try
33565                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
33566                 Return returnValue
33567             Finally
33568                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
33569                     Me.Adapter.UpdateCommand.Connection.Close
33570                 End If
33571             End Try
33572         End Function
33573         
33574         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
33575          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
33576          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
33577          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
33578         Public Overloads Overridable Function Update(ByVal Installment As String, ByVal Charges As Decimal, ByVal Location As String, ByVal Original_IB_ID As Integer, ByVal Original_Installment As String, ByVal Original_Charges As Decimal, ByVal Original_Location As String) As Integer
33579             Return Me.Update(Original_IB_ID, Installment, Charges, Location, Original_IB_ID, Original_Installment, Original_Charges, Original_Location)
33580         End Function
33581     End Class
33582     
33583     '''<summary>
33584     '''Represents the connection and commands used to retrieve and save data.
33585     '''</summary>
33586     <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
33587      Global.System.ComponentModel.ToolboxItem(true), _
33588      Global.System.ComponentModel.DataObjectAttribute(true), _
33589      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
33590         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
33591      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
33592     Partial Public Class Installment_HostelTableAdapter
33593         Inherits Global.System.ComponentModel.Component
33594         
33595         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
33596         
33597         Private _connection As Global.System.Data.SqlClient.SqlConnection
33598         
33599         Private _transaction As Global.System.Data.SqlClient.SqlTransaction
33600         
33601         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
33602         
33603         Private _clearBeforeFill As Boolean
33604         
33605         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
33606          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
33607         Public Sub New()
33608             MyBase.New
33609             Me.ClearBeforeFill = true
33610         End Sub
33611         
33612         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
33613          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
33614         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
33615             Get
33616                 If (Me._adapter Is Nothing) Then
33617                     Me.InitAdapter
33618                 End If
33619                 Return Me._adapter
33620             End Get
33621         End Property
33622         
33623         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
33624          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
33625         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
33626             Get
33627                 If (Me._connection Is Nothing) Then
33628                     Me.InitConnection
33629                 End If
33630                 Return Me._connection
33631             End Get
33632             Set
33633                 Me._connection = value
33634                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
33635                     Me.Adapter.InsertCommand.Connection = value
33636                 End If
33637                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
33638                     Me.Adapter.DeleteCommand.Connection = value
33639                 End If
33640                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
33641                     Me.Adapter.UpdateCommand.Connection = value
33642                 End If
33643                 Dim i As Integer = 0
33644                 Do While (i < Me.CommandCollection.Length)
33645                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
33646                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
33647                     End If
33648                     i = (i + 1)
33649                 Loop
33650             End Set
33651         End Property
33652         
33653         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
33654          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
33655         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
33656             Get
33657                 Return Me._transaction
33658             End Get
33659             Set
33660                 Me._transaction = value
33661                 Dim i As Integer = 0
33662                 Do While (i < Me.CommandCollection.Length)
33663                     Me.CommandCollection(i).Transaction = Me._transaction
33664                     i = (i + 1)
33665                 Loop
33666                 If ((Not (Me.Adapter) Is Nothing) _
33667                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
33668                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
33669                 End If
33670                 If ((Not (Me.Adapter) Is Nothing) _
33671                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
33672                     Me.Adapter.InsertCommand.Transaction = Me._transaction
33673                 End If
33674                 If ((Not (Me.Adapter) Is Nothing) _
33675                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
33676                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
33677                 End If
33678             End Set
33679         End Property
33680         
33681         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
33682          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
33683         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
33684             Get
33685                 If (Me._commandCollection Is Nothing) Then
33686                     Me.InitCommandCollection
33687                 End If
33688                 Return Me._commandCollection
33689             End Get
33690         End Property
33691         
33692         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
33693          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
33694         Public Property ClearBeforeFill() As Boolean
33695             Get
33696                 Return Me._clearBeforeFill
33697             End Get
33698             Set
33699                 Me._clearBeforeFill = value
33700             End Set
33701         End Property
33702         
33703         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
33704          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
33705         Private Sub InitAdapter()
33706             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
33707             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
33708             tableMapping.SourceTable = "Table"
33709             tableMapping.DataSetTable = "Installment_Hostel"
33710             tableMapping.ColumnMappings.Add("IH_ID", "IH_ID")
33711             tableMapping.ColumnMappings.Add("Installment", "Installment")
33712             tableMapping.ColumnMappings.Add("Charges", "Charges")
33713             tableMapping.ColumnMappings.Add("HostelID", "HostelID")
33714             tableMapping.ColumnMappings.Add("Class", "Class")
33715             tableMapping.ColumnMappings.Add("SchoolID", "SchoolID")
33716             Me._adapter.TableMappings.Add(tableMapping)
33717             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
33718             Me._adapter.DeleteCommand.Connection = Me.Connection
33719             Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[Installment_Hostel] WHERE (([IH_ID] = @Original_IH_ID) AND ([I"& _
33720                 "nstallment] = @Original_Installment) AND ([Charges] = @Original_Charges) AND ([H"& _
33721                 "ostelID] = @Original_HostelID) AND ([Class] = @Original_Class) AND ([SchoolID] ="& _
33722                 " @Original_SchoolID))"
33723             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
33724             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_IH_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "IH_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
33725             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Installment", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Installment", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
33726             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Charges", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Charges", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
33727             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_HostelID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HostelID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
33728             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Class", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Class", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
33729             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SchoolID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SchoolID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
33730             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
33731             Me._adapter.InsertCommand.Connection = Me.Connection
33732             Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[Installment_Hostel] ([IH_ID], [Installment], [Charges], [Hoste"& _
33733                 "lID], [Class], [SchoolID]) VALUES (@IH_ID, @Installment, @Charges, @HostelID, @C"& _
33734                 "lass, @SchoolID);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT IH_ID, Installment, Charges, HostelID, Class, SchoolID"& _
33735                 " FROM Installment_Hostel WHERE (IH_ID = @IH_ID)"
33736             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
33737             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IH_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "IH_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
33738             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Installment", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Installment", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
33739             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Charges", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Charges", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
33740             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HostelID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HostelID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
33741             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Class", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Class", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
33742             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SchoolID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SchoolID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
33743             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
33744             Me._adapter.UpdateCommand.Connection = Me.Connection
33745             Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[Installment_Hostel] SET [IH_ID] = @IH_ID, [Installment] = @Installm"& _
33746                 "ent, [Charges] = @Charges, [HostelID] = @HostelID, [Class] = @Class, [SchoolID] "& _
33747                 "= @SchoolID WHERE (([IH_ID] = @Original_IH_ID) AND ([Installment] = @Original_In"& _
33748                 "stallment) AND ([Charges] = @Original_Charges) AND ([HostelID] = @Original_Hoste"& _
33749                 "lID) AND ([Class] = @Original_Class) AND ([SchoolID] = @Original_SchoolID));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SE"& _
33750                 "LECT IH_ID, Installment, Charges, HostelID, Class, SchoolID FROM Installment_Hos"& _
33751                 "tel WHERE (IH_ID = @IH_ID)"
33752             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
33753             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IH_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "IH_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
33754             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Installment", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Installment", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
33755             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Charges", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Charges", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
33756             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HostelID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HostelID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
33757             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Class", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Class", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
33758             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SchoolID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SchoolID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
33759             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_IH_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "IH_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
33760             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Installment", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Installment", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
33761             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Charges", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Charges", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
33762             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_HostelID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HostelID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
33763             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Class", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Class", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
33764             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SchoolID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SchoolID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
33765         End Sub
33766         
33767         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
33768          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
33769         Private Sub InitConnection()
33770             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
33771             Me._connection.ConnectionString = Global.ERP_System.My.MySettings.Default.ERPS_DBConnectionString
33772         End Sub
33773         
33774         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
33775          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
33776         Private Sub InitCommandCollection()
33777             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
33778             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
33779             Me._commandCollection(0).Connection = Me.Connection
33780             Me._commandCollection(0).CommandText = "SELECT IH_ID, Installment, Charges, HostelID, Class, SchoolID FROM dbo.Installmen"& _
33781                 "t_Hostel"
33782             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
33783         End Sub
33784         
33785         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
33786          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
33787          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
33788          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
33789         Public Overloads Overridable Function Fill(ByVal dataTable As ERPS_DBDataSet1.Installment_HostelDataTable) As Integer
33790             Me.Adapter.SelectCommand = Me.CommandCollection(0)
33791             If (Me.ClearBeforeFill = true) Then
33792                 dataTable.Clear
33793             End If
33794             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
33795             Return returnValue
33796         End Function
33797         
33798         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
33799          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
33800          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
33801          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
33802         Public Overloads Overridable Function GetData() As ERPS_DBDataSet1.Installment_HostelDataTable
33803             Me.Adapter.SelectCommand = Me.CommandCollection(0)
33804             Dim dataTable As ERPS_DBDataSet1.Installment_HostelDataTable = New ERPS_DBDataSet1.Installment_HostelDataTable()
33805             Me.Adapter.Fill(dataTable)
33806             Return dataTable
33807         End Function
33808         
33809         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
33810          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
33811          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
33812         Public Overloads Overridable Function Update(ByVal dataTable As ERPS_DBDataSet1.Installment_HostelDataTable) As Integer
33813             Return Me.Adapter.Update(dataTable)
33814         End Function
33815         
33816         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
33817          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
33818          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
33819         Public Overloads Overridable Function Update(ByVal dataSet As ERPS_DBDataSet1) As Integer
33820             Return Me.Adapter.Update(dataSet, "Installment_Hostel")
33821         End Function
33822         
33823         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
33824          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
33825          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
33826         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
33827             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
33828         End Function
33829         
33830         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
33831          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
33832          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
33833         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
33834             Return Me.Adapter.Update(dataRows)
33835         End Function
33836         
33837         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
33838          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
33839          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
33840          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
33841         Public Overloads Overridable Function Delete(ByVal Original_IH_ID As Integer, ByVal Original_Installment As String, ByVal Original_Charges As Decimal, ByVal Original_HostelID As Integer, ByVal Original_Class As String, ByVal Original_SchoolID As Integer) As Integer
33842             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_IH_ID,Integer)
33843             If (Original_Installment Is Nothing) Then
33844                 Throw New Global.System.ArgumentNullException("Original_Installment")
33845             Else
33846                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_Installment,String)
33847             End If
33848             Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_Charges,Decimal)
33849             Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_HostelID,Integer)
33850             If (Original_Class Is Nothing) Then
33851                 Throw New Global.System.ArgumentNullException("Original_Class")
33852             Else
33853                 Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_Class,String)
33854             End If
33855             Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_SchoolID,Integer)
33856             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
33857             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
33858                         <> Global.System.Data.ConnectionState.Open) Then
33859                 Me.Adapter.DeleteCommand.Connection.Open
33860             End If
33861             Try
33862                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
33863                 Return returnValue
33864             Finally
33865                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
33866                     Me.Adapter.DeleteCommand.Connection.Close
33867                 End If
33868             End Try
33869         End Function
33870         
33871         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
33872          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
33873          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
33874          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
33875         Public Overloads Overridable Function Insert(ByVal IH_ID As Integer, ByVal Installment As String, ByVal Charges As Decimal, ByVal HostelID As Integer, ByVal _Class As String, ByVal SchoolID As Integer) As Integer
33876             Me.Adapter.InsertCommand.Parameters(0).Value = CType(IH_ID,Integer)
33877             If (Installment Is Nothing) Then
33878                 Throw New Global.System.ArgumentNullException("Installment")
33879             Else
33880                 Me.Adapter.InsertCommand.Parameters(1).Value = CType(Installment,String)
33881             End If
33882             Me.Adapter.InsertCommand.Parameters(2).Value = CType(Charges,Decimal)
33883             Me.Adapter.InsertCommand.Parameters(3).Value = CType(HostelID,Integer)
33884             If (_Class Is Nothing) Then
33885                 Throw New Global.System.ArgumentNullException("_Class")
33886             Else
33887                 Me.Adapter.InsertCommand.Parameters(4).Value = CType(_Class,String)
33888             End If
33889             Me.Adapter.InsertCommand.Parameters(5).Value = CType(SchoolID,Integer)
33890             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
33891             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
33892                         <> Global.System.Data.ConnectionState.Open) Then
33893                 Me.Adapter.InsertCommand.Connection.Open
33894             End If
33895             Try
33896                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
33897                 Return returnValue
33898             Finally
33899                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
33900                     Me.Adapter.InsertCommand.Connection.Close
33901                 End If
33902             End Try
33903         End Function
33904         
33905         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
33906          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
33907          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
33908          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
33909         Public Overloads Overridable Function Update(ByVal IH_ID As Integer, ByVal Installment As String, ByVal Charges As Decimal, ByVal HostelID As Integer, ByVal _Class As String, ByVal SchoolID As Integer, ByVal Original_IH_ID As Integer, ByVal Original_Installment As String, ByVal Original_Charges As Decimal, ByVal Original_HostelID As Integer, ByVal Original_Class As String, ByVal Original_SchoolID As Integer) As Integer
33910             Me.Adapter.UpdateCommand.Parameters(0).Value = CType(IH_ID,Integer)
33911             If (Installment Is Nothing) Then
33912                 Throw New Global.System.ArgumentNullException("Installment")
33913             Else
33914                 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Installment,String)
33915             End If
33916             Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Charges,Decimal)
33917             Me.Adapter.UpdateCommand.Parameters(3).Value = CType(HostelID,Integer)
33918             If (_Class Is Nothing) Then
33919                 Throw New Global.System.ArgumentNullException("_Class")
33920             Else
33921                 Me.Adapter.UpdateCommand.Parameters(4).Value = CType(_Class,String)
33922             End If
33923             Me.Adapter.UpdateCommand.Parameters(5).Value = CType(SchoolID,Integer)
33924             Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_IH_ID,Integer)
33925             If (Original_Installment Is Nothing) Then
33926                 Throw New Global.System.ArgumentNullException("Original_Installment")
33927             Else
33928                 Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_Installment,String)
33929             End If
33930             Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_Charges,Decimal)
33931             Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_HostelID,Integer)
33932             If (Original_Class Is Nothing) Then
33933                 Throw New Global.System.ArgumentNullException("Original_Class")
33934             Else
33935                 Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_Class,String)
33936             End If
33937             Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_SchoolID,Integer)
33938             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
33939             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
33940                         <> Global.System.Data.ConnectionState.Open) Then
33941                 Me.Adapter.UpdateCommand.Connection.Open
33942             End If
33943             Try
33944                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
33945                 Return returnValue
33946             Finally
33947                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
33948                     Me.Adapter.UpdateCommand.Connection.Close
33949                 End If
33950             End Try
33951         End Function
33952         
33953         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
33954          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
33955          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
33956          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
33957         Public Overloads Overridable Function Update(ByVal Installment As String, ByVal Charges As Decimal, ByVal HostelID As Integer, ByVal _Class As String, ByVal SchoolID As Integer, ByVal Original_IH_ID As Integer, ByVal Original_Installment As String, ByVal Original_Charges As Decimal, ByVal Original_HostelID As Integer, ByVal Original_Class As String, ByVal Original_SchoolID As Integer) As Integer
33958             Return Me.Update(Original_IH_ID, Installment, Charges, HostelID, _Class, SchoolID, Original_IH_ID, Original_Installment, Original_Charges, Original_HostelID, Original_Class, Original_SchoolID)
33959         End Function
33960     End Class
33961     
33962     '''<summary>
33963     '''Represents the connection and commands used to retrieve and save data.
33964     '''</summary>
33965     <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
33966      Global.System.ComponentModel.ToolboxItem(true), _
33967      Global.System.ComponentModel.DataObjectAttribute(true), _
33968      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
33969         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
33970      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
33971     Partial Public Class LocationTableAdapter
33972         Inherits Global.System.ComponentModel.Component
33973         
33974         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
33975         
33976         Private _connection As Global.System.Data.SqlClient.SqlConnection
33977         
33978         Private _transaction As Global.System.Data.SqlClient.SqlTransaction
33979         
33980         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
33981         
33982         Private _clearBeforeFill As Boolean
33983         
33984         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
33985          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
33986         Public Sub New()
33987             MyBase.New
33988             Me.ClearBeforeFill = true
33989         End Sub
33990         
33991         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
33992          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
33993         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
33994             Get
33995                 If (Me._adapter Is Nothing) Then
33996                     Me.InitAdapter
33997                 End If
33998                 Return Me._adapter
33999             End Get
34000         End Property
34001         
34002         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
34003          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
34004         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
34005             Get
34006                 If (Me._connection Is Nothing) Then
34007                     Me.InitConnection
34008                 End If
34009                 Return Me._connection
34010             End Get
34011             Set
34012                 Me._connection = value
34013                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
34014                     Me.Adapter.InsertCommand.Connection = value
34015                 End If
34016                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
34017                     Me.Adapter.DeleteCommand.Connection = value
34018                 End If
34019                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
34020                     Me.Adapter.UpdateCommand.Connection = value
34021                 End If
34022                 Dim i As Integer = 0
34023                 Do While (i < Me.CommandCollection.Length)
34024                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
34025                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
34026                     End If
34027                     i = (i + 1)
34028                 Loop
34029             End Set
34030         End Property
34031         
34032         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
34033          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
34034         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
34035             Get
34036                 Return Me._transaction
34037             End Get
34038             Set
34039                 Me._transaction = value
34040                 Dim i As Integer = 0
34041                 Do While (i < Me.CommandCollection.Length)
34042                     Me.CommandCollection(i).Transaction = Me._transaction
34043                     i = (i + 1)
34044                 Loop
34045                 If ((Not (Me.Adapter) Is Nothing) _
34046                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
34047                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
34048                 End If
34049                 If ((Not (Me.Adapter) Is Nothing) _
34050                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
34051                     Me.Adapter.InsertCommand.Transaction = Me._transaction
34052                 End If
34053                 If ((Not (Me.Adapter) Is Nothing) _
34054                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
34055                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
34056                 End If
34057             End Set
34058         End Property
34059         
34060         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
34061          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
34062         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
34063             Get
34064                 If (Me._commandCollection Is Nothing) Then
34065                     Me.InitCommandCollection
34066                 End If
34067                 Return Me._commandCollection
34068             End Get
34069         End Property
34070         
34071         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
34072          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
34073         Public Property ClearBeforeFill() As Boolean
34074             Get
34075                 Return Me._clearBeforeFill
34076             End Get
34077             Set
34078                 Me._clearBeforeFill = value
34079             End Set
34080         End Property
34081         
34082         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
34083          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
34084         Private Sub InitAdapter()
34085             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
34086             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
34087             tableMapping.SourceTable = "Table"
34088             tableMapping.DataSetTable = "Location"
34089             tableMapping.ColumnMappings.Add("LocationName", "LocationName")
34090             Me._adapter.TableMappings.Add(tableMapping)
34091             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
34092             Me._adapter.DeleteCommand.Connection = Me.Connection
34093             Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[Location] WHERE (([LocationName] = @Original_LocationName))"
34094             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
34095             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LocationName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LocationName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
34096             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
34097             Me._adapter.InsertCommand.Connection = Me.Connection
34098             Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[Location] ([LocationName]) VALUES (@LocationName);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Loc"& _
34099                 "ationName FROM Location WHERE (LocationName = @LocationName)"
34100             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
34101             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LocationName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LocationName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
34102             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
34103             Me._adapter.UpdateCommand.Connection = Me.Connection
34104             Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[Location] SET [LocationName] = @LocationName WHERE (([LocationName]"& _
34105                 " = @Original_LocationName));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT LocationName FROM Location WHERE (LocationN"& _
34106                 "ame = @LocationName)"
34107             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
34108             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LocationName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LocationName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
34109             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LocationName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LocationName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
34110         End Sub
34111         
34112         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
34113          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
34114         Private Sub InitConnection()
34115             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
34116             Me._connection.ConnectionString = Global.ERP_System.My.MySettings.Default.ERPS_DBConnectionString
34117         End Sub
34118         
34119         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
34120          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
34121         Private Sub InitCommandCollection()
34122             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
34123             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
34124             Me._commandCollection(0).Connection = Me.Connection
34125             Me._commandCollection(0).CommandText = "SELECT LocationName FROM dbo.Location"
34126             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
34127         End Sub
34128         
34129         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
34130          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
34131          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
34132          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
34133         Public Overloads Overridable Function Fill(ByVal dataTable As ERPS_DBDataSet1.LocationDataTable) As Integer
34134             Me.Adapter.SelectCommand = Me.CommandCollection(0)
34135             If (Me.ClearBeforeFill = true) Then
34136                 dataTable.Clear
34137             End If
34138             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
34139             Return returnValue
34140         End Function
34141         
34142         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
34143          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
34144          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
34145          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
34146         Public Overloads Overridable Function GetData() As ERPS_DBDataSet1.LocationDataTable
34147             Me.Adapter.SelectCommand = Me.CommandCollection(0)
34148             Dim dataTable As ERPS_DBDataSet1.LocationDataTable = New ERPS_DBDataSet1.LocationDataTable()
34149             Me.Adapter.Fill(dataTable)
34150             Return dataTable
34151         End Function
34152         
34153         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
34154          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
34155          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
34156         Public Overloads Overridable Function Update(ByVal dataTable As ERPS_DBDataSet1.LocationDataTable) As Integer
34157             Return Me.Adapter.Update(dataTable)
34158         End Function
34159         
34160         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
34161          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
34162          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
34163         Public Overloads Overridable Function Update(ByVal dataSet As ERPS_DBDataSet1) As Integer
34164             Return Me.Adapter.Update(dataSet, "Location")
34165         End Function
34166         
34167         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
34168          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
34169          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
34170         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
34171             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
34172         End Function
34173         
34174         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
34175          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
34176          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
34177         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
34178             Return Me.Adapter.Update(dataRows)
34179         End Function
34180         
34181         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
34182          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
34183          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
34184          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
34185         Public Overloads Overridable Function Delete(ByVal Original_LocationName As String) As Integer
34186             If (Original_LocationName Is Nothing) Then
34187                 Throw New Global.System.ArgumentNullException("Original_LocationName")
34188             Else
34189                 Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_LocationName,String)
34190             End If
34191             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
34192             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
34193                         <> Global.System.Data.ConnectionState.Open) Then
34194                 Me.Adapter.DeleteCommand.Connection.Open
34195             End If
34196             Try
34197                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
34198                 Return returnValue
34199             Finally
34200                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
34201                     Me.Adapter.DeleteCommand.Connection.Close
34202                 End If
34203             End Try
34204         End Function
34205         
34206         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
34207          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
34208          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
34209          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
34210         Public Overloads Overridable Function Insert(ByVal LocationName As String) As Integer
34211             If (LocationName Is Nothing) Then
34212                 Throw New Global.System.ArgumentNullException("LocationName")
34213             Else
34214                 Me.Adapter.InsertCommand.Parameters(0).Value = CType(LocationName,String)
34215             End If
34216             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
34217             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
34218                         <> Global.System.Data.ConnectionState.Open) Then
34219                 Me.Adapter.InsertCommand.Connection.Open
34220             End If
34221             Try
34222                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
34223                 Return returnValue
34224             Finally
34225                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
34226                     Me.Adapter.InsertCommand.Connection.Close
34227                 End If
34228             End Try
34229         End Function
34230         
34231         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
34232          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
34233          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
34234          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
34235         Public Overloads Overridable Function Update(ByVal LocationName As String, ByVal Original_LocationName As String) As Integer
34236             If (LocationName Is Nothing) Then
34237                 Throw New Global.System.ArgumentNullException("LocationName")
34238             Else
34239                 Me.Adapter.UpdateCommand.Parameters(0).Value = CType(LocationName,String)
34240             End If
34241             If (Original_LocationName Is Nothing) Then
34242                 Throw New Global.System.ArgumentNullException("Original_LocationName")
34243             Else
34244                 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Original_LocationName,String)
34245             End If
34246             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
34247             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
34248                         <> Global.System.Data.ConnectionState.Open) Then
34249                 Me.Adapter.UpdateCommand.Connection.Open
34250             End If
34251             Try
34252                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
34253                 Return returnValue
34254             Finally
34255                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
34256                     Me.Adapter.UpdateCommand.Connection.Close
34257                 End If
34258             End Try
34259         End Function
34260         
34261         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
34262          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
34263          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
34264          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
34265         Public Overloads Overridable Function Update(ByVal Original_LocationName As String) As Integer
34266             Return Me.Update(Original_LocationName, Original_LocationName)
34267         End Function
34268     End Class
34269     
34270     '''<summary>
34271     '''Represents the connection and commands used to retrieve and save data.
34272     '''</summary>
34273     <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
34274      Global.System.ComponentModel.ToolboxItem(true), _
34275      Global.System.ComponentModel.DataObjectAttribute(true), _
34276      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
34277         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
34278      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
34279     Partial Public Class LogsTableAdapter
34280         Inherits Global.System.ComponentModel.Component
34281         
34282         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
34283         
34284         Private _connection As Global.System.Data.SqlClient.SqlConnection
34285         
34286         Private _transaction As Global.System.Data.SqlClient.SqlTransaction
34287         
34288         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
34289         
34290         Private _clearBeforeFill As Boolean
34291         
34292         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
34293          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
34294         Public Sub New()
34295             MyBase.New
34296             Me.ClearBeforeFill = true
34297         End Sub
34298         
34299         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
34300          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
34301         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
34302             Get
34303                 If (Me._adapter Is Nothing) Then
34304                     Me.InitAdapter
34305                 End If
34306                 Return Me._adapter
34307             End Get
34308         End Property
34309         
34310         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
34311          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
34312         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
34313             Get
34314                 If (Me._connection Is Nothing) Then
34315                     Me.InitConnection
34316                 End If
34317                 Return Me._connection
34318             End Get
34319             Set
34320                 Me._connection = value
34321                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
34322                     Me.Adapter.InsertCommand.Connection = value
34323                 End If
34324                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
34325                     Me.Adapter.DeleteCommand.Connection = value
34326                 End If
34327                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
34328                     Me.Adapter.UpdateCommand.Connection = value
34329                 End If
34330                 Dim i As Integer = 0
34331                 Do While (i < Me.CommandCollection.Length)
34332                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
34333                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
34334                     End If
34335                     i = (i + 1)
34336                 Loop
34337             End Set
34338         End Property
34339         
34340         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
34341          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
34342         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
34343             Get
34344                 Return Me._transaction
34345             End Get
34346             Set
34347                 Me._transaction = value
34348                 Dim i As Integer = 0
34349                 Do While (i < Me.CommandCollection.Length)
34350                     Me.CommandCollection(i).Transaction = Me._transaction
34351                     i = (i + 1)
34352                 Loop
34353                 If ((Not (Me.Adapter) Is Nothing) _
34354                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
34355                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
34356                 End If
34357                 If ((Not (Me.Adapter) Is Nothing) _
34358                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
34359                     Me.Adapter.InsertCommand.Transaction = Me._transaction
34360                 End If
34361                 If ((Not (Me.Adapter) Is Nothing) _
34362                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
34363                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
34364                 End If
34365             End Set
34366         End Property
34367         
34368         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
34369          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
34370         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
34371             Get
34372                 If (Me._commandCollection Is Nothing) Then
34373                     Me.InitCommandCollection
34374                 End If
34375                 Return Me._commandCollection
34376             End Get
34377         End Property
34378         
34379         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
34380          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
34381         Public Property ClearBeforeFill() As Boolean
34382             Get
34383                 Return Me._clearBeforeFill
34384             End Get
34385             Set
34386                 Me._clearBeforeFill = value
34387             End Set
34388         End Property
34389         
34390         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
34391          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
34392         Private Sub InitAdapter()
34393             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
34394             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
34395             tableMapping.SourceTable = "Table"
34396             tableMapping.DataSetTable = "Logs"
34397             tableMapping.ColumnMappings.Add("Id", "Id")
34398             tableMapping.ColumnMappings.Add("UserID", "UserID")
34399             tableMapping.ColumnMappings.Add("Date", "Date")
34400             tableMapping.ColumnMappings.Add("Operation", "Operation")
34401             Me._adapter.TableMappings.Add(tableMapping)
34402             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
34403             Me._adapter.DeleteCommand.Connection = Me.Connection
34404             Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[Logs] WHERE (([Id] = @Original_Id) AND ([UserID] = @Original_U"& _
34405                 "serID) AND ([Date] = @Original_Date))"
34406             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
34407             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
34408             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_UserID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UserID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
34409             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Date", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Date", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
34410             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
34411             Me._adapter.InsertCommand.Connection = Me.Connection
34412             Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[Logs] ([UserID], [Date], [Operation]) VALUES (@UserID, @Date, "& _
34413                 "@Operation);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Id, UserID, Date, Operation FROM Logs WHERE (Id = SCOPE_IDE"& _
34414                 "NTITY())"
34415             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
34416             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UserID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UserID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
34417             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Date", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Date", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
34418             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Operation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Operation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
34419             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
34420             Me._adapter.UpdateCommand.Connection = Me.Connection
34421             Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[Logs] SET [UserID] = @UserID, [Date] = @Date, [Operation] = @Operat"& _
34422                 "ion WHERE (([Id] = @Original_Id) AND ([UserID] = @Original_UserID) AND ([Date] ="& _
34423                 " @Original_Date));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Id, UserID, Date, Operation FROM Logs WHERE (Id = @Id"& _
34424                 ")"
34425             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
34426             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UserID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UserID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
34427             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Date", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Date", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
34428             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Operation", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Operation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
34429             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
34430             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_UserID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UserID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
34431             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Date", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Date", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
34432             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "Id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
34433         End Sub
34434         
34435         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
34436          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
34437         Private Sub InitConnection()
34438             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
34439             Me._connection.ConnectionString = Global.ERP_System.My.MySettings.Default.ERPS_DBConnectionString
34440         End Sub
34441         
34442         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
34443          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
34444         Private Sub InitCommandCollection()
34445             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
34446             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
34447             Me._commandCollection(0).Connection = Me.Connection
34448             Me._commandCollection(0).CommandText = "SELECT Id, UserID, Date, Operation FROM dbo.Logs"
34449             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
34450         End Sub
34451         
34452         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
34453          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
34454          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
34455          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
34456         Public Overloads Overridable Function Fill(ByVal dataTable As ERPS_DBDataSet1.LogsDataTable) As Integer
34457             Me.Adapter.SelectCommand = Me.CommandCollection(0)
34458             If (Me.ClearBeforeFill = true) Then
34459                 dataTable.Clear
34460             End If
34461             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
34462             Return returnValue
34463         End Function
34464         
34465         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
34466          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
34467          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
34468          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
34469         Public Overloads Overridable Function GetData() As ERPS_DBDataSet1.LogsDataTable
34470             Me.Adapter.SelectCommand = Me.CommandCollection(0)
34471             Dim dataTable As ERPS_DBDataSet1.LogsDataTable = New ERPS_DBDataSet1.LogsDataTable()
34472             Me.Adapter.Fill(dataTable)
34473             Return dataTable
34474         End Function
34475         
34476         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
34477          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
34478          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
34479         Public Overloads Overridable Function Update(ByVal dataTable As ERPS_DBDataSet1.LogsDataTable) As Integer
34480             Return Me.Adapter.Update(dataTable)
34481         End Function
34482         
34483         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
34484          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
34485          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
34486         Public Overloads Overridable Function Update(ByVal dataSet As ERPS_DBDataSet1) As Integer
34487             Return Me.Adapter.Update(dataSet, "Logs")
34488         End Function
34489         
34490         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
34491          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
34492          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
34493         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
34494             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
34495         End Function
34496         
34497         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
34498          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
34499          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
34500         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
34501             Return Me.Adapter.Update(dataRows)
34502         End Function
34503         
34504         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
34505          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
34506          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
34507          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
34508         Public Overloads Overridable Function Delete(ByVal Original_Id As Integer, ByVal Original_UserID As String, ByVal Original_Date As Date) As Integer
34509             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_Id,Integer)
34510             If (Original_UserID Is Nothing) Then
34511                 Throw New Global.System.ArgumentNullException("Original_UserID")
34512             Else
34513                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_UserID,String)
34514             End If
34515             Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_Date,Date)
34516             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
34517             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
34518                         <> Global.System.Data.ConnectionState.Open) Then
34519                 Me.Adapter.DeleteCommand.Connection.Open
34520             End If
34521             Try
34522                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
34523                 Return returnValue
34524             Finally
34525                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
34526                     Me.Adapter.DeleteCommand.Connection.Close
34527                 End If
34528             End Try
34529         End Function
34530         
34531         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
34532          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
34533          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
34534          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
34535         Public Overloads Overridable Function Insert(ByVal UserID As String, ByVal _Date As Date, ByVal Operation As String) As Integer
34536             If (UserID Is Nothing) Then
34537                 Throw New Global.System.ArgumentNullException("UserID")
34538             Else
34539                 Me.Adapter.InsertCommand.Parameters(0).Value = CType(UserID,String)
34540             End If
34541             Me.Adapter.InsertCommand.Parameters(1).Value = CType(_Date,Date)
34542             If (Operation Is Nothing) Then
34543                 Throw New Global.System.ArgumentNullException("Operation")
34544             Else
34545                 Me.Adapter.InsertCommand.Parameters(2).Value = CType(Operation,String)
34546             End If
34547             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
34548             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
34549                         <> Global.System.Data.ConnectionState.Open) Then
34550                 Me.Adapter.InsertCommand.Connection.Open
34551             End If
34552             Try
34553                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
34554                 Return returnValue
34555             Finally
34556                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
34557                     Me.Adapter.InsertCommand.Connection.Close
34558                 End If
34559             End Try
34560         End Function
34561         
34562         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
34563          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
34564          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
34565          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
34566         Public Overloads Overridable Function Update(ByVal UserID As String, ByVal _Date As Date, ByVal Operation As String, ByVal Original_Id As Integer, ByVal Original_UserID As String, ByVal Original_Date As Date, ByVal Id As Integer) As Integer
34567             If (UserID Is Nothing) Then
34568                 Throw New Global.System.ArgumentNullException("UserID")
34569             Else
34570                 Me.Adapter.UpdateCommand.Parameters(0).Value = CType(UserID,String)
34571             End If
34572             Me.Adapter.UpdateCommand.Parameters(1).Value = CType(_Date,Date)
34573             If (Operation Is Nothing) Then
34574                 Throw New Global.System.ArgumentNullException("Operation")
34575             Else
34576                 Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Operation,String)
34577             End If
34578             Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_Id,Integer)
34579             If (Original_UserID Is Nothing) Then
34580                 Throw New Global.System.ArgumentNullException("Original_UserID")
34581             Else
34582                 Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_UserID,String)
34583             End If
34584             Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_Date,Date)
34585             Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Id,Integer)
34586             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
34587             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
34588                         <> Global.System.Data.ConnectionState.Open) Then
34589                 Me.Adapter.UpdateCommand.Connection.Open
34590             End If
34591             Try
34592                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
34593                 Return returnValue
34594             Finally
34595                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
34596                     Me.Adapter.UpdateCommand.Connection.Close
34597                 End If
34598             End Try
34599         End Function
34600         
34601         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
34602          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
34603          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
34604          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
34605         Public Overloads Overridable Function Update(ByVal UserID As String, ByVal _Date As Date, ByVal Operation As String, ByVal Original_Id As Integer, ByVal Original_UserID As String, ByVal Original_Date As Date) As Integer
34606             Return Me.Update(UserID, _Date, Operation, Original_Id, Original_UserID, Original_Date, Original_Id)
34607         End Function
34608     End Class
34609     
34610     '''<summary>
34611     '''Represents the connection and commands used to retrieve and save data.
34612     '''</summary>
34613     <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
34614      Global.System.ComponentModel.ToolboxItem(true), _
34615      Global.System.ComponentModel.DataObjectAttribute(true), _
34616      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
34617         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
34618      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
34619     Partial Public Class NoDues_StaffTableAdapter
34620         Inherits Global.System.ComponentModel.Component
34621         
34622         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
34623         
34624         Private _connection As Global.System.Data.SqlClient.SqlConnection
34625         
34626         Private _transaction As Global.System.Data.SqlClient.SqlTransaction
34627         
34628         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
34629         
34630         Private _clearBeforeFill As Boolean
34631         
34632         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
34633          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
34634         Public Sub New()
34635             MyBase.New
34636             Me.ClearBeforeFill = true
34637         End Sub
34638         
34639         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
34640          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
34641         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
34642             Get
34643                 If (Me._adapter Is Nothing) Then
34644                     Me.InitAdapter
34645                 End If
34646                 Return Me._adapter
34647             End Get
34648         End Property
34649         
34650         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
34651          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
34652         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
34653             Get
34654                 If (Me._connection Is Nothing) Then
34655                     Me.InitConnection
34656                 End If
34657                 Return Me._connection
34658             End Get
34659             Set
34660                 Me._connection = value
34661                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
34662                     Me.Adapter.InsertCommand.Connection = value
34663                 End If
34664                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
34665                     Me.Adapter.DeleteCommand.Connection = value
34666                 End If
34667                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
34668                     Me.Adapter.UpdateCommand.Connection = value
34669                 End If
34670                 Dim i As Integer = 0
34671                 Do While (i < Me.CommandCollection.Length)
34672                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
34673                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
34674                     End If
34675                     i = (i + 1)
34676                 Loop
34677             End Set
34678         End Property
34679         
34680         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
34681          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
34682         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
34683             Get
34684                 Return Me._transaction
34685             End Get
34686             Set
34687                 Me._transaction = value
34688                 Dim i As Integer = 0
34689                 Do While (i < Me.CommandCollection.Length)
34690                     Me.CommandCollection(i).Transaction = Me._transaction
34691                     i = (i + 1)
34692                 Loop
34693                 If ((Not (Me.Adapter) Is Nothing) _
34694                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
34695                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
34696                 End If
34697                 If ((Not (Me.Adapter) Is Nothing) _
34698                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
34699                     Me.Adapter.InsertCommand.Transaction = Me._transaction
34700                 End If
34701                 If ((Not (Me.Adapter) Is Nothing) _
34702                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
34703                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
34704                 End If
34705             End Set
34706         End Property
34707         
34708         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
34709          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
34710         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
34711             Get
34712                 If (Me._commandCollection Is Nothing) Then
34713                     Me.InitCommandCollection
34714                 End If
34715                 Return Me._commandCollection
34716             End Get
34717         End Property
34718         
34719         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
34720          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
34721         Public Property ClearBeforeFill() As Boolean
34722             Get
34723                 Return Me._clearBeforeFill
34724             End Get
34725             Set
34726                 Me._clearBeforeFill = value
34727             End Set
34728         End Property
34729         
34730         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
34731          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
34732         Private Sub InitAdapter()
34733             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
34734             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
34735             tableMapping.SourceTable = "Table"
34736             tableMapping.DataSetTable = "NoDues_Staff"
34737             tableMapping.ColumnMappings.Add("StaffID", "StaffID")
34738             tableMapping.ColumnMappings.Add("Staff", "Staff")
34739             Me._adapter.TableMappings.Add(tableMapping)
34740             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
34741             Me._adapter.DeleteCommand.Connection = Me.Connection
34742             Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[NoDues_Staff] WHERE (([StaffID] = @Original_StaffID) AND ((@Is"& _
34743                 "Null_Staff = 1 AND [Staff] IS NULL) OR ([Staff] = @Original_Staff)))"
34744             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
34745             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_StaffID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "StaffID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
34746             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Staff", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Staff", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
34747             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Staff", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Staff", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
34748             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
34749             Me._adapter.InsertCommand.Connection = Me.Connection
34750             Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[NoDues_Staff] ([StaffID], [Staff]) VALUES (@StaffID, @Staff);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT StaffID, Staff FROM NoDues_Staff WHERE (StaffID = @StaffID)"
34751             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
34752             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@StaffID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "StaffID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
34753             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Staff", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Staff", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
34754             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
34755             Me._adapter.UpdateCommand.Connection = Me.Connection
34756             Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[NoDues_Staff] SET [StaffID] = @StaffID, [Staff] = @Staff WHERE (([S"& _
34757                 "taffID] = @Original_StaffID) AND ((@IsNull_Staff = 1 AND [Staff] IS NULL) OR ([S"& _
34758                 "taff] = @Original_Staff)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT StaffID, Staff FROM NoDues_Staff WHERE (Staf"& _
34759                 "fID = @StaffID)"
34760             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
34761             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@StaffID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "StaffID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
34762             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Staff", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Staff", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
34763             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_StaffID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "StaffID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
34764             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Staff", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Staff", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
34765             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Staff", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Staff", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
34766         End Sub
34767         
34768         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
34769          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
34770         Private Sub InitConnection()
34771             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
34772             Me._connection.ConnectionString = Global.ERP_System.My.MySettings.Default.ERPS_DBConnectionString
34773         End Sub
34774         
34775         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
34776          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
34777         Private Sub InitCommandCollection()
34778             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
34779             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
34780             Me._commandCollection(0).Connection = Me.Connection
34781             Me._commandCollection(0).CommandText = "SELECT StaffID, Staff FROM dbo.NoDues_Staff"
34782             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
34783         End Sub
34784         
34785         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
34786          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
34787          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
34788          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
34789         Public Overloads Overridable Function Fill(ByVal dataTable As ERPS_DBDataSet1.NoDues_StaffDataTable) As Integer
34790             Me.Adapter.SelectCommand = Me.CommandCollection(0)
34791             If (Me.ClearBeforeFill = true) Then
34792                 dataTable.Clear
34793             End If
34794             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
34795             Return returnValue
34796         End Function
34797         
34798         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
34799          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
34800          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
34801          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
34802         Public Overloads Overridable Function GetData() As ERPS_DBDataSet1.NoDues_StaffDataTable
34803             Me.Adapter.SelectCommand = Me.CommandCollection(0)
34804             Dim dataTable As ERPS_DBDataSet1.NoDues_StaffDataTable = New ERPS_DBDataSet1.NoDues_StaffDataTable()
34805             Me.Adapter.Fill(dataTable)
34806             Return dataTable
34807         End Function
34808         
34809         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
34810          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
34811          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
34812         Public Overloads Overridable Function Update(ByVal dataTable As ERPS_DBDataSet1.NoDues_StaffDataTable) As Integer
34813             Return Me.Adapter.Update(dataTable)
34814         End Function
34815         
34816         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
34817          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
34818          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
34819         Public Overloads Overridable Function Update(ByVal dataSet As ERPS_DBDataSet1) As Integer
34820             Return Me.Adapter.Update(dataSet, "NoDues_Staff")
34821         End Function
34822         
34823         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
34824          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
34825          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
34826         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
34827             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
34828         End Function
34829         
34830         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
34831          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
34832          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
34833         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
34834             Return Me.Adapter.Update(dataRows)
34835         End Function
34836         
34837         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
34838          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
34839          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
34840          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
34841         Public Overloads Overridable Function Delete(ByVal Original_StaffID As Integer, ByVal Original_Staff As String) As Integer
34842             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_StaffID,Integer)
34843             If (Original_Staff Is Nothing) Then
34844                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object)
34845                 Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value
34846             Else
34847                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object)
34848                 Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_Staff,String)
34849             End If
34850             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
34851             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
34852                         <> Global.System.Data.ConnectionState.Open) Then
34853                 Me.Adapter.DeleteCommand.Connection.Open
34854             End If
34855             Try
34856                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
34857                 Return returnValue
34858             Finally
34859                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
34860                     Me.Adapter.DeleteCommand.Connection.Close
34861                 End If
34862             End Try
34863         End Function
34864         
34865         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
34866          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
34867          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
34868          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
34869         Public Overloads Overridable Function Insert(ByVal StaffID As Integer, ByVal Staff As String) As Integer
34870             Me.Adapter.InsertCommand.Parameters(0).Value = CType(StaffID,Integer)
34871             If (Staff Is Nothing) Then
34872                 Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value
34873             Else
34874                 Me.Adapter.InsertCommand.Parameters(1).Value = CType(Staff,String)
34875             End If
34876             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
34877             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
34878                         <> Global.System.Data.ConnectionState.Open) Then
34879                 Me.Adapter.InsertCommand.Connection.Open
34880             End If
34881             Try
34882                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
34883                 Return returnValue
34884             Finally
34885                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
34886                     Me.Adapter.InsertCommand.Connection.Close
34887                 End If
34888             End Try
34889         End Function
34890         
34891         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
34892          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
34893          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
34894          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
34895         Public Overloads Overridable Function Update(ByVal StaffID As Integer, ByVal Staff As String, ByVal Original_StaffID As Integer, ByVal Original_Staff As String) As Integer
34896             Me.Adapter.UpdateCommand.Parameters(0).Value = CType(StaffID,Integer)
34897             If (Staff Is Nothing) Then
34898                 Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value
34899             Else
34900                 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Staff,String)
34901             End If
34902             Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Original_StaffID,Integer)
34903             If (Original_Staff Is Nothing) Then
34904                 Me.Adapter.UpdateCommand.Parameters(3).Value = CType(1,Object)
34905                 Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value
34906             Else
34907                 Me.Adapter.UpdateCommand.Parameters(3).Value = CType(0,Object)
34908                 Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_Staff,String)
34909             End If
34910             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
34911             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
34912                         <> Global.System.Data.ConnectionState.Open) Then
34913                 Me.Adapter.UpdateCommand.Connection.Open
34914             End If
34915             Try
34916                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
34917                 Return returnValue
34918             Finally
34919                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
34920                     Me.Adapter.UpdateCommand.Connection.Close
34921                 End If
34922             End Try
34923         End Function
34924         
34925         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
34926          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
34927          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
34928          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
34929         Public Overloads Overridable Function Update(ByVal Staff As String, ByVal Original_StaffID As Integer, ByVal Original_Staff As String) As Integer
34930             Return Me.Update(Original_StaffID, Staff, Original_StaffID, Original_Staff)
34931         End Function
34932     End Class
34933     
34934     '''<summary>
34935     '''Represents the connection and commands used to retrieve and save data.
34936     '''</summary>
34937     <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
34938      Global.System.ComponentModel.ToolboxItem(true), _
34939      Global.System.ComponentModel.DataObjectAttribute(true), _
34940      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
34941         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
34942      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
34943     Partial Public Class NoDues_StudentTableAdapter
34944         Inherits Global.System.ComponentModel.Component
34945         
34946         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
34947         
34948         Private _connection As Global.System.Data.SqlClient.SqlConnection
34949         
34950         Private _transaction As Global.System.Data.SqlClient.SqlTransaction
34951         
34952         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
34953         
34954         Private _clearBeforeFill As Boolean
34955         
34956         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
34957          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
34958         Public Sub New()
34959             MyBase.New
34960             Me.ClearBeforeFill = true
34961         End Sub
34962         
34963         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
34964          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
34965         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
34966             Get
34967                 If (Me._adapter Is Nothing) Then
34968                     Me.InitAdapter
34969                 End If
34970                 Return Me._adapter
34971             End Get
34972         End Property
34973         
34974         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
34975          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
34976         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
34977             Get
34978                 If (Me._connection Is Nothing) Then
34979                     Me.InitConnection
34980                 End If
34981                 Return Me._connection
34982             End Get
34983             Set
34984                 Me._connection = value
34985                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
34986                     Me.Adapter.InsertCommand.Connection = value
34987                 End If
34988                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
34989                     Me.Adapter.DeleteCommand.Connection = value
34990                 End If
34991                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
34992                     Me.Adapter.UpdateCommand.Connection = value
34993                 End If
34994                 Dim i As Integer = 0
34995                 Do While (i < Me.CommandCollection.Length)
34996                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
34997                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
34998                     End If
34999                     i = (i + 1)
35000                 Loop
35001             End Set
35002         End Property
35003         
35004         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
35005          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
35006         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
35007             Get
35008                 Return Me._transaction
35009             End Get
35010             Set
35011                 Me._transaction = value
35012                 Dim i As Integer = 0
35013                 Do While (i < Me.CommandCollection.Length)
35014                     Me.CommandCollection(i).Transaction = Me._transaction
35015                     i = (i + 1)
35016                 Loop
35017                 If ((Not (Me.Adapter) Is Nothing) _
35018                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
35019                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
35020                 End If
35021                 If ((Not (Me.Adapter) Is Nothing) _
35022                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
35023                     Me.Adapter.InsertCommand.Transaction = Me._transaction
35024                 End If
35025                 If ((Not (Me.Adapter) Is Nothing) _
35026                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
35027                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
35028                 End If
35029             End Set
35030         End Property
35031         
35032         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
35033          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
35034         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
35035             Get
35036                 If (Me._commandCollection Is Nothing) Then
35037                     Me.InitCommandCollection
35038                 End If
35039                 Return Me._commandCollection
35040             End Get
35041         End Property
35042         
35043         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
35044          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
35045         Public Property ClearBeforeFill() As Boolean
35046             Get
35047                 Return Me._clearBeforeFill
35048             End Get
35049             Set
35050                 Me._clearBeforeFill = value
35051             End Set
35052         End Property
35053         
35054         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
35055          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
35056         Private Sub InitAdapter()
35057             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
35058             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
35059             tableMapping.SourceTable = "Table"
35060             tableMapping.DataSetTable = "NoDues_Student"
35061             tableMapping.ColumnMappings.Add("AdmissionNo", "AdmissionNo")
35062             tableMapping.ColumnMappings.Add("Status", "Status")
35063             Me._adapter.TableMappings.Add(tableMapping)
35064             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
35065             Me._adapter.DeleteCommand.Connection = Me.Connection
35066             Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[NoDues_Student] WHERE (([AdmissionNo] = @Original_AdmissionNo)"& _
35067                 " AND ((@IsNull_Status = 1 AND [Status] IS NULL) OR ([Status] = @Original_Status)"& _
35068                 "))"
35069             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
35070             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_AdmissionNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AdmissionNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
35071             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Status", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Status", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
35072             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Status", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Status", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
35073             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
35074             Me._adapter.InsertCommand.Connection = Me.Connection
35075             Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[NoDues_Student] ([AdmissionNo], [Status]) VALUES (@AdmissionNo"& _
35076                 ", @Status);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT AdmissionNo, Status FROM NoDues_Student WHERE (AdmissionNo ="& _
35077                 " @AdmissionNo)"
35078             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
35079             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AdmissionNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AdmissionNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
35080             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Status", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Status", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
35081             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
35082             Me._adapter.UpdateCommand.Connection = Me.Connection
35083             Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[NoDues_Student] SET [AdmissionNo] = @AdmissionNo, [Status] = @Statu"& _
35084                 "s WHERE (([AdmissionNo] = @Original_AdmissionNo) AND ((@IsNull_Status = 1 AND [S"& _
35085                 "tatus] IS NULL) OR ([Status] = @Original_Status)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT AdmissionNo, Status "& _
35086                 "FROM NoDues_Student WHERE (AdmissionNo = @AdmissionNo)"
35087             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
35088             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AdmissionNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AdmissionNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
35089             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Status", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Status", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
35090             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_AdmissionNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AdmissionNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
35091             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Status", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Status", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
35092             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Status", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Status", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
35093         End Sub
35094         
35095         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
35096          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
35097         Private Sub InitConnection()
35098             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
35099             Me._connection.ConnectionString = Global.ERP_System.My.MySettings.Default.ERPS_DBConnectionString
35100         End Sub
35101         
35102         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
35103          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
35104         Private Sub InitCommandCollection()
35105             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
35106             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
35107             Me._commandCollection(0).Connection = Me.Connection
35108             Me._commandCollection(0).CommandText = "SELECT AdmissionNo, Status FROM dbo.NoDues_Student"
35109             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
35110         End Sub
35111         
35112         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
35113          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
35114          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
35115          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
35116         Public Overloads Overridable Function Fill(ByVal dataTable As ERPS_DBDataSet1.NoDues_StudentDataTable) As Integer
35117             Me.Adapter.SelectCommand = Me.CommandCollection(0)
35118             If (Me.ClearBeforeFill = true) Then
35119                 dataTable.Clear
35120             End If
35121             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
35122             Return returnValue
35123         End Function
35124         
35125         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
35126          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
35127          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
35128          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
35129         Public Overloads Overridable Function GetData() As ERPS_DBDataSet1.NoDues_StudentDataTable
35130             Me.Adapter.SelectCommand = Me.CommandCollection(0)
35131             Dim dataTable As ERPS_DBDataSet1.NoDues_StudentDataTable = New ERPS_DBDataSet1.NoDues_StudentDataTable()
35132             Me.Adapter.Fill(dataTable)
35133             Return dataTable
35134         End Function
35135         
35136         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
35137          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
35138          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
35139         Public Overloads Overridable Function Update(ByVal dataTable As ERPS_DBDataSet1.NoDues_StudentDataTable) As Integer
35140             Return Me.Adapter.Update(dataTable)
35141         End Function
35142         
35143         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
35144          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
35145          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
35146         Public Overloads Overridable Function Update(ByVal dataSet As ERPS_DBDataSet1) As Integer
35147             Return Me.Adapter.Update(dataSet, "NoDues_Student")
35148         End Function
35149         
35150         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
35151          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
35152          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
35153         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
35154             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
35155         End Function
35156         
35157         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
35158          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
35159          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
35160         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
35161             Return Me.Adapter.Update(dataRows)
35162         End Function
35163         
35164         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
35165          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
35166          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
35167          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
35168         Public Overloads Overridable Function Delete(ByVal Original_AdmissionNo As String, ByVal Original_Status As String) As Integer
35169             If (Original_AdmissionNo Is Nothing) Then
35170                 Throw New Global.System.ArgumentNullException("Original_AdmissionNo")
35171             Else
35172                 Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_AdmissionNo,String)
35173             End If
35174             If (Original_Status Is Nothing) Then
35175                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object)
35176                 Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value
35177             Else
35178                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object)
35179                 Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_Status,String)
35180             End If
35181             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
35182             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
35183                         <> Global.System.Data.ConnectionState.Open) Then
35184                 Me.Adapter.DeleteCommand.Connection.Open
35185             End If
35186             Try
35187                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
35188                 Return returnValue
35189             Finally
35190                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
35191                     Me.Adapter.DeleteCommand.Connection.Close
35192                 End If
35193             End Try
35194         End Function
35195         
35196         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
35197          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
35198          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
35199          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
35200         Public Overloads Overridable Function Insert(ByVal AdmissionNo As String, ByVal Status As String) As Integer
35201             If (AdmissionNo Is Nothing) Then
35202                 Throw New Global.System.ArgumentNullException("AdmissionNo")
35203             Else
35204                 Me.Adapter.InsertCommand.Parameters(0).Value = CType(AdmissionNo,String)
35205             End If
35206             If (Status Is Nothing) Then
35207                 Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value
35208             Else
35209                 Me.Adapter.InsertCommand.Parameters(1).Value = CType(Status,String)
35210             End If
35211             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
35212             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
35213                         <> Global.System.Data.ConnectionState.Open) Then
35214                 Me.Adapter.InsertCommand.Connection.Open
35215             End If
35216             Try
35217                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
35218                 Return returnValue
35219             Finally
35220                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
35221                     Me.Adapter.InsertCommand.Connection.Close
35222                 End If
35223             End Try
35224         End Function
35225         
35226         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
35227          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
35228          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
35229          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
35230         Public Overloads Overridable Function Update(ByVal AdmissionNo As String, ByVal Status As String, ByVal Original_AdmissionNo As String, ByVal Original_Status As String) As Integer
35231             If (AdmissionNo Is Nothing) Then
35232                 Throw New Global.System.ArgumentNullException("AdmissionNo")
35233             Else
35234                 Me.Adapter.UpdateCommand.Parameters(0).Value = CType(AdmissionNo,String)
35235             End If
35236             If (Status Is Nothing) Then
35237                 Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value
35238             Else
35239                 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Status,String)
35240             End If
35241             If (Original_AdmissionNo Is Nothing) Then
35242                 Throw New Global.System.ArgumentNullException("Original_AdmissionNo")
35243             Else
35244                 Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Original_AdmissionNo,String)
35245             End If
35246             If (Original_Status Is Nothing) Then
35247                 Me.Adapter.UpdateCommand.Parameters(3).Value = CType(1,Object)
35248                 Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value
35249             Else
35250                 Me.Adapter.UpdateCommand.Parameters(3).Value = CType(0,Object)
35251                 Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_Status,String)
35252             End If
35253             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
35254             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
35255                         <> Global.System.Data.ConnectionState.Open) Then
35256                 Me.Adapter.UpdateCommand.Connection.Open
35257             End If
35258             Try
35259                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
35260                 Return returnValue
35261             Finally
35262                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
35263                     Me.Adapter.UpdateCommand.Connection.Close
35264                 End If
35265             End Try
35266         End Function
35267         
35268         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
35269          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
35270          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
35271          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
35272         Public Overloads Overridable Function Update(ByVal Status As String, ByVal Original_AdmissionNo As String, ByVal Original_Status As String) As Integer
35273             Return Me.Update(Original_AdmissionNo, Status, Original_AdmissionNo, Original_Status)
35274         End Function
35275     End Class
35276     
35277     '''<summary>
35278     '''Represents the connection and commands used to retrieve and save data.
35279     '''</summary>
35280     <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
35281      Global.System.ComponentModel.ToolboxItem(true), _
35282      Global.System.ComponentModel.DataObjectAttribute(true), _
35283      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
35284         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
35285      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
35286     Partial Public Class RegistrationTableAdapter
35287         Inherits Global.System.ComponentModel.Component
35288         
35289         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
35290         
35291         Private _connection As Global.System.Data.SqlClient.SqlConnection
35292         
35293         Private _transaction As Global.System.Data.SqlClient.SqlTransaction
35294         
35295         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
35296         
35297         Private _clearBeforeFill As Boolean
35298         
35299         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
35300          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
35301         Public Sub New()
35302             MyBase.New
35303             Me.ClearBeforeFill = true
35304         End Sub
35305         
35306         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
35307          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
35308         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
35309             Get
35310                 If (Me._adapter Is Nothing) Then
35311                     Me.InitAdapter
35312                 End If
35313                 Return Me._adapter
35314             End Get
35315         End Property
35316         
35317         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
35318          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
35319         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
35320             Get
35321                 If (Me._connection Is Nothing) Then
35322                     Me.InitConnection
35323                 End If
35324                 Return Me._connection
35325             End Get
35326             Set
35327                 Me._connection = value
35328                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
35329                     Me.Adapter.InsertCommand.Connection = value
35330                 End If
35331                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
35332                     Me.Adapter.DeleteCommand.Connection = value
35333                 End If
35334                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
35335                     Me.Adapter.UpdateCommand.Connection = value
35336                 End If
35337                 Dim i As Integer = 0
35338                 Do While (i < Me.CommandCollection.Length)
35339                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
35340                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
35341                     End If
35342                     i = (i + 1)
35343                 Loop
35344             End Set
35345         End Property
35346         
35347         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
35348          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
35349         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
35350             Get
35351                 Return Me._transaction
35352             End Get
35353             Set
35354                 Me._transaction = value
35355                 Dim i As Integer = 0
35356                 Do While (i < Me.CommandCollection.Length)
35357                     Me.CommandCollection(i).Transaction = Me._transaction
35358                     i = (i + 1)
35359                 Loop
35360                 If ((Not (Me.Adapter) Is Nothing) _
35361                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
35362                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
35363                 End If
35364                 If ((Not (Me.Adapter) Is Nothing) _
35365                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
35366                     Me.Adapter.InsertCommand.Transaction = Me._transaction
35367                 End If
35368                 If ((Not (Me.Adapter) Is Nothing) _
35369                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
35370                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
35371                 End If
35372             End Set
35373         End Property
35374         
35375         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
35376          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
35377         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
35378             Get
35379                 If (Me._commandCollection Is Nothing) Then
35380                     Me.InitCommandCollection
35381                 End If
35382                 Return Me._commandCollection
35383             End Get
35384         End Property
35385         
35386         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
35387          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
35388         Public Property ClearBeforeFill() As Boolean
35389             Get
35390                 Return Me._clearBeforeFill
35391             End Get
35392             Set
35393                 Me._clearBeforeFill = value
35394             End Set
35395         End Property
35396         
35397         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
35398          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
35399         Private Sub InitAdapter()
35400             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
35401             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
35402             tableMapping.SourceTable = "Table"
35403             tableMapping.DataSetTable = "Registration"
35404             tableMapping.ColumnMappings.Add("UserID", "UserID")
35405             tableMapping.ColumnMappings.Add("Password", "Password")
35406             tableMapping.ColumnMappings.Add("Name", "Name")
35407             tableMapping.ColumnMappings.Add("Usertype", "Usertype")
35408             tableMapping.ColumnMappings.Add("ContactNo", "ContactNo")
35409             tableMapping.ColumnMappings.Add("EmailID", "EmailID")
35410             tableMapping.ColumnMappings.Add("JoiningDate", "JoiningDate")
35411             Me._adapter.TableMappings.Add(tableMapping)
35412             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
35413             Me._adapter.DeleteCommand.Connection = Me.Connection
35414             Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[Registration] WHERE (([UserID] = @Original_UserID) AND ([Passw"& _
35415                 "ord] = @Original_Password) AND ([Name] = @Original_Name) AND ([Usertype] = @Orig"& _
35416                 "inal_Usertype) AND ([ContactNo] = @Original_ContactNo) AND ((@IsNull_EmailID = 1"& _
35417                 " AND [EmailID] IS NULL) OR ([EmailID] = @Original_EmailID)) AND ((@IsNull_Joinin"& _
35418                 "gDate = 1 AND [JoiningDate] IS NULL) OR ([JoiningDate] = @Original_JoiningDate))"& _
35419                 ")"
35420             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
35421             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_UserID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UserID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
35422             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Password", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Password", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
35423             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
35424             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Usertype", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Usertype", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
35425             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ContactNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContactNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
35426             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_EmailID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
35427             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EmailID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
35428             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_JoiningDate", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "JoiningDate", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
35429             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_JoiningDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "JoiningDate", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
35430             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
35431             Me._adapter.InsertCommand.Connection = Me.Connection
35432             Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[Registration] ([UserID], [Password], [Name], [Usertype], [Cont"& _
35433                 "actNo], [EmailID], [JoiningDate]) VALUES (@UserID, @Password, @Name, @Usertype, "& _
35434                 "@ContactNo, @EmailID, @JoiningDate);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT UserID, Password, Name, Usertype, C"& _
35435                 "ontactNo, EmailID, JoiningDate FROM Registration WHERE (UserID = @UserID)"
35436             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
35437             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UserID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UserID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
35438             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Password", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Password", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
35439             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
35440             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Usertype", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Usertype", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
35441             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ContactNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContactNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
35442             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EmailID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
35443             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@JoiningDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "JoiningDate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
35444             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
35445             Me._adapter.UpdateCommand.Connection = Me.Connection
35446             Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[Registration] SET [UserID] = @UserID, [Password] = @Password, [Name"& _
35447                 "] = @Name, [Usertype] = @Usertype, [ContactNo] = @ContactNo, [EmailID] = @EmailI"& _
35448                 "D, [JoiningDate] = @JoiningDate WHERE (([UserID] = @Original_UserID) AND ([Passw"& _
35449                 "ord] = @Original_Password) AND ([Name] = @Original_Name) AND ([Usertype] = @Orig"& _
35450                 "inal_Usertype) AND ([ContactNo] = @Original_ContactNo) AND ((@IsNull_EmailID = 1"& _
35451                 " AND [EmailID] IS NULL) OR ([EmailID] = @Original_EmailID)) AND ((@IsNull_Joinin"& _
35452                 "gDate = 1 AND [JoiningDate] IS NULL) OR ([JoiningDate] = @Original_JoiningDate))"& _
35453                 ");"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT UserID, Password, Name, Usertype, ContactNo, EmailID, JoiningDate FRO"& _
35454                 "M Registration WHERE (UserID = @UserID)"
35455             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
35456             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UserID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UserID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
35457             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Password", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Password", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
35458             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
35459             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Usertype", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Usertype", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
35460             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ContactNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContactNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
35461             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EmailID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
35462             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@JoiningDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "JoiningDate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
35463             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_UserID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UserID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
35464             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Password", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Password", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
35465             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
35466             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Usertype", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Usertype", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
35467             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ContactNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContactNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
35468             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_EmailID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
35469             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EmailID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
35470             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_JoiningDate", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "JoiningDate", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
35471             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_JoiningDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "JoiningDate", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
35472         End Sub
35473         
35474         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
35475          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
35476         Private Sub InitConnection()
35477             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
35478             Me._connection.ConnectionString = Global.ERP_System.My.MySettings.Default.ERPS_DBConnectionString
35479         End Sub
35480         
35481         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
35482          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
35483         Private Sub InitCommandCollection()
35484             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
35485             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
35486             Me._commandCollection(0).Connection = Me.Connection
35487             Me._commandCollection(0).CommandText = "SELECT UserID, Password, Name, Usertype, ContactNo, EmailID, JoiningDate FROM dbo"& _
35488                 ".Registration"
35489             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
35490         End Sub
35491         
35492         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
35493          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
35494          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
35495          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
35496         Public Overloads Overridable Function Fill(ByVal dataTable As ERPS_DBDataSet1.RegistrationDataTable) As Integer
35497             Me.Adapter.SelectCommand = Me.CommandCollection(0)
35498             If (Me.ClearBeforeFill = true) Then
35499                 dataTable.Clear
35500             End If
35501             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
35502             Return returnValue
35503         End Function
35504         
35505         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
35506          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
35507          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
35508          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
35509         Public Overloads Overridable Function GetData() As ERPS_DBDataSet1.RegistrationDataTable
35510             Me.Adapter.SelectCommand = Me.CommandCollection(0)
35511             Dim dataTable As ERPS_DBDataSet1.RegistrationDataTable = New ERPS_DBDataSet1.RegistrationDataTable()
35512             Me.Adapter.Fill(dataTable)
35513             Return dataTable
35514         End Function
35515         
35516         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
35517          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
35518          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
35519         Public Overloads Overridable Function Update(ByVal dataTable As ERPS_DBDataSet1.RegistrationDataTable) As Integer
35520             Return Me.Adapter.Update(dataTable)
35521         End Function
35522         
35523         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
35524          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
35525          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
35526         Public Overloads Overridable Function Update(ByVal dataSet As ERPS_DBDataSet1) As Integer
35527             Return Me.Adapter.Update(dataSet, "Registration")
35528         End Function
35529         
35530         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
35531          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
35532          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
35533         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
35534             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
35535         End Function
35536         
35537         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
35538          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
35539          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
35540         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
35541             Return Me.Adapter.Update(dataRows)
35542         End Function
35543         
35544         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
35545          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
35546          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
35547          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
35548         Public Overloads Overridable Function Delete(ByVal Original_UserID As String, ByVal Original_Password As String, ByVal Original_Name As String, ByVal Original_Usertype As String, ByVal Original_ContactNo As String, ByVal Original_EmailID As String, ByVal Original_JoiningDate As Global.System.Nullable(Of Date)) As Integer
35549             If (Original_UserID Is Nothing) Then
35550                 Throw New Global.System.ArgumentNullException("Original_UserID")
35551             Else
35552                 Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_UserID,String)
35553             End If
35554             If (Original_Password Is Nothing) Then
35555                 Throw New Global.System.ArgumentNullException("Original_Password")
35556             Else
35557                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_Password,String)
35558             End If
35559             If (Original_Name Is Nothing) Then
35560                 Throw New Global.System.ArgumentNullException("Original_Name")
35561             Else
35562                 Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_Name,String)
35563             End If
35564             If (Original_Usertype Is Nothing) Then
35565                 Throw New Global.System.ArgumentNullException("Original_Usertype")
35566             Else
35567                 Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_Usertype,String)
35568             End If
35569             If (Original_ContactNo Is Nothing) Then
35570                 Throw New Global.System.ArgumentNullException("Original_ContactNo")
35571             Else
35572                 Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_ContactNo,String)
35573             End If
35574             If (Original_EmailID Is Nothing) Then
35575                 Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object)
35576                 Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value
35577             Else
35578                 Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object)
35579                 Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_EmailID,String)
35580             End If
35581             If (Original_JoiningDate.HasValue = true) Then
35582                 Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object)
35583                 Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_JoiningDate.Value,Date)
35584             Else
35585                 Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1,Object)
35586                 Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value
35587             End If
35588             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
35589             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
35590                         <> Global.System.Data.ConnectionState.Open) Then
35591                 Me.Adapter.DeleteCommand.Connection.Open
35592             End If
35593             Try
35594                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
35595                 Return returnValue
35596             Finally
35597                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
35598                     Me.Adapter.DeleteCommand.Connection.Close
35599                 End If
35600             End Try
35601         End Function
35602         
35603         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
35604          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
35605          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
35606          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
35607         Public Overloads Overridable Function Insert(ByVal UserID As String, ByVal Password As String, ByVal Name As String, ByVal Usertype As String, ByVal ContactNo As String, ByVal EmailID As String, ByVal JoiningDate As Global.System.Nullable(Of Date)) As Integer
35608             If (UserID Is Nothing) Then
35609                 Throw New Global.System.ArgumentNullException("UserID")
35610             Else
35611                 Me.Adapter.InsertCommand.Parameters(0).Value = CType(UserID,String)
35612             End If
35613             If (Password Is Nothing) Then
35614                 Throw New Global.System.ArgumentNullException("Password")
35615             Else
35616                 Me.Adapter.InsertCommand.Parameters(1).Value = CType(Password,String)
35617             End If
35618             If (Name Is Nothing) Then
35619                 Throw New Global.System.ArgumentNullException("Name")
35620             Else
35621                 Me.Adapter.InsertCommand.Parameters(2).Value = CType(Name,String)
35622             End If
35623             If (Usertype Is Nothing) Then
35624                 Throw New Global.System.ArgumentNullException("Usertype")
35625             Else
35626                 Me.Adapter.InsertCommand.Parameters(3).Value = CType(Usertype,String)
35627             End If
35628             If (ContactNo Is Nothing) Then
35629                 Throw New Global.System.ArgumentNullException("ContactNo")
35630             Else
35631                 Me.Adapter.InsertCommand.Parameters(4).Value = CType(ContactNo,String)
35632             End If
35633             If (EmailID Is Nothing) Then
35634                 Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value
35635             Else
35636                 Me.Adapter.InsertCommand.Parameters(5).Value = CType(EmailID,String)
35637             End If
35638             If (JoiningDate.HasValue = true) Then
35639                 Me.Adapter.InsertCommand.Parameters(6).Value = CType(JoiningDate.Value,Date)
35640             Else
35641                 Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value
35642             End If
35643             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
35644             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
35645                         <> Global.System.Data.ConnectionState.Open) Then
35646                 Me.Adapter.InsertCommand.Connection.Open
35647             End If
35648             Try
35649                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
35650                 Return returnValue
35651             Finally
35652                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
35653                     Me.Adapter.InsertCommand.Connection.Close
35654                 End If
35655             End Try
35656         End Function
35657         
35658         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
35659          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
35660          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
35661          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
35662         Public Overloads Overridable Function Update(ByVal UserID As String, ByVal Password As String, ByVal Name As String, ByVal Usertype As String, ByVal ContactNo As String, ByVal EmailID As String, ByVal JoiningDate As Global.System.Nullable(Of Date), ByVal Original_UserID As String, ByVal Original_Password As String, ByVal Original_Name As String, ByVal Original_Usertype As String, ByVal Original_ContactNo As String, ByVal Original_EmailID As String, ByVal Original_JoiningDate As Global.System.Nullable(Of Date)) As Integer
35663             If (UserID Is Nothing) Then
35664                 Throw New Global.System.ArgumentNullException("UserID")
35665             Else
35666                 Me.Adapter.UpdateCommand.Parameters(0).Value = CType(UserID,String)
35667             End If
35668             If (Password Is Nothing) Then
35669                 Throw New Global.System.ArgumentNullException("Password")
35670             Else
35671                 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Password,String)
35672             End If
35673             If (Name Is Nothing) Then
35674                 Throw New Global.System.ArgumentNullException("Name")
35675             Else
35676                 Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Name,String)
35677             End If
35678             If (Usertype Is Nothing) Then
35679                 Throw New Global.System.ArgumentNullException("Usertype")
35680             Else
35681                 Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Usertype,String)
35682             End If
35683             If (ContactNo Is Nothing) Then
35684                 Throw New Global.System.ArgumentNullException("ContactNo")
35685             Else
35686                 Me.Adapter.UpdateCommand.Parameters(4).Value = CType(ContactNo,String)
35687             End If
35688             If (EmailID Is Nothing) Then
35689                 Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value
35690             Else
35691                 Me.Adapter.UpdateCommand.Parameters(5).Value = CType(EmailID,String)
35692             End If
35693             If (JoiningDate.HasValue = true) Then
35694                 Me.Adapter.UpdateCommand.Parameters(6).Value = CType(JoiningDate.Value,Date)
35695             Else
35696                 Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value
35697             End If
35698             If (Original_UserID Is Nothing) Then
35699                 Throw New Global.System.ArgumentNullException("Original_UserID")
35700             Else
35701                 Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_UserID,String)
35702             End If
35703             If (Original_Password Is Nothing) Then
35704                 Throw New Global.System.ArgumentNullException("Original_Password")
35705             Else
35706                 Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_Password,String)
35707             End If
35708             If (Original_Name Is Nothing) Then
35709                 Throw New Global.System.ArgumentNullException("Original_Name")
35710             Else
35711                 Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_Name,String)
35712             End If
35713             If (Original_Usertype Is Nothing) Then
35714                 Throw New Global.System.ArgumentNullException("Original_Usertype")
35715             Else
35716                 Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_Usertype,String)
35717             End If
35718             If (Original_ContactNo Is Nothing) Then
35719                 Throw New Global.System.ArgumentNullException("Original_ContactNo")
35720             Else
35721                 Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_ContactNo,String)
35722             End If
35723             If (Original_EmailID Is Nothing) Then
35724                 Me.Adapter.UpdateCommand.Parameters(12).Value = CType(1,Object)
35725                 Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value
35726             Else
35727                 Me.Adapter.UpdateCommand.Parameters(12).Value = CType(0,Object)
35728                 Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_EmailID,String)
35729             End If
35730             If (Original_JoiningDate.HasValue = true) Then
35731                 Me.Adapter.UpdateCommand.Parameters(14).Value = CType(0,Object)
35732                 Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_JoiningDate.Value,Date)
35733             Else
35734                 Me.Adapter.UpdateCommand.Parameters(14).Value = CType(1,Object)
35735                 Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value
35736             End If
35737             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
35738             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
35739                         <> Global.System.Data.ConnectionState.Open) Then
35740                 Me.Adapter.UpdateCommand.Connection.Open
35741             End If
35742             Try
35743                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
35744                 Return returnValue
35745             Finally
35746                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
35747                     Me.Adapter.UpdateCommand.Connection.Close
35748                 End If
35749             End Try
35750         End Function
35751         
35752         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
35753          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
35754          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
35755          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
35756         Public Overloads Overridable Function Update(ByVal Password As String, ByVal Name As String, ByVal Usertype As String, ByVal ContactNo As String, ByVal EmailID As String, ByVal JoiningDate As Global.System.Nullable(Of Date), ByVal Original_UserID As String, ByVal Original_Password As String, ByVal Original_Name As String, ByVal Original_Usertype As String, ByVal Original_ContactNo As String, ByVal Original_EmailID As String, ByVal Original_JoiningDate As Global.System.Nullable(Of Date)) As Integer
35757             Return Me.Update(Original_UserID, Password, Name, Usertype, ContactNo, EmailID, JoiningDate, Original_UserID, Original_Password, Original_Name, Original_Usertype, Original_ContactNo, Original_EmailID, Original_JoiningDate)
35758         End Function
35759     End Class
35760     
35761     '''<summary>
35762     '''Represents the connection and commands used to retrieve and save data.
35763     '''</summary>
35764     <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
35765      Global.System.ComponentModel.ToolboxItem(true), _
35766      Global.System.ComponentModel.DataObjectAttribute(true), _
35767      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
35768         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
35769      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
35770     Partial Public Class SchoolInfoTableAdapter
35771         Inherits Global.System.ComponentModel.Component
35772         
35773         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
35774         
35775         Private _connection As Global.System.Data.SqlClient.SqlConnection
35776         
35777         Private _transaction As Global.System.Data.SqlClient.SqlTransaction
35778         
35779         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
35780         
35781         Private _clearBeforeFill As Boolean
35782         
35783         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
35784          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
35785         Public Sub New()
35786             MyBase.New
35787             Me.ClearBeforeFill = true
35788         End Sub
35789         
35790         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
35791          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
35792         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
35793             Get
35794                 If (Me._adapter Is Nothing) Then
35795                     Me.InitAdapter
35796                 End If
35797                 Return Me._adapter
35798             End Get
35799         End Property
35800         
35801         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
35802          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
35803         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
35804             Get
35805                 If (Me._connection Is Nothing) Then
35806                     Me.InitConnection
35807                 End If
35808                 Return Me._connection
35809             End Get
35810             Set
35811                 Me._connection = value
35812                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
35813                     Me.Adapter.InsertCommand.Connection = value
35814                 End If
35815                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
35816                     Me.Adapter.DeleteCommand.Connection = value
35817                 End If
35818                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
35819                     Me.Adapter.UpdateCommand.Connection = value
35820                 End If
35821                 Dim i As Integer = 0
35822                 Do While (i < Me.CommandCollection.Length)
35823                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
35824                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
35825                     End If
35826                     i = (i + 1)
35827                 Loop
35828             End Set
35829         End Property
35830         
35831         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
35832          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
35833         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
35834             Get
35835                 Return Me._transaction
35836             End Get
35837             Set
35838                 Me._transaction = value
35839                 Dim i As Integer = 0
35840                 Do While (i < Me.CommandCollection.Length)
35841                     Me.CommandCollection(i).Transaction = Me._transaction
35842                     i = (i + 1)
35843                 Loop
35844                 If ((Not (Me.Adapter) Is Nothing) _
35845                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
35846                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
35847                 End If
35848                 If ((Not (Me.Adapter) Is Nothing) _
35849                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
35850                     Me.Adapter.InsertCommand.Transaction = Me._transaction
35851                 End If
35852                 If ((Not (Me.Adapter) Is Nothing) _
35853                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
35854                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
35855                 End If
35856             End Set
35857         End Property
35858         
35859         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
35860          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
35861         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
35862             Get
35863                 If (Me._commandCollection Is Nothing) Then
35864                     Me.InitCommandCollection
35865                 End If
35866                 Return Me._commandCollection
35867             End Get
35868         End Property
35869         
35870         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
35871          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
35872         Public Property ClearBeforeFill() As Boolean
35873             Get
35874                 Return Me._clearBeforeFill
35875             End Get
35876             Set
35877                 Me._clearBeforeFill = value
35878             End Set
35879         End Property
35880         
35881         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
35882          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
35883         Private Sub InitAdapter()
35884             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
35885             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
35886             tableMapping.SourceTable = "Table"
35887             tableMapping.DataSetTable = "SchoolInfo"
35888             tableMapping.ColumnMappings.Add("S_Id", "S_Id")
35889             tableMapping.ColumnMappings.Add("SchoolName", "SchoolName")
35890             tableMapping.ColumnMappings.Add("Address", "Address")
35891             tableMapping.ColumnMappings.Add("ContactNo", "ContactNo")
35892             tableMapping.ColumnMappings.Add("AltContactNo", "AltContactNo")
35893             tableMapping.ColumnMappings.Add("FaxNo", "FaxNo")
35894             tableMapping.ColumnMappings.Add("Email", "Email")
35895             tableMapping.ColumnMappings.Add("Website", "Website")
35896             tableMapping.ColumnMappings.Add("Logo", "Logo")
35897             tableMapping.ColumnMappings.Add("RegistrationNo", "RegistrationNo")
35898             tableMapping.ColumnMappings.Add("DiseNo", "DiseNo")
35899             tableMapping.ColumnMappings.Add("IndexNo", "IndexNo")
35900             tableMapping.ColumnMappings.Add("EstablishedYear", "EstablishedYear")
35901             tableMapping.ColumnMappings.Add("Class", "Class")
35902             tableMapping.ColumnMappings.Add("SchoolType", "SchoolType")
35903             Me._adapter.TableMappings.Add(tableMapping)
35904             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
35905             Me._adapter.DeleteCommand.Connection = Me.Connection
35906             Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[SchoolInfo] WHERE (([S_Id] = @Original_S_Id) AND ([SchoolName]"& _
35907                 " = @Original_SchoolName) AND ([Address] = @Original_Address) AND ([ContactNo] = "& _
35908                 "@Original_ContactNo) AND ((@IsNull_AltContactNo = 1 AND [AltContactNo] IS NULL) "& _
35909                 "OR ([AltContactNo] = @Original_AltContactNo)) AND ((@IsNull_FaxNo = 1 AND [FaxNo"& _
35910                 "] IS NULL) OR ([FaxNo] = @Original_FaxNo)) AND ([Email] = @Original_Email) AND ("& _
35911                 "(@IsNull_Website = 1 AND [Website] IS NULL) OR ([Website] = @Original_Website)) "& _
35912                 "AND ((@IsNull_RegistrationNo = 1 AND [RegistrationNo] IS NULL) OR ([Registration"& _
35913                 "No] = @Original_RegistrationNo)) AND ((@IsNull_DiseNo = 1 AND [DiseNo] IS NULL) "& _
35914                 "OR ([DiseNo] = @Original_DiseNo)) AND ((@IsNull_IndexNo = 1 AND [IndexNo] IS NUL"& _
35915                 "L) OR ([IndexNo] = @Original_IndexNo)) AND ([EstablishedYear] = @Original_Establ"& _
35916                 "ishedYear) AND ((@IsNull_Class = 1 AND [Class] IS NULL) OR ([Class] = @Original_"& _
35917                 "Class)) AND ([SchoolType] = @Original_SchoolType))"
35918             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
35919             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_S_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "S_Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
35920             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SchoolName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SchoolName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
35921             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Address", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Address", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
35922             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ContactNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContactNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
35923             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_AltContactNo", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AltContactNo", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
35924             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_AltContactNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AltContactNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
35925             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_FaxNo", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FaxNo", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
35926             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FaxNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FaxNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
35927             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Email", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Email", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
35928             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Website", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Website", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
35929             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Website", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Website", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
35930             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_RegistrationNo", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RegistrationNo", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
35931             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_RegistrationNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RegistrationNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
35932             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_DiseNo", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DiseNo", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
35933             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DiseNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DiseNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
35934             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_IndexNo", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "IndexNo", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
35935             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_IndexNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "IndexNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
35936             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EstablishedYear", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EstablishedYear", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
35937             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Class", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Class", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
35938             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Class", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Class", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
35939             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SchoolType", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SchoolType", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
35940             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
35941             Me._adapter.InsertCommand.Connection = Me.Connection
35942             Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[SchoolInfo] ([S_Id], [SchoolName], [Address], [ContactNo], [Al"& _
35943                 "tContactNo], [FaxNo], [Email], [Website], [Logo], [RegistrationNo], [DiseNo], [I"& _
35944                 "ndexNo], [EstablishedYear], [Class], [SchoolType]) VALUES (@S_Id, @SchoolName, @"& _
35945                 "Address, @ContactNo, @AltContactNo, @FaxNo, @Email, @Website, @Logo, @Registrati"& _
35946                 "onNo, @DiseNo, @IndexNo, @EstablishedYear, @Class, @SchoolType);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT S_Id, S"& _
35947                 "choolName, Address, ContactNo, AltContactNo, FaxNo, Email, Website, Logo, Regist"& _
35948                 "rationNo, DiseNo, IndexNo, EstablishedYear, Class, SchoolType FROM SchoolInfo WH"& _
35949                 "ERE (S_Id = @S_Id)"
35950             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
35951             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@S_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "S_Id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
35952             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SchoolName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SchoolName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
35953             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Address", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Address", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
35954             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ContactNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContactNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
35955             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AltContactNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AltContactNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
35956             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FaxNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FaxNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
35957             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Email", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Email", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
35958             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Website", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Website", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
35959             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Logo", Global.System.Data.SqlDbType.Image, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Logo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
35960             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RegistrationNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RegistrationNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
35961             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DiseNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DiseNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
35962             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IndexNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "IndexNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
35963             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EstablishedYear", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EstablishedYear", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
35964             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Class", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Class", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
35965             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SchoolType", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SchoolType", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
35966             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
35967             Me._adapter.UpdateCommand.Connection = Me.Connection
35968             Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[SchoolInfo] SET [S_Id] = @S_Id, [SchoolName] = @SchoolName, [Addres"& _
35969                 "s] = @Address, [ContactNo] = @ContactNo, [AltContactNo] = @AltContactNo, [FaxNo]"& _
35970                 " = @FaxNo, [Email] = @Email, [Website] = @Website, [Logo] = @Logo, [Registration"& _
35971                 "No] = @RegistrationNo, [DiseNo] = @DiseNo, [IndexNo] = @IndexNo, [EstablishedYea"& _
35972                 "r] = @EstablishedYear, [Class] = @Class, [SchoolType] = @SchoolType WHERE (([S_I"& _
35973                 "d] = @Original_S_Id) AND ([SchoolName] = @Original_SchoolName) AND ([Address] = "& _
35974                 "@Original_Address) AND ([ContactNo] = @Original_ContactNo) AND ((@IsNull_AltCont"& _
35975                 "actNo = 1 AND [AltContactNo] IS NULL) OR ([AltContactNo] = @Original_AltContactN"& _
35976                 "o)) AND ((@IsNull_FaxNo = 1 AND [FaxNo] IS NULL) OR ([FaxNo] = @Original_FaxNo))"& _
35977                 " AND ([Email] = @Original_Email) AND ((@IsNull_Website = 1 AND [Website] IS NULL"& _
35978                 ") OR ([Website] = @Original_Website)) AND ((@IsNull_RegistrationNo = 1 AND [Regi"& _
35979                 "strationNo] IS NULL) OR ([RegistrationNo] = @Original_RegistrationNo)) AND ((@Is"& _
35980                 "Null_DiseNo = 1 AND [DiseNo] IS NULL) OR ([DiseNo] = @Original_DiseNo)) AND ((@I"& _
35981                 "sNull_IndexNo = 1 AND [IndexNo] IS NULL) OR ([IndexNo] = @Original_IndexNo)) AND"& _
35982                 " ([EstablishedYear] = @Original_EstablishedYear) AND ((@IsNull_Class = 1 AND [Cl"& _
35983                 "ass] IS NULL) OR ([Class] = @Original_Class)) AND ([SchoolType] = @Original_Scho"& _
35984                 "olType));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT S_Id, SchoolName, Address, ContactNo, AltContactNo, FaxNo, Ema"& _
35985                 "il, Website, Logo, RegistrationNo, DiseNo, IndexNo, EstablishedYear, Class, Scho"& _
35986                 "olType FROM SchoolInfo WHERE (S_Id = @S_Id)"
35987             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
35988             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@S_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "S_Id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
35989             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SchoolName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SchoolName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
35990             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Address", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Address", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
35991             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ContactNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContactNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
35992             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AltContactNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AltContactNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
35993             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FaxNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FaxNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
35994             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Email", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Email", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
35995             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Website", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Website", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
35996             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Logo", Global.System.Data.SqlDbType.Image, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Logo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
35997             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RegistrationNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RegistrationNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
35998             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DiseNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DiseNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
35999             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IndexNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "IndexNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
36000             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EstablishedYear", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EstablishedYear", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
36001             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Class", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Class", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
36002             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SchoolType", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SchoolType", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
36003             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_S_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "S_Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
36004             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SchoolName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SchoolName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
36005             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Address", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Address", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
36006             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ContactNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContactNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
36007             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_AltContactNo", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AltContactNo", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
36008             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_AltContactNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AltContactNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
36009             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_FaxNo", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FaxNo", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
36010             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FaxNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FaxNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
36011             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Email", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Email", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
36012             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Website", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Website", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
36013             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Website", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Website", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
36014             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_RegistrationNo", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RegistrationNo", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
36015             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_RegistrationNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RegistrationNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
36016             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_DiseNo", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DiseNo", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
36017             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DiseNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DiseNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
36018             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_IndexNo", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "IndexNo", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
36019             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_IndexNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "IndexNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
36020             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EstablishedYear", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EstablishedYear", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
36021             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Class", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Class", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
36022             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Class", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Class", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
36023             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SchoolType", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SchoolType", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
36024         End Sub
36025         
36026         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
36027          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
36028         Private Sub InitConnection()
36029             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
36030             Me._connection.ConnectionString = Global.ERP_System.My.MySettings.Default.ERPS_DBConnectionString
36031         End Sub
36032         
36033         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
36034          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
36035         Private Sub InitCommandCollection()
36036             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
36037             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
36038             Me._commandCollection(0).Connection = Me.Connection
36039             Me._commandCollection(0).CommandText = "SELECT S_Id, SchoolName, Address, ContactNo, AltContactNo, FaxNo, Email, Website,"& _
36040                 " Logo, RegistrationNo, DiseNo, IndexNo, EstablishedYear, Class, SchoolType FROM "& _
36041                 "dbo.SchoolInfo"
36042             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
36043         End Sub
36044         
36045         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
36046          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
36047          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
36048          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
36049         Public Overloads Overridable Function Fill(ByVal dataTable As ERPS_DBDataSet1.SchoolInfoDataTable) As Integer
36050             Me.Adapter.SelectCommand = Me.CommandCollection(0)
36051             If (Me.ClearBeforeFill = true) Then
36052                 dataTable.Clear
36053             End If
36054             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
36055             Return returnValue
36056         End Function
36057         
36058         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
36059          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
36060          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
36061          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
36062         Public Overloads Overridable Function GetData() As ERPS_DBDataSet1.SchoolInfoDataTable
36063             Me.Adapter.SelectCommand = Me.CommandCollection(0)
36064             Dim dataTable As ERPS_DBDataSet1.SchoolInfoDataTable = New ERPS_DBDataSet1.SchoolInfoDataTable()
36065             Me.Adapter.Fill(dataTable)
36066             Return dataTable
36067         End Function
36068         
36069         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
36070          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
36071          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
36072         Public Overloads Overridable Function Update(ByVal dataTable As ERPS_DBDataSet1.SchoolInfoDataTable) As Integer
36073             Return Me.Adapter.Update(dataTable)
36074         End Function
36075         
36076         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
36077          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
36078          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
36079         Public Overloads Overridable Function Update(ByVal dataSet As ERPS_DBDataSet1) As Integer
36080             Return Me.Adapter.Update(dataSet, "SchoolInfo")
36081         End Function
36082         
36083         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
36084          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
36085          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
36086         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
36087             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
36088         End Function
36089         
36090         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
36091          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
36092          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
36093         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
36094             Return Me.Adapter.Update(dataRows)
36095         End Function
36096         
36097         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
36098          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
36099          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
36100          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
36101         Public Overloads Overridable Function Delete(ByVal Original_S_Id As Integer, ByVal Original_SchoolName As String, ByVal Original_Address As String, ByVal Original_ContactNo As String, ByVal Original_AltContactNo As String, ByVal Original_FaxNo As String, ByVal Original_Email As String, ByVal Original_Website As String, ByVal Original_RegistrationNo As String, ByVal Original_DiseNo As String, ByVal Original_IndexNo As String, ByVal Original_EstablishedYear As Integer, ByVal Original_Class As String, ByVal Original_SchoolType As String) As Integer
36102             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_S_Id,Integer)
36103             If (Original_SchoolName Is Nothing) Then
36104                 Throw New Global.System.ArgumentNullException("Original_SchoolName")
36105             Else
36106                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_SchoolName,String)
36107             End If
36108             If (Original_Address Is Nothing) Then
36109                 Throw New Global.System.ArgumentNullException("Original_Address")
36110             Else
36111                 Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_Address,String)
36112             End If
36113             If (Original_ContactNo Is Nothing) Then
36114                 Throw New Global.System.ArgumentNullException("Original_ContactNo")
36115             Else
36116                 Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_ContactNo,String)
36117             End If
36118             If (Original_AltContactNo Is Nothing) Then
36119                 Me.Adapter.DeleteCommand.Parameters(4).Value = CType(1,Object)
36120                 Me.Adapter.DeleteCommand.Parameters(5).Value = Global.System.DBNull.Value
36121             Else
36122                 Me.Adapter.DeleteCommand.Parameters(4).Value = CType(0,Object)
36123                 Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_AltContactNo,String)
36124             End If
36125             If (Original_FaxNo Is Nothing) Then
36126                 Me.Adapter.DeleteCommand.Parameters(6).Value = CType(1,Object)
36127                 Me.Adapter.DeleteCommand.Parameters(7).Value = Global.System.DBNull.Value
36128             Else
36129                 Me.Adapter.DeleteCommand.Parameters(6).Value = CType(0,Object)
36130                 Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_FaxNo,String)
36131             End If
36132             If (Original_Email Is Nothing) Then
36133                 Throw New Global.System.ArgumentNullException("Original_Email")
36134             Else
36135                 Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_Email,String)
36136             End If
36137             If (Original_Website Is Nothing) Then
36138                 Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1,Object)
36139                 Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value
36140             Else
36141                 Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object)
36142                 Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_Website,String)
36143             End If
36144             If (Original_RegistrationNo Is Nothing) Then
36145                 Me.Adapter.DeleteCommand.Parameters(11).Value = CType(1,Object)
36146                 Me.Adapter.DeleteCommand.Parameters(12).Value = Global.System.DBNull.Value
36147             Else
36148                 Me.Adapter.DeleteCommand.Parameters(11).Value = CType(0,Object)
36149                 Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_RegistrationNo,String)
36150             End If
36151             If (Original_DiseNo Is Nothing) Then
36152                 Me.Adapter.DeleteCommand.Parameters(13).Value = CType(1,Object)
36153                 Me.Adapter.DeleteCommand.Parameters(14).Value = Global.System.DBNull.Value
36154             Else
36155                 Me.Adapter.DeleteCommand.Parameters(13).Value = CType(0,Object)
36156                 Me.Adapter.DeleteCommand.Parameters(14).Value = CType(Original_DiseNo,String)
36157             End If
36158             If (Original_IndexNo Is Nothing) Then
36159                 Me.Adapter.DeleteCommand.Parameters(15).Value = CType(1,Object)
36160                 Me.Adapter.DeleteCommand.Parameters(16).Value = Global.System.DBNull.Value
36161             Else
36162                 Me.Adapter.DeleteCommand.Parameters(15).Value = CType(0,Object)
36163                 Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_IndexNo,String)
36164             End If
36165             Me.Adapter.DeleteCommand.Parameters(17).Value = CType(Original_EstablishedYear,Integer)
36166             If (Original_Class Is Nothing) Then
36167                 Me.Adapter.DeleteCommand.Parameters(18).Value = CType(1,Object)
36168                 Me.Adapter.DeleteCommand.Parameters(19).Value = Global.System.DBNull.Value
36169             Else
36170                 Me.Adapter.DeleteCommand.Parameters(18).Value = CType(0,Object)
36171                 Me.Adapter.DeleteCommand.Parameters(19).Value = CType(Original_Class,String)
36172             End If
36173             If (Original_SchoolType Is Nothing) Then
36174                 Throw New Global.System.ArgumentNullException("Original_SchoolType")
36175             Else
36176                 Me.Adapter.DeleteCommand.Parameters(20).Value = CType(Original_SchoolType,String)
36177             End If
36178             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
36179             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
36180                         <> Global.System.Data.ConnectionState.Open) Then
36181                 Me.Adapter.DeleteCommand.Connection.Open
36182             End If
36183             Try
36184                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
36185                 Return returnValue
36186             Finally
36187                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
36188                     Me.Adapter.DeleteCommand.Connection.Close
36189                 End If
36190             End Try
36191         End Function
36192         
36193         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
36194          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
36195          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
36196          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
36197         Public Overloads Overridable Function Insert(ByVal S_Id As Integer, ByVal SchoolName As String, ByVal Address As String, ByVal ContactNo As String, ByVal AltContactNo As String, ByVal FaxNo As String, ByVal Email As String, ByVal Website As String, ByVal Logo() As Byte, ByVal RegistrationNo As String, ByVal DiseNo As String, ByVal IndexNo As String, ByVal EstablishedYear As Integer, ByVal _Class As String, ByVal SchoolType As String) As Integer
36198             Me.Adapter.InsertCommand.Parameters(0).Value = CType(S_Id,Integer)
36199             If (SchoolName Is Nothing) Then
36200                 Throw New Global.System.ArgumentNullException("SchoolName")
36201             Else
36202                 Me.Adapter.InsertCommand.Parameters(1).Value = CType(SchoolName,String)
36203             End If
36204             If (Address Is Nothing) Then
36205                 Throw New Global.System.ArgumentNullException("Address")
36206             Else
36207                 Me.Adapter.InsertCommand.Parameters(2).Value = CType(Address,String)
36208             End If
36209             If (ContactNo Is Nothing) Then
36210                 Throw New Global.System.ArgumentNullException("ContactNo")
36211             Else
36212                 Me.Adapter.InsertCommand.Parameters(3).Value = CType(ContactNo,String)
36213             End If
36214             If (AltContactNo Is Nothing) Then
36215                 Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value
36216             Else
36217                 Me.Adapter.InsertCommand.Parameters(4).Value = CType(AltContactNo,String)
36218             End If
36219             If (FaxNo Is Nothing) Then
36220                 Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value
36221             Else
36222                 Me.Adapter.InsertCommand.Parameters(5).Value = CType(FaxNo,String)
36223             End If
36224             If (Email Is Nothing) Then
36225                 Throw New Global.System.ArgumentNullException("Email")
36226             Else
36227                 Me.Adapter.InsertCommand.Parameters(6).Value = CType(Email,String)
36228             End If
36229             If (Website Is Nothing) Then
36230                 Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value
36231             Else
36232                 Me.Adapter.InsertCommand.Parameters(7).Value = CType(Website,String)
36233             End If
36234             If (Logo Is Nothing) Then
36235                 Throw New Global.System.ArgumentNullException("Logo")
36236             Else
36237                 Me.Adapter.InsertCommand.Parameters(8).Value = CType(Logo,Byte())
36238             End If
36239             If (RegistrationNo Is Nothing) Then
36240                 Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value
36241             Else
36242                 Me.Adapter.InsertCommand.Parameters(9).Value = CType(RegistrationNo,String)
36243             End If
36244             If (DiseNo Is Nothing) Then
36245                 Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value
36246             Else
36247                 Me.Adapter.InsertCommand.Parameters(10).Value = CType(DiseNo,String)
36248             End If
36249             If (IndexNo Is Nothing) Then
36250                 Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value
36251             Else
36252                 Me.Adapter.InsertCommand.Parameters(11).Value = CType(IndexNo,String)
36253             End If
36254             Me.Adapter.InsertCommand.Parameters(12).Value = CType(EstablishedYear,Integer)
36255             If (_Class Is Nothing) Then
36256                 Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value
36257             Else
36258                 Me.Adapter.InsertCommand.Parameters(13).Value = CType(_Class,String)
36259             End If
36260             If (SchoolType Is Nothing) Then
36261                 Throw New Global.System.ArgumentNullException("SchoolType")
36262             Else
36263                 Me.Adapter.InsertCommand.Parameters(14).Value = CType(SchoolType,String)
36264             End If
36265             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
36266             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
36267                         <> Global.System.Data.ConnectionState.Open) Then
36268                 Me.Adapter.InsertCommand.Connection.Open
36269             End If
36270             Try
36271                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
36272                 Return returnValue
36273             Finally
36274                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
36275                     Me.Adapter.InsertCommand.Connection.Close
36276                 End If
36277             End Try
36278         End Function
36279         
36280         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
36281          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
36282          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
36283          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
36284         Public Overloads Overridable Function Update( _
36285                     ByVal S_Id As Integer, _
36286                     ByVal SchoolName As String, _
36287                     ByVal Address As String, _
36288                     ByVal ContactNo As String, _
36289                     ByVal AltContactNo As String, _
36290                     ByVal FaxNo As String, _
36291                     ByVal Email As String, _
36292                     ByVal Website As String, _
36293                     ByVal Logo() As Byte, _
36294                     ByVal RegistrationNo As String, _
36295                     ByVal DiseNo As String, _
36296                     ByVal IndexNo As String, _
36297                     ByVal EstablishedYear As Integer, _
36298                     ByVal _Class As String, _
36299                     ByVal SchoolType As String, _
36300                     ByVal Original_S_Id As Integer, _
36301                     ByVal Original_SchoolName As String, _
36302                     ByVal Original_Address As String, _
36303                     ByVal Original_ContactNo As String, _
36304                     ByVal Original_AltContactNo As String, _
36305                     ByVal Original_FaxNo As String, _
36306                     ByVal Original_Email As String, _
36307                     ByVal Original_Website As String, _
36308                     ByVal Original_RegistrationNo As String, _
36309                     ByVal Original_DiseNo As String, _
36310                     ByVal Original_IndexNo As String, _
36311                     ByVal Original_EstablishedYear As Integer, _
36312                     ByVal Original_Class As String, _
36313                     ByVal Original_SchoolType As String) As Integer
36314             Me.Adapter.UpdateCommand.Parameters(0).Value = CType(S_Id,Integer)
36315             If (SchoolName Is Nothing) Then
36316                 Throw New Global.System.ArgumentNullException("SchoolName")
36317             Else
36318                 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(SchoolName,String)
36319             End If
36320             If (Address Is Nothing) Then
36321                 Throw New Global.System.ArgumentNullException("Address")
36322             Else
36323                 Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Address,String)
36324             End If
36325             If (ContactNo Is Nothing) Then
36326                 Throw New Global.System.ArgumentNullException("ContactNo")
36327             Else
36328                 Me.Adapter.UpdateCommand.Parameters(3).Value = CType(ContactNo,String)
36329             End If
36330             If (AltContactNo Is Nothing) Then
36331                 Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value
36332             Else
36333                 Me.Adapter.UpdateCommand.Parameters(4).Value = CType(AltContactNo,String)
36334             End If
36335             If (FaxNo Is Nothing) Then
36336                 Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value
36337             Else
36338                 Me.Adapter.UpdateCommand.Parameters(5).Value = CType(FaxNo,String)
36339             End If
36340             If (Email Is Nothing) Then
36341                 Throw New Global.System.ArgumentNullException("Email")
36342             Else
36343                 Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Email,String)
36344             End If
36345             If (Website Is Nothing) Then
36346                 Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value
36347             Else
36348                 Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Website,String)
36349             End If
36350             If (Logo Is Nothing) Then
36351                 Throw New Global.System.ArgumentNullException("Logo")
36352             Else
36353                 Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Logo,Byte())
36354             End If
36355             If (RegistrationNo Is Nothing) Then
36356                 Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value
36357             Else
36358                 Me.Adapter.UpdateCommand.Parameters(9).Value = CType(RegistrationNo,String)
36359             End If
36360             If (DiseNo Is Nothing) Then
36361                 Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value
36362             Else
36363                 Me.Adapter.UpdateCommand.Parameters(10).Value = CType(DiseNo,String)
36364             End If
36365             If (IndexNo Is Nothing) Then
36366                 Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value
36367             Else
36368                 Me.Adapter.UpdateCommand.Parameters(11).Value = CType(IndexNo,String)
36369             End If
36370             Me.Adapter.UpdateCommand.Parameters(12).Value = CType(EstablishedYear,Integer)
36371             If (_Class Is Nothing) Then
36372                 Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value
36373             Else
36374                 Me.Adapter.UpdateCommand.Parameters(13).Value = CType(_Class,String)
36375             End If
36376             If (SchoolType Is Nothing) Then
36377                 Throw New Global.System.ArgumentNullException("SchoolType")
36378             Else
36379                 Me.Adapter.UpdateCommand.Parameters(14).Value = CType(SchoolType,String)
36380             End If
36381             Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_S_Id,Integer)
36382             If (Original_SchoolName Is Nothing) Then
36383                 Throw New Global.System.ArgumentNullException("Original_SchoolName")
36384             Else
36385                 Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_SchoolName,String)
36386             End If
36387             If (Original_Address Is Nothing) Then
36388                 Throw New Global.System.ArgumentNullException("Original_Address")
36389             Else
36390                 Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_Address,String)
36391             End If
36392             If (Original_ContactNo Is Nothing) Then
36393                 Throw New Global.System.ArgumentNullException("Original_ContactNo")
36394             Else
36395                 Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_ContactNo,String)
36396             End If
36397             If (Original_AltContactNo Is Nothing) Then
36398                 Me.Adapter.UpdateCommand.Parameters(19).Value = CType(1,Object)
36399                 Me.Adapter.UpdateCommand.Parameters(20).Value = Global.System.DBNull.Value
36400             Else
36401                 Me.Adapter.UpdateCommand.Parameters(19).Value = CType(0,Object)
36402                 Me.Adapter.UpdateCommand.Parameters(20).Value = CType(Original_AltContactNo,String)
36403             End If
36404             If (Original_FaxNo Is Nothing) Then
36405                 Me.Adapter.UpdateCommand.Parameters(21).Value = CType(1,Object)
36406                 Me.Adapter.UpdateCommand.Parameters(22).Value = Global.System.DBNull.Value
36407             Else
36408                 Me.Adapter.UpdateCommand.Parameters(21).Value = CType(0,Object)
36409                 Me.Adapter.UpdateCommand.Parameters(22).Value = CType(Original_FaxNo,String)
36410             End If
36411             If (Original_Email Is Nothing) Then
36412                 Throw New Global.System.ArgumentNullException("Original_Email")
36413             Else
36414                 Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Original_Email,String)
36415             End If
36416             If (Original_Website Is Nothing) Then
36417                 Me.Adapter.UpdateCommand.Parameters(24).Value = CType(1,Object)
36418                 Me.Adapter.UpdateCommand.Parameters(25).Value = Global.System.DBNull.Value
36419             Else
36420                 Me.Adapter.UpdateCommand.Parameters(24).Value = CType(0,Object)
36421                 Me.Adapter.UpdateCommand.Parameters(25).Value = CType(Original_Website,String)
36422             End If
36423             If (Original_RegistrationNo Is Nothing) Then
36424                 Me.Adapter.UpdateCommand.Parameters(26).Value = CType(1,Object)
36425                 Me.Adapter.UpdateCommand.Parameters(27).Value = Global.System.DBNull.Value
36426             Else
36427                 Me.Adapter.UpdateCommand.Parameters(26).Value = CType(0,Object)
36428                 Me.Adapter.UpdateCommand.Parameters(27).Value = CType(Original_RegistrationNo,String)
36429             End If
36430             If (Original_DiseNo Is Nothing) Then
36431                 Me.Adapter.UpdateCommand.Parameters(28).Value = CType(1,Object)
36432                 Me.Adapter.UpdateCommand.Parameters(29).Value = Global.System.DBNull.Value
36433             Else
36434                 Me.Adapter.UpdateCommand.Parameters(28).Value = CType(0,Object)
36435                 Me.Adapter.UpdateCommand.Parameters(29).Value = CType(Original_DiseNo,String)
36436             End If
36437             If (Original_IndexNo Is Nothing) Then
36438                 Me.Adapter.UpdateCommand.Parameters(30).Value = CType(1,Object)
36439                 Me.Adapter.UpdateCommand.Parameters(31).Value = Global.System.DBNull.Value
36440             Else
36441                 Me.Adapter.UpdateCommand.Parameters(30).Value = CType(0,Object)
36442                 Me.Adapter.UpdateCommand.Parameters(31).Value = CType(Original_IndexNo,String)
36443             End If
36444             Me.Adapter.UpdateCommand.Parameters(32).Value = CType(Original_EstablishedYear,Integer)
36445             If (Original_Class Is Nothing) Then
36446                 Me.Adapter.UpdateCommand.Parameters(33).Value = CType(1,Object)
36447                 Me.Adapter.UpdateCommand.Parameters(34).Value = Global.System.DBNull.Value
36448             Else
36449                 Me.Adapter.UpdateCommand.Parameters(33).Value = CType(0,Object)
36450                 Me.Adapter.UpdateCommand.Parameters(34).Value = CType(Original_Class,String)
36451             End If
36452             If (Original_SchoolType Is Nothing) Then
36453                 Throw New Global.System.ArgumentNullException("Original_SchoolType")
36454             Else
36455                 Me.Adapter.UpdateCommand.Parameters(35).Value = CType(Original_SchoolType,String)
36456             End If
36457             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
36458             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
36459                         <> Global.System.Data.ConnectionState.Open) Then
36460                 Me.Adapter.UpdateCommand.Connection.Open
36461             End If
36462             Try
36463                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
36464                 Return returnValue
36465             Finally
36466                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
36467                     Me.Adapter.UpdateCommand.Connection.Close
36468                 End If
36469             End Try
36470         End Function
36471         
36472         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
36473          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
36474          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
36475          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
36476         Public Overloads Overridable Function Update( _
36477                     ByVal SchoolName As String, _
36478                     ByVal Address As String, _
36479                     ByVal ContactNo As String, _
36480                     ByVal AltContactNo As String, _
36481                     ByVal FaxNo As String, _
36482                     ByVal Email As String, _
36483                     ByVal Website As String, _
36484                     ByVal Logo() As Byte, _
36485                     ByVal RegistrationNo As String, _
36486                     ByVal DiseNo As String, _
36487                     ByVal IndexNo As String, _
36488                     ByVal EstablishedYear As Integer, _
36489                     ByVal _Class As String, _
36490                     ByVal SchoolType As String, _
36491                     ByVal Original_S_Id As Integer, _
36492                     ByVal Original_SchoolName As String, _
36493                     ByVal Original_Address As String, _
36494                     ByVal Original_ContactNo As String, _
36495                     ByVal Original_AltContactNo As String, _
36496                     ByVal Original_FaxNo As String, _
36497                     ByVal Original_Email As String, _
36498                     ByVal Original_Website As String, _
36499                     ByVal Original_RegistrationNo As String, _
36500                     ByVal Original_DiseNo As String, _
36501                     ByVal Original_IndexNo As String, _
36502                     ByVal Original_EstablishedYear As Integer, _
36503                     ByVal Original_Class As String, _
36504                     ByVal Original_SchoolType As String) As Integer
36505             Return Me.Update(Original_S_Id, SchoolName, Address, ContactNo, AltContactNo, FaxNo, Email, Website, Logo, RegistrationNo, DiseNo, IndexNo, EstablishedYear, _Class, SchoolType, Original_S_Id, Original_SchoolName, Original_Address, Original_ContactNo, Original_AltContactNo, Original_FaxNo, Original_Email, Original_Website, Original_RegistrationNo, Original_DiseNo, Original_IndexNo, Original_EstablishedYear, Original_Class, Original_SchoolType)
36506         End Function
36507     End Class
36508     
36509     '''<summary>
36510     '''Represents the connection and commands used to retrieve and save data.
36511     '''</summary>
36512     <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
36513      Global.System.ComponentModel.ToolboxItem(true), _
36514      Global.System.ComponentModel.DataObjectAttribute(true), _
36515      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
36516         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
36517      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
36518     Partial Public Class SchoolTypeTableAdapter
36519         Inherits Global.System.ComponentModel.Component
36520         
36521         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
36522         
36523         Private _connection As Global.System.Data.SqlClient.SqlConnection
36524         
36525         Private _transaction As Global.System.Data.SqlClient.SqlTransaction
36526         
36527         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
36528         
36529         Private _clearBeforeFill As Boolean
36530         
36531         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
36532          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
36533         Public Sub New()
36534             MyBase.New
36535             Me.ClearBeforeFill = true
36536         End Sub
36537         
36538         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
36539          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
36540         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
36541             Get
36542                 If (Me._adapter Is Nothing) Then
36543                     Me.InitAdapter
36544                 End If
36545                 Return Me._adapter
36546             End Get
36547         End Property
36548         
36549         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
36550          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
36551         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
36552             Get
36553                 If (Me._connection Is Nothing) Then
36554                     Me.InitConnection
36555                 End If
36556                 Return Me._connection
36557             End Get
36558             Set
36559                 Me._connection = value
36560                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
36561                     Me.Adapter.InsertCommand.Connection = value
36562                 End If
36563                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
36564                     Me.Adapter.DeleteCommand.Connection = value
36565                 End If
36566                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
36567                     Me.Adapter.UpdateCommand.Connection = value
36568                 End If
36569                 Dim i As Integer = 0
36570                 Do While (i < Me.CommandCollection.Length)
36571                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
36572                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
36573                     End If
36574                     i = (i + 1)
36575                 Loop
36576             End Set
36577         End Property
36578         
36579         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
36580          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
36581         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
36582             Get
36583                 Return Me._transaction
36584             End Get
36585             Set
36586                 Me._transaction = value
36587                 Dim i As Integer = 0
36588                 Do While (i < Me.CommandCollection.Length)
36589                     Me.CommandCollection(i).Transaction = Me._transaction
36590                     i = (i + 1)
36591                 Loop
36592                 If ((Not (Me.Adapter) Is Nothing) _
36593                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
36594                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
36595                 End If
36596                 If ((Not (Me.Adapter) Is Nothing) _
36597                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
36598                     Me.Adapter.InsertCommand.Transaction = Me._transaction
36599                 End If
36600                 If ((Not (Me.Adapter) Is Nothing) _
36601                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
36602                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
36603                 End If
36604             End Set
36605         End Property
36606         
36607         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
36608          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
36609         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
36610             Get
36611                 If (Me._commandCollection Is Nothing) Then
36612                     Me.InitCommandCollection
36613                 End If
36614                 Return Me._commandCollection
36615             End Get
36616         End Property
36617         
36618         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
36619          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
36620         Public Property ClearBeforeFill() As Boolean
36621             Get
36622                 Return Me._clearBeforeFill
36623             End Get
36624             Set
36625                 Me._clearBeforeFill = value
36626             End Set
36627         End Property
36628         
36629         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
36630          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
36631         Private Sub InitAdapter()
36632             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
36633             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
36634             tableMapping.SourceTable = "Table"
36635             tableMapping.DataSetTable = "SchoolType"
36636             tableMapping.ColumnMappings.Add("Type", "Type")
36637             Me._adapter.TableMappings.Add(tableMapping)
36638             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
36639             Me._adapter.DeleteCommand.Connection = Me.Connection
36640             Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[SchoolType] WHERE (([Type] = @Original_Type))"
36641             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
36642             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Type", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
36643             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
36644             Me._adapter.InsertCommand.Connection = Me.Connection
36645             Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[SchoolType] ([Type]) VALUES (@Type);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Type FROM SchoolT"& _
36646                 "ype WHERE (Type = @Type)"
36647             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
36648             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Type", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
36649             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
36650             Me._adapter.UpdateCommand.Connection = Me.Connection
36651             Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[SchoolType] SET [Type] = @Type WHERE (([Type] = @Original_Type));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)& _
36652                 "SELECT Type FROM SchoolType WHERE (Type = @Type)"
36653             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
36654             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Type", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
36655             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Type", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
36656         End Sub
36657         
36658         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
36659          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
36660         Private Sub InitConnection()
36661             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
36662             Me._connection.ConnectionString = Global.ERP_System.My.MySettings.Default.ERPS_DBConnectionString
36663         End Sub
36664         
36665         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
36666          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
36667         Private Sub InitCommandCollection()
36668             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
36669             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
36670             Me._commandCollection(0).Connection = Me.Connection
36671             Me._commandCollection(0).CommandText = "SELECT Type FROM dbo.SchoolType"
36672             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
36673         End Sub
36674         
36675         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
36676          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
36677          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
36678          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
36679         Public Overloads Overridable Function Fill(ByVal dataTable As ERPS_DBDataSet1.SchoolTypeDataTable) As Integer
36680             Me.Adapter.SelectCommand = Me.CommandCollection(0)
36681             If (Me.ClearBeforeFill = true) Then
36682                 dataTable.Clear
36683             End If
36684             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
36685             Return returnValue
36686         End Function
36687         
36688         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
36689          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
36690          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
36691          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
36692         Public Overloads Overridable Function GetData() As ERPS_DBDataSet1.SchoolTypeDataTable
36693             Me.Adapter.SelectCommand = Me.CommandCollection(0)
36694             Dim dataTable As ERPS_DBDataSet1.SchoolTypeDataTable = New ERPS_DBDataSet1.SchoolTypeDataTable()
36695             Me.Adapter.Fill(dataTable)
36696             Return dataTable
36697         End Function
36698         
36699         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
36700          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
36701          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
36702         Public Overloads Overridable Function Update(ByVal dataTable As ERPS_DBDataSet1.SchoolTypeDataTable) As Integer
36703             Return Me.Adapter.Update(dataTable)
36704         End Function
36705         
36706         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
36707          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
36708          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
36709         Public Overloads Overridable Function Update(ByVal dataSet As ERPS_DBDataSet1) As Integer
36710             Return Me.Adapter.Update(dataSet, "SchoolType")
36711         End Function
36712         
36713         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
36714          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
36715          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
36716         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
36717             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
36718         End Function
36719         
36720         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
36721          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
36722          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
36723         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
36724             Return Me.Adapter.Update(dataRows)
36725         End Function
36726         
36727         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
36728          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
36729          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
36730          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
36731         Public Overloads Overridable Function Delete(ByVal Original_Type As String) As Integer
36732             If (Original_Type Is Nothing) Then
36733                 Throw New Global.System.ArgumentNullException("Original_Type")
36734             Else
36735                 Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_Type,String)
36736             End If
36737             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
36738             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
36739                         <> Global.System.Data.ConnectionState.Open) Then
36740                 Me.Adapter.DeleteCommand.Connection.Open
36741             End If
36742             Try
36743                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
36744                 Return returnValue
36745             Finally
36746                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
36747                     Me.Adapter.DeleteCommand.Connection.Close
36748                 End If
36749             End Try
36750         End Function
36751         
36752         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
36753          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
36754          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
36755          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
36756         Public Overloads Overridable Function Insert(ByVal Type As String) As Integer
36757             If (Type Is Nothing) Then
36758                 Throw New Global.System.ArgumentNullException("Type")
36759             Else
36760                 Me.Adapter.InsertCommand.Parameters(0).Value = CType(Type,String)
36761             End If
36762             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
36763             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
36764                         <> Global.System.Data.ConnectionState.Open) Then
36765                 Me.Adapter.InsertCommand.Connection.Open
36766             End If
36767             Try
36768                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
36769                 Return returnValue
36770             Finally
36771                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
36772                     Me.Adapter.InsertCommand.Connection.Close
36773                 End If
36774             End Try
36775         End Function
36776         
36777         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
36778          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
36779          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
36780          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
36781         Public Overloads Overridable Function Update(ByVal Type As String, ByVal Original_Type As String) As Integer
36782             If (Type Is Nothing) Then
36783                 Throw New Global.System.ArgumentNullException("Type")
36784             Else
36785                 Me.Adapter.UpdateCommand.Parameters(0).Value = CType(Type,String)
36786             End If
36787             If (Original_Type Is Nothing) Then
36788                 Throw New Global.System.ArgumentNullException("Original_Type")
36789             Else
36790                 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Original_Type,String)
36791             End If
36792             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
36793             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
36794                         <> Global.System.Data.ConnectionState.Open) Then
36795                 Me.Adapter.UpdateCommand.Connection.Open
36796             End If
36797             Try
36798                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
36799                 Return returnValue
36800             Finally
36801                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
36802                     Me.Adapter.UpdateCommand.Connection.Close
36803                 End If
36804             End Try
36805         End Function
36806         
36807         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
36808          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
36809          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
36810          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
36811         Public Overloads Overridable Function Update(ByVal Original_Type As String) As Integer
36812             Return Me.Update(Original_Type, Original_Type)
36813         End Function
36814     End Class
36815     
36816     '''<summary>
36817     '''Represents the connection and commands used to retrieve and save data.
36818     '''</summary>
36819     <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
36820      Global.System.ComponentModel.ToolboxItem(true), _
36821      Global.System.ComponentModel.DataObjectAttribute(true), _
36822      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
36823         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
36824      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
36825     Partial Public Class SectionTableAdapter
36826         Inherits Global.System.ComponentModel.Component
36827         
36828         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
36829         
36830         Private _connection As Global.System.Data.SqlClient.SqlConnection
36831         
36832         Private _transaction As Global.System.Data.SqlClient.SqlTransaction
36833         
36834         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
36835         
36836         Private _clearBeforeFill As Boolean
36837         
36838         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
36839          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
36840         Public Sub New()
36841             MyBase.New
36842             Me.ClearBeforeFill = true
36843         End Sub
36844         
36845         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
36846          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
36847         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
36848             Get
36849                 If (Me._adapter Is Nothing) Then
36850                     Me.InitAdapter
36851                 End If
36852                 Return Me._adapter
36853             End Get
36854         End Property
36855         
36856         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
36857          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
36858         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
36859             Get
36860                 If (Me._connection Is Nothing) Then
36861                     Me.InitConnection
36862                 End If
36863                 Return Me._connection
36864             End Get
36865             Set
36866                 Me._connection = value
36867                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
36868                     Me.Adapter.InsertCommand.Connection = value
36869                 End If
36870                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
36871                     Me.Adapter.DeleteCommand.Connection = value
36872                 End If
36873                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
36874                     Me.Adapter.UpdateCommand.Connection = value
36875                 End If
36876                 Dim i As Integer = 0
36877                 Do While (i < Me.CommandCollection.Length)
36878                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
36879                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
36880                     End If
36881                     i = (i + 1)
36882                 Loop
36883             End Set
36884         End Property
36885         
36886         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
36887          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
36888         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
36889             Get
36890                 Return Me._transaction
36891             End Get
36892             Set
36893                 Me._transaction = value
36894                 Dim i As Integer = 0
36895                 Do While (i < Me.CommandCollection.Length)
36896                     Me.CommandCollection(i).Transaction = Me._transaction
36897                     i = (i + 1)
36898                 Loop
36899                 If ((Not (Me.Adapter) Is Nothing) _
36900                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
36901                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
36902                 End If
36903                 If ((Not (Me.Adapter) Is Nothing) _
36904                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
36905                     Me.Adapter.InsertCommand.Transaction = Me._transaction
36906                 End If
36907                 If ((Not (Me.Adapter) Is Nothing) _
36908                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
36909                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
36910                 End If
36911             End Set
36912         End Property
36913         
36914         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
36915          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
36916         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
36917             Get
36918                 If (Me._commandCollection Is Nothing) Then
36919                     Me.InitCommandCollection
36920                 End If
36921                 Return Me._commandCollection
36922             End Get
36923         End Property
36924         
36925         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
36926          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
36927         Public Property ClearBeforeFill() As Boolean
36928             Get
36929                 Return Me._clearBeforeFill
36930             End Get
36931             Set
36932                 Me._clearBeforeFill = value
36933             End Set
36934         End Property
36935         
36936         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
36937          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
36938         Private Sub InitAdapter()
36939             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
36940             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
36941             tableMapping.SourceTable = "Table"
36942             tableMapping.DataSetTable = "Section"
36943             tableMapping.ColumnMappings.Add("Id", "Id")
36944             tableMapping.ColumnMappings.Add("SectionName", "SectionName")
36945             tableMapping.ColumnMappings.Add("Class", "Class")
36946             Me._adapter.TableMappings.Add(tableMapping)
36947             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
36948             Me._adapter.DeleteCommand.Connection = Me.Connection
36949             Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[Section] WHERE (([Id] = @Original_Id) AND ([SectionName] = @Or"& _
36950                 "iginal_SectionName) AND ([Class] = @Original_Class))"
36951             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
36952             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
36953             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SectionName", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SectionName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
36954             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Class", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Class", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
36955             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
36956             Me._adapter.InsertCommand.Connection = Me.Connection
36957             Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[Section] ([Id], [SectionName], [Class]) VALUES (@Id, @SectionN"& _
36958                 "ame, @Class);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Id, SectionName, Class FROM Section WHERE (Id = @Id)"
36959             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
36960             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
36961             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SectionName", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SectionName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
36962             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Class", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Class", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
36963             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
36964             Me._adapter.UpdateCommand.Connection = Me.Connection
36965             Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[Section] SET [Id] = @Id, [SectionName] = @SectionName, [Class] = @C"& _
36966                 "lass WHERE (([Id] = @Original_Id) AND ([SectionName] = @Original_SectionName) AN"& _
36967                 "D ([Class] = @Original_Class));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Id, SectionName, Class FROM Section WHER"& _
36968                 "E (Id = @Id)"
36969             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
36970             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
36971             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SectionName", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SectionName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
36972             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Class", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Class", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
36973             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
36974             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SectionName", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SectionName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
36975             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Class", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Class", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
36976         End Sub
36977         
36978         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
36979          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
36980         Private Sub InitConnection()
36981             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
36982             Me._connection.ConnectionString = Global.ERP_System.My.MySettings.Default.ERPS_DBConnectionString
36983         End Sub
36984         
36985         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
36986          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
36987         Private Sub InitCommandCollection()
36988             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
36989             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
36990             Me._commandCollection(0).Connection = Me.Connection
36991             Me._commandCollection(0).CommandText = "SELECT Id, SectionName, Class FROM dbo.Section"
36992             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
36993         End Sub
36994         
36995         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
36996          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
36997          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
36998          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
36999         Public Overloads Overridable Function Fill(ByVal dataTable As ERPS_DBDataSet1.SectionDataTable) As Integer
37000             Me.Adapter.SelectCommand = Me.CommandCollection(0)
37001             If (Me.ClearBeforeFill = true) Then
37002                 dataTable.Clear
37003             End If
37004             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
37005             Return returnValue
37006         End Function
37007         
37008         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
37009          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
37010          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
37011          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
37012         Public Overloads Overridable Function GetData() As ERPS_DBDataSet1.SectionDataTable
37013             Me.Adapter.SelectCommand = Me.CommandCollection(0)
37014             Dim dataTable As ERPS_DBDataSet1.SectionDataTable = New ERPS_DBDataSet1.SectionDataTable()
37015             Me.Adapter.Fill(dataTable)
37016             Return dataTable
37017         End Function
37018         
37019         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
37020          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
37021          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
37022         Public Overloads Overridable Function Update(ByVal dataTable As ERPS_DBDataSet1.SectionDataTable) As Integer
37023             Return Me.Adapter.Update(dataTable)
37024         End Function
37025         
37026         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
37027          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
37028          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
37029         Public Overloads Overridable Function Update(ByVal dataSet As ERPS_DBDataSet1) As Integer
37030             Return Me.Adapter.Update(dataSet, "Section")
37031         End Function
37032         
37033         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
37034          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
37035          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
37036         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
37037             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
37038         End Function
37039         
37040         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
37041          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
37042          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
37043         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
37044             Return Me.Adapter.Update(dataRows)
37045         End Function
37046         
37047         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
37048          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
37049          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
37050          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
37051         Public Overloads Overridable Function Delete(ByVal Original_Id As Integer, ByVal Original_SectionName As String, ByVal Original_Class As String) As Integer
37052             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_Id,Integer)
37053             If (Original_SectionName Is Nothing) Then
37054                 Throw New Global.System.ArgumentNullException("Original_SectionName")
37055             Else
37056                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_SectionName,String)
37057             End If
37058             If (Original_Class Is Nothing) Then
37059                 Throw New Global.System.ArgumentNullException("Original_Class")
37060             Else
37061                 Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_Class,String)
37062             End If
37063             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
37064             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
37065                         <> Global.System.Data.ConnectionState.Open) Then
37066                 Me.Adapter.DeleteCommand.Connection.Open
37067             End If
37068             Try
37069                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
37070                 Return returnValue
37071             Finally
37072                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
37073                     Me.Adapter.DeleteCommand.Connection.Close
37074                 End If
37075             End Try
37076         End Function
37077         
37078         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
37079          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
37080          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
37081          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
37082         Public Overloads Overridable Function Insert(ByVal Id As Integer, ByVal SectionName As String, ByVal _Class As String) As Integer
37083             Me.Adapter.InsertCommand.Parameters(0).Value = CType(Id,Integer)
37084             If (SectionName Is Nothing) Then
37085                 Throw New Global.System.ArgumentNullException("SectionName")
37086             Else
37087                 Me.Adapter.InsertCommand.Parameters(1).Value = CType(SectionName,String)
37088             End If
37089             If (_Class Is Nothing) Then
37090                 Throw New Global.System.ArgumentNullException("_Class")
37091             Else
37092                 Me.Adapter.InsertCommand.Parameters(2).Value = CType(_Class,String)
37093             End If
37094             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
37095             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
37096                         <> Global.System.Data.ConnectionState.Open) Then
37097                 Me.Adapter.InsertCommand.Connection.Open
37098             End If
37099             Try
37100                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
37101                 Return returnValue
37102             Finally
37103                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
37104                     Me.Adapter.InsertCommand.Connection.Close
37105                 End If
37106             End Try
37107         End Function
37108         
37109         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
37110          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
37111          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
37112          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
37113         Public Overloads Overridable Function Update(ByVal Id As Integer, ByVal SectionName As String, ByVal _Class As String, ByVal Original_Id As Integer, ByVal Original_SectionName As String, ByVal Original_Class As String) As Integer
37114             Me.Adapter.UpdateCommand.Parameters(0).Value = CType(Id,Integer)
37115             If (SectionName Is Nothing) Then
37116                 Throw New Global.System.ArgumentNullException("SectionName")
37117             Else
37118                 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(SectionName,String)
37119             End If
37120             If (_Class Is Nothing) Then
37121                 Throw New Global.System.ArgumentNullException("_Class")
37122             Else
37123                 Me.Adapter.UpdateCommand.Parameters(2).Value = CType(_Class,String)
37124             End If
37125             Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_Id,Integer)
37126             If (Original_SectionName Is Nothing) Then
37127                 Throw New Global.System.ArgumentNullException("Original_SectionName")
37128             Else
37129                 Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_SectionName,String)
37130             End If
37131             If (Original_Class Is Nothing) Then
37132                 Throw New Global.System.ArgumentNullException("Original_Class")
37133             Else
37134                 Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_Class,String)
37135             End If
37136             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
37137             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
37138                         <> Global.System.Data.ConnectionState.Open) Then
37139                 Me.Adapter.UpdateCommand.Connection.Open
37140             End If
37141             Try
37142                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
37143                 Return returnValue
37144             Finally
37145                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
37146                     Me.Adapter.UpdateCommand.Connection.Close
37147                 End If
37148             End Try
37149         End Function
37150         
37151         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
37152          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
37153          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
37154          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
37155         Public Overloads Overridable Function Update(ByVal SectionName As String, ByVal _Class As String, ByVal Original_Id As Integer, ByVal Original_SectionName As String, ByVal Original_Class As String) As Integer
37156             Return Me.Update(Original_Id, SectionName, _Class, Original_Id, Original_SectionName, Original_Class)
37157         End Function
37158     End Class
37159     
37160     '''<summary>
37161     '''Represents the connection and commands used to retrieve and save data.
37162     '''</summary>
37163     <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
37164      Global.System.ComponentModel.ToolboxItem(true), _
37165      Global.System.ComponentModel.DataObjectAttribute(true), _
37166      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
37167         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
37168      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
37169     Partial Public Class Session_MasterTableAdapter
37170         Inherits Global.System.ComponentModel.Component
37171         
37172         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
37173         
37174         Private _connection As Global.System.Data.SqlClient.SqlConnection
37175         
37176         Private _transaction As Global.System.Data.SqlClient.SqlTransaction
37177         
37178         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
37179         
37180         Private _clearBeforeFill As Boolean
37181         
37182         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
37183          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
37184         Public Sub New()
37185             MyBase.New
37186             Me.ClearBeforeFill = true
37187         End Sub
37188         
37189         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
37190          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
37191         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
37192             Get
37193                 If (Me._adapter Is Nothing) Then
37194                     Me.InitAdapter
37195                 End If
37196                 Return Me._adapter
37197             End Get
37198         End Property
37199         
37200         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
37201          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
37202         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
37203             Get
37204                 If (Me._connection Is Nothing) Then
37205                     Me.InitConnection
37206                 End If
37207                 Return Me._connection
37208             End Get
37209             Set
37210                 Me._connection = value
37211                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
37212                     Me.Adapter.InsertCommand.Connection = value
37213                 End If
37214                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
37215                     Me.Adapter.DeleteCommand.Connection = value
37216                 End If
37217                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
37218                     Me.Adapter.UpdateCommand.Connection = value
37219                 End If
37220                 Dim i As Integer = 0
37221                 Do While (i < Me.CommandCollection.Length)
37222                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
37223                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
37224                     End If
37225                     i = (i + 1)
37226                 Loop
37227             End Set
37228         End Property
37229         
37230         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
37231          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
37232         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
37233             Get
37234                 Return Me._transaction
37235             End Get
37236             Set
37237                 Me._transaction = value
37238                 Dim i As Integer = 0
37239                 Do While (i < Me.CommandCollection.Length)
37240                     Me.CommandCollection(i).Transaction = Me._transaction
37241                     i = (i + 1)
37242                 Loop
37243                 If ((Not (Me.Adapter) Is Nothing) _
37244                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
37245                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
37246                 End If
37247                 If ((Not (Me.Adapter) Is Nothing) _
37248                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
37249                     Me.Adapter.InsertCommand.Transaction = Me._transaction
37250                 End If
37251                 If ((Not (Me.Adapter) Is Nothing) _
37252                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
37253                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
37254                 End If
37255             End Set
37256         End Property
37257         
37258         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
37259          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
37260         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
37261             Get
37262                 If (Me._commandCollection Is Nothing) Then
37263                     Me.InitCommandCollection
37264                 End If
37265                 Return Me._commandCollection
37266             End Get
37267         End Property
37268         
37269         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
37270          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
37271         Public Property ClearBeforeFill() As Boolean
37272             Get
37273                 Return Me._clearBeforeFill
37274             End Get
37275             Set
37276                 Me._clearBeforeFill = value
37277             End Set
37278         End Property
37279         
37280         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
37281          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
37282         Private Sub InitAdapter()
37283             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
37284             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
37285             tableMapping.SourceTable = "Table"
37286             tableMapping.DataSetTable = "Session_Master"
37287             tableMapping.ColumnMappings.Add("Session", "Session")
37288             Me._adapter.TableMappings.Add(tableMapping)
37289             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
37290             Me._adapter.DeleteCommand.Connection = Me.Connection
37291             Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[Session_Master] WHERE (([Session] = @Original_Session))"
37292             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
37293             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Session", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Session", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
37294             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
37295             Me._adapter.InsertCommand.Connection = Me.Connection
37296             Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[Session_Master] ([Session]) VALUES (@Session);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Session"& _
37297                 " FROM Session_Master WHERE (Session = @Session)"
37298             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
37299             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Session", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Session", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
37300             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
37301             Me._adapter.UpdateCommand.Connection = Me.Connection
37302             Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[Session_Master] SET [Session] = @Session WHERE (([Session] = @Origi"& _
37303                 "nal_Session));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Session FROM Session_Master WHERE (Session = @Session)"
37304             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
37305             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Session", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Session", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
37306             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Session", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Session", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
37307         End Sub
37308         
37309         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
37310          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
37311         Private Sub InitConnection()
37312             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
37313             Me._connection.ConnectionString = Global.ERP_System.My.MySettings.Default.ERPS_DBConnectionString
37314         End Sub
37315         
37316         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
37317          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
37318         Private Sub InitCommandCollection()
37319             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
37320             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
37321             Me._commandCollection(0).Connection = Me.Connection
37322             Me._commandCollection(0).CommandText = "SELECT Session FROM dbo.Session_Master"
37323             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
37324         End Sub
37325         
37326         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
37327          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
37328          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
37329          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
37330         Public Overloads Overridable Function Fill(ByVal dataTable As ERPS_DBDataSet1.Session_MasterDataTable) As Integer
37331             Me.Adapter.SelectCommand = Me.CommandCollection(0)
37332             If (Me.ClearBeforeFill = true) Then
37333                 dataTable.Clear
37334             End If
37335             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
37336             Return returnValue
37337         End Function
37338         
37339         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
37340          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
37341          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
37342          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
37343         Public Overloads Overridable Function GetData() As ERPS_DBDataSet1.Session_MasterDataTable
37344             Me.Adapter.SelectCommand = Me.CommandCollection(0)
37345             Dim dataTable As ERPS_DBDataSet1.Session_MasterDataTable = New ERPS_DBDataSet1.Session_MasterDataTable()
37346             Me.Adapter.Fill(dataTable)
37347             Return dataTable
37348         End Function
37349         
37350         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
37351          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
37352          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
37353         Public Overloads Overridable Function Update(ByVal dataTable As ERPS_DBDataSet1.Session_MasterDataTable) As Integer
37354             Return Me.Adapter.Update(dataTable)
37355         End Function
37356         
37357         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
37358          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
37359          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
37360         Public Overloads Overridable Function Update(ByVal dataSet As ERPS_DBDataSet1) As Integer
37361             Return Me.Adapter.Update(dataSet, "Session_Master")
37362         End Function
37363         
37364         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
37365          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
37366          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
37367         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
37368             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
37369         End Function
37370         
37371         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
37372          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
37373          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
37374         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
37375             Return Me.Adapter.Update(dataRows)
37376         End Function
37377         
37378         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
37379          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
37380          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
37381          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
37382         Public Overloads Overridable Function Delete(ByVal Original_Session As String) As Integer
37383             If (Original_Session Is Nothing) Then
37384                 Throw New Global.System.ArgumentNullException("Original_Session")
37385             Else
37386                 Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_Session,String)
37387             End If
37388             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
37389             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
37390                         <> Global.System.Data.ConnectionState.Open) Then
37391                 Me.Adapter.DeleteCommand.Connection.Open
37392             End If
37393             Try
37394                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
37395                 Return returnValue
37396             Finally
37397                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
37398                     Me.Adapter.DeleteCommand.Connection.Close
37399                 End If
37400             End Try
37401         End Function
37402         
37403         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
37404          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
37405          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
37406          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
37407         Public Overloads Overridable Function Insert(ByVal Session As String) As Integer
37408             If (Session Is Nothing) Then
37409                 Throw New Global.System.ArgumentNullException("Session")
37410             Else
37411                 Me.Adapter.InsertCommand.Parameters(0).Value = CType(Session,String)
37412             End If
37413             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
37414             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
37415                         <> Global.System.Data.ConnectionState.Open) Then
37416                 Me.Adapter.InsertCommand.Connection.Open
37417             End If
37418             Try
37419                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
37420                 Return returnValue
37421             Finally
37422                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
37423                     Me.Adapter.InsertCommand.Connection.Close
37424                 End If
37425             End Try
37426         End Function
37427         
37428         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
37429          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
37430          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
37431          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
37432         Public Overloads Overridable Function Update(ByVal Session As String, ByVal Original_Session As String) As Integer
37433             If (Session Is Nothing) Then
37434                 Throw New Global.System.ArgumentNullException("Session")
37435             Else
37436                 Me.Adapter.UpdateCommand.Parameters(0).Value = CType(Session,String)
37437             End If
37438             If (Original_Session Is Nothing) Then
37439                 Throw New Global.System.ArgumentNullException("Original_Session")
37440             Else
37441                 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Original_Session,String)
37442             End If
37443             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
37444             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
37445                         <> Global.System.Data.ConnectionState.Open) Then
37446                 Me.Adapter.UpdateCommand.Connection.Open
37447             End If
37448             Try
37449                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
37450                 Return returnValue
37451             Finally
37452                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
37453                     Me.Adapter.UpdateCommand.Connection.Close
37454                 End If
37455             End Try
37456         End Function
37457         
37458         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
37459          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
37460          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
37461          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
37462         Public Overloads Overridable Function Update(ByVal Original_Session As String) As Integer
37463             Return Me.Update(Original_Session, Original_Session)
37464         End Function
37465     End Class
37466     
37467     '''<summary>
37468     '''Represents the connection and commands used to retrieve and save data.
37469     '''</summary>
37470     <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
37471      Global.System.ComponentModel.ToolboxItem(true), _
37472      Global.System.ComponentModel.DataObjectAttribute(true), _
37473      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
37474         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
37475      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
37476     Partial Public Class StaffTableAdapter
37477         Inherits Global.System.ComponentModel.Component
37478         
37479         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
37480         
37481         Private _connection As Global.System.Data.SqlClient.SqlConnection
37482         
37483         Private _transaction As Global.System.Data.SqlClient.SqlTransaction
37484         
37485         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
37486         
37487         Private _clearBeforeFill As Boolean
37488         
37489         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
37490          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
37491         Public Sub New()
37492             MyBase.New
37493             Me.ClearBeforeFill = true
37494         End Sub
37495         
37496         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
37497          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
37498         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
37499             Get
37500                 If (Me._adapter Is Nothing) Then
37501                     Me.InitAdapter
37502                 End If
37503                 Return Me._adapter
37504             End Get
37505         End Property
37506         
37507         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
37508          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
37509         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
37510             Get
37511                 If (Me._connection Is Nothing) Then
37512                     Me.InitConnection
37513                 End If
37514                 Return Me._connection
37515             End Get
37516             Set
37517                 Me._connection = value
37518                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
37519                     Me.Adapter.InsertCommand.Connection = value
37520                 End If
37521                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
37522                     Me.Adapter.DeleteCommand.Connection = value
37523                 End If
37524                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
37525                     Me.Adapter.UpdateCommand.Connection = value
37526                 End If
37527                 Dim i As Integer = 0
37528                 Do While (i < Me.CommandCollection.Length)
37529                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
37530                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
37531                     End If
37532                     i = (i + 1)
37533                 Loop
37534             End Set
37535         End Property
37536         
37537         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
37538          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
37539         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
37540             Get
37541                 Return Me._transaction
37542             End Get
37543             Set
37544                 Me._transaction = value
37545                 Dim i As Integer = 0
37546                 Do While (i < Me.CommandCollection.Length)
37547                     Me.CommandCollection(i).Transaction = Me._transaction
37548                     i = (i + 1)
37549                 Loop
37550                 If ((Not (Me.Adapter) Is Nothing) _
37551                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
37552                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
37553                 End If
37554                 If ((Not (Me.Adapter) Is Nothing) _
37555                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
37556                     Me.Adapter.InsertCommand.Transaction = Me._transaction
37557                 End If
37558                 If ((Not (Me.Adapter) Is Nothing) _
37559                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
37560                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
37561                 End If
37562             End Set
37563         End Property
37564         
37565         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
37566          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
37567         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
37568             Get
37569                 If (Me._commandCollection Is Nothing) Then
37570                     Me.InitCommandCollection
37571                 End If
37572                 Return Me._commandCollection
37573             End Get
37574         End Property
37575         
37576         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
37577          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
37578         Public Property ClearBeforeFill() As Boolean
37579             Get
37580                 Return Me._clearBeforeFill
37581             End Get
37582             Set
37583                 Me._clearBeforeFill = value
37584             End Set
37585         End Property
37586         
37587         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
37588          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
37589         Private Sub InitAdapter()
37590             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
37591             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
37592             tableMapping.SourceTable = "Table"
37593             tableMapping.DataSetTable = "Staff"
37594             tableMapping.ColumnMappings.Add("St_ID", "St_ID")
37595             tableMapping.ColumnMappings.Add("StaffID", "StaffID")
37596             tableMapping.ColumnMappings.Add("StaffName", "StaffName")
37597             tableMapping.ColumnMappings.Add("DateOfJoining", "DateOfJoining")
37598             tableMapping.ColumnMappings.Add("Gender", "Gender")
37599             tableMapping.ColumnMappings.Add("FatherName", "FatherName")
37600             tableMapping.ColumnMappings.Add("TemporaryAddress", "TemporaryAddress")
37601             tableMapping.ColumnMappings.Add("PermanentAddress", "PermanentAddress")
37602             tableMapping.ColumnMappings.Add("Designation", "Designation")
37603             tableMapping.ColumnMappings.Add("Qualifications", "Qualifications")
37604             tableMapping.ColumnMappings.Add("DOB", "DOB")
37605             tableMapping.ColumnMappings.Add("PhoneNo", "PhoneNo")
37606             tableMapping.ColumnMappings.Add("MobileNo", "MobileNo")
37607             tableMapping.ColumnMappings.Add("Email", "Email")
37608             tableMapping.ColumnMappings.Add("Photo", "Photo")
37609             tableMapping.ColumnMappings.Add("ClassType", "ClassType")
37610             tableMapping.ColumnMappings.Add("SchoolID", "SchoolID")
37611             tableMapping.ColumnMappings.Add("AccountName", "AccountName")
37612             tableMapping.ColumnMappings.Add("AccountNumber", "AccountNumber")
37613             tableMapping.ColumnMappings.Add("Bank", "Bank")
37614             tableMapping.ColumnMappings.Add("Branch", "Branch")
37615             tableMapping.ColumnMappings.Add("IFSCcode", "IFSCcode")
37616             tableMapping.ColumnMappings.Add("Status", "Status")
37617             tableMapping.ColumnMappings.Add("Salary", "Salary")
37618             Me._adapter.TableMappings.Add(tableMapping)
37619             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
37620             Me._adapter.DeleteCommand.Connection = Me.Connection
37621             Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[Staff] WHERE (([St_ID] = @Original_St_ID) AND ([StaffID] = @Or"& _
37622                 "iginal_StaffID) AND ([StaffName] = @Original_StaffName) AND ([DateOfJoining] = @"& _
37623                 "Original_DateOfJoining) AND ([Gender] = @Original_Gender) AND ([FatherName] = @O"& _
37624                 "riginal_FatherName) AND ([TemporaryAddress] = @Original_TemporaryAddress) AND (["& _
37625                 "PermanentAddress] = @Original_PermanentAddress) AND ([Designation] = @Original_D"& _
37626                 "esignation) AND ([Qualifications] = @Original_Qualifications) AND ([DOB] = @Orig"& _
37627                 "inal_DOB) AND ((@IsNull_PhoneNo = 1 AND [PhoneNo] IS NULL) OR ([PhoneNo] = @Orig"& _
37628                 "inal_PhoneNo)) AND ([MobileNo] = @Original_MobileNo) AND ((@IsNull_Email = 1 AND"& _
37629                 " [Email] IS NULL) OR ([Email] = @Original_Email)) AND ([ClassType] = @Original_C"& _
37630                 "lassType) AND ([SchoolID] = @Original_SchoolID) AND ([AccountName] = @Original_A"& _
37631                 "ccountName) AND ([AccountNumber] = @Original_AccountNumber) AND ([Bank] = @Origi"& _
37632                 "nal_Bank) AND ([Branch] = @Original_Branch) AND ((@IsNull_IFSCcode = 1 AND [IFSC"& _
37633                 "code] IS NULL) OR ([IFSCcode] = @Original_IFSCcode)) AND ([Status] = @Original_S"& _
37634                 "tatus) AND ([Salary] = @Original_Salary))"
37635             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
37636             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_St_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "St_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
37637             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_StaffID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "StaffID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
37638             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_StaffName", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "StaffName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
37639             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DateOfJoining", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DateOfJoining", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
37640             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Gender", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gender", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
37641             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FatherName", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FatherName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
37642             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TemporaryAddress", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TemporaryAddress", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
37643             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PermanentAddress", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PermanentAddress", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
37644             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Designation", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Designation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
37645             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Qualifications", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Qualifications", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
37646             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DOB", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DOB", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
37647             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_PhoneNo", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PhoneNo", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
37648             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PhoneNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PhoneNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
37649             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_MobileNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MobileNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
37650             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Email", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Email", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
37651             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Email", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Email", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
37652             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ClassType", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ClassType", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
37653             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SchoolID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SchoolID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
37654             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_AccountName", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AccountName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
37655             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_AccountNumber", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AccountNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
37656             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Bank", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Bank", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
37657             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Branch", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Branch", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
37658             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_IFSCcode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "IFSCcode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
37659             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_IFSCcode", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "IFSCcode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
37660             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Status", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Status", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
37661             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Salary", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Salary", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
37662             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
37663             Me._adapter.InsertCommand.Connection = Me.Connection
37664             Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[Staff] ([St_ID], [StaffID], [StaffName], [DateOfJoining], [Gen"& _
37665                 "der], [FatherName], [TemporaryAddress], [PermanentAddress], [Designation], [Qual"& _
37666                 "ifications], [DOB], [PhoneNo], [MobileNo], [Email], [Photo], [ClassType], [Schoo"& _
37667                 "lID], [AccountName], [AccountNumber], [Bank], [Branch], [IFSCcode], [Status], [S"& _
37668                 "alary]) VALUES (@St_ID, @StaffID, @StaffName, @DateOfJoining, @Gender, @FatherNa"& _
37669                 "me, @TemporaryAddress, @PermanentAddress, @Designation, @Qualifications, @DOB, @"& _
37670                 "PhoneNo, @MobileNo, @Email, @Photo, @ClassType, @SchoolID, @AccountName, @Accoun"& _
37671                 "tNumber, @Bank, @Branch, @IFSCcode, @Status, @Salary);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT St_ID, StaffID, S"& _
37672                 "taffName, DateOfJoining, Gender, FatherName, TemporaryAddress, PermanentAddress,"& _
37673                 " Designation, Qualifications, DOB, PhoneNo, MobileNo, Email, Photo, ClassType, S"& _
37674                 "choolID, AccountName, AccountNumber, Bank, Branch, IFSCcode, Status, Salary FROM"& _
37675                 " Staff WHERE (St_ID = @St_ID)"
37676             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
37677             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@St_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "St_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
37678             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@StaffID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "StaffID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
37679             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@StaffName", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "StaffName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
37680             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DateOfJoining", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DateOfJoining", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
37681             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Gender", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gender", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
37682             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FatherName", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FatherName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
37683             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TemporaryAddress", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TemporaryAddress", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
37684             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PermanentAddress", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PermanentAddress", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
37685             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Designation", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Designation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
37686             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Qualifications", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Qualifications", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
37687             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOB", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DOB", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
37688             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PhoneNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PhoneNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
37689             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MobileNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MobileNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
37690             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Email", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Email", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
37691             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Photo", Global.System.Data.SqlDbType.Image, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Photo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
37692             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ClassType", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ClassType", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
37693             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SchoolID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SchoolID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
37694             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AccountName", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AccountName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
37695             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AccountNumber", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AccountNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
37696             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Bank", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Bank", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
37697             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Branch", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Branch", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
37698             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IFSCcode", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "IFSCcode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
37699             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Status", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Status", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
37700             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Salary", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Salary", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
37701             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
37702             Me._adapter.UpdateCommand.Connection = Me.Connection
37703             Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[Staff] SET [St_ID] = @St_ID, [StaffID] = @StaffID, [StaffName] = @S"& _
37704                 "taffName, [DateOfJoining] = @DateOfJoining, [Gender] = @Gender, [FatherName] = @"& _
37705                 "FatherName, [TemporaryAddress] = @TemporaryAddress, [PermanentAddress] = @Perman"& _
37706                 "entAddress, [Designation] = @Designation, [Qualifications] = @Qualifications, [D"& _
37707                 "OB] = @DOB, [PhoneNo] = @PhoneNo, [MobileNo] = @MobileNo, [Email] = @Email, [Pho"& _
37708                 "to] = @Photo, [ClassType] = @ClassType, [SchoolID] = @SchoolID, [AccountName] = "& _
37709                 "@AccountName, [AccountNumber] = @AccountNumber, [Bank] = @Bank, [Branch] = @Bran"& _
37710                 "ch, [IFSCcode] = @IFSCcode, [Status] = @Status, [Salary] = @Salary WHERE (([St_I"& _
37711                 "D] = @Original_St_ID) AND ([StaffID] = @Original_StaffID) AND ([StaffName] = @Or"& _
37712                 "iginal_StaffName) AND ([DateOfJoining] = @Original_DateOfJoining) AND ([Gender] "& _
37713                 "= @Original_Gender) AND ([FatherName] = @Original_FatherName) AND ([TemporaryAdd"& _
37714                 "ress] = @Original_TemporaryAddress) AND ([PermanentAddress] = @Original_Permanen"& _
37715                 "tAddress) AND ([Designation] = @Original_Designation) AND ([Qualifications] = @O"& _
37716                 "riginal_Qualifications) AND ([DOB] = @Original_DOB) AND ((@IsNull_PhoneNo = 1 AN"& _
37717                 "D [PhoneNo] IS NULL) OR ([PhoneNo] = @Original_PhoneNo)) AND ([MobileNo] = @Orig"& _
37718                 "inal_MobileNo) AND ((@IsNull_Email = 1 AND [Email] IS NULL) OR ([Email] = @Origi"& _
37719                 "nal_Email)) AND ([ClassType] = @Original_ClassType) AND ([SchoolID] = @Original_"& _
37720                 "SchoolID) AND ([AccountName] = @Original_AccountName) AND ([AccountNumber] = @Or"& _
37721                 "iginal_AccountNumber) AND ([Bank] = @Original_Bank) AND ([Branch] = @Original_Br"& _
37722                 "anch) AND ((@IsNull_IFSCcode = 1 AND [IFSCcode] IS NULL) OR ([IFSCcode] = @Origi"& _
37723                 "nal_IFSCcode)) AND ([Status] = @Original_Status) AND ([Salary] = @Original_Salar"& _
37724                 "y));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT St_ID, StaffID, StaffName, DateOfJoining, Gender, FatherName, Tempo"& _
37725                 "raryAddress, PermanentAddress, Designation, Qualifications, DOB, PhoneNo, Mobile"& _
37726                 "No, Email, Photo, ClassType, SchoolID, AccountName, AccountNumber, Bank, Branch,"& _
37727                 " IFSCcode, Status, Salary FROM Staff WHERE (St_ID = @St_ID)"
37728             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
37729             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@St_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "St_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
37730             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@StaffID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "StaffID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
37731             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@StaffName", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "StaffName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
37732             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DateOfJoining", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DateOfJoining", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
37733             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Gender", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gender", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
37734             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FatherName", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FatherName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
37735             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TemporaryAddress", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TemporaryAddress", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
37736             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PermanentAddress", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PermanentAddress", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
37737             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Designation", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Designation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
37738             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Qualifications", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Qualifications", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
37739             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOB", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DOB", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
37740             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PhoneNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PhoneNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
37741             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MobileNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MobileNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
37742             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Email", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Email", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
37743             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Photo", Global.System.Data.SqlDbType.Image, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Photo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
37744             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ClassType", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ClassType", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
37745             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SchoolID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SchoolID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
37746             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AccountName", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AccountName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
37747             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AccountNumber", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AccountNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
37748             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Bank", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Bank", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
37749             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Branch", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Branch", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
37750             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IFSCcode", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "IFSCcode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
37751             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Status", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Status", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
37752             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Salary", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Salary", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
37753             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_St_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "St_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
37754             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_StaffID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "StaffID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
37755             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_StaffName", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "StaffName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
37756             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DateOfJoining", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DateOfJoining", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
37757             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Gender", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gender", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
37758             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FatherName", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FatherName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
37759             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TemporaryAddress", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TemporaryAddress", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
37760             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PermanentAddress", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PermanentAddress", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
37761             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Designation", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Designation", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
37762             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Qualifications", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Qualifications", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
37763             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DOB", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DOB", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
37764             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_PhoneNo", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PhoneNo", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
37765             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PhoneNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PhoneNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
37766             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_MobileNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MobileNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
37767             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Email", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Email", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
37768             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Email", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Email", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
37769             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ClassType", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ClassType", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
37770             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SchoolID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SchoolID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
37771             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_AccountName", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AccountName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
37772             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_AccountNumber", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AccountNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
37773             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Bank", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Bank", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
37774             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Branch", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Branch", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
37775             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_IFSCcode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "IFSCcode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
37776             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_IFSCcode", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "IFSCcode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
37777             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Status", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Status", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
37778             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Salary", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Salary", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
37779         End Sub
37780         
37781         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
37782          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
37783         Private Sub InitConnection()
37784             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
37785             Me._connection.ConnectionString = Global.ERP_System.My.MySettings.Default.ERPS_DBConnectionString
37786         End Sub
37787         
37788         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
37789          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
37790         Private Sub InitCommandCollection()
37791             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
37792             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
37793             Me._commandCollection(0).Connection = Me.Connection
37794             Me._commandCollection(0).CommandText = "SELECT St_ID, StaffID, StaffName, DateOfJoining, Gender, FatherName, TemporaryAdd"& _
37795                 "ress, PermanentAddress, Designation, Qualifications, DOB, PhoneNo, MobileNo, Ema"& _
37796                 "il, Photo, ClassType, SchoolID, AccountName, AccountNumber, Bank, Branch, IFSCco"& _
37797                 "de, Status, Salary FROM dbo.Staff"
37798             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
37799         End Sub
37800         
37801         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
37802          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
37803          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
37804          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
37805         Public Overloads Overridable Function Fill(ByVal dataTable As ERPS_DBDataSet1.StaffDataTable) As Integer
37806             Me.Adapter.SelectCommand = Me.CommandCollection(0)
37807             If (Me.ClearBeforeFill = true) Then
37808                 dataTable.Clear
37809             End If
37810             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
37811             Return returnValue
37812         End Function
37813         
37814         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
37815          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
37816          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
37817          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
37818         Public Overloads Overridable Function GetData() As ERPS_DBDataSet1.StaffDataTable
37819             Me.Adapter.SelectCommand = Me.CommandCollection(0)
37820             Dim dataTable As ERPS_DBDataSet1.StaffDataTable = New ERPS_DBDataSet1.StaffDataTable()
37821             Me.Adapter.Fill(dataTable)
37822             Return dataTable
37823         End Function
37824         
37825         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
37826          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
37827          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
37828         Public Overloads Overridable Function Update(ByVal dataTable As ERPS_DBDataSet1.StaffDataTable) As Integer
37829             Return Me.Adapter.Update(dataTable)
37830         End Function
37831         
37832         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
37833          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
37834          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
37835         Public Overloads Overridable Function Update(ByVal dataSet As ERPS_DBDataSet1) As Integer
37836             Return Me.Adapter.Update(dataSet, "Staff")
37837         End Function
37838         
37839         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
37840          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
37841          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
37842         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
37843             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
37844         End Function
37845         
37846         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
37847          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
37848          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
37849         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
37850             Return Me.Adapter.Update(dataRows)
37851         End Function
37852         
37853         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
37854          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
37855          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
37856          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
37857         Public Overloads Overridable Function Delete( _
37858                     ByVal Original_St_ID As Integer, _
37859                     ByVal Original_StaffID As String, _
37860                     ByVal Original_StaffName As String, _
37861                     ByVal Original_DateOfJoining As Date, _
37862                     ByVal Original_Gender As String, _
37863                     ByVal Original_FatherName As String, _
37864                     ByVal Original_TemporaryAddress As String, _
37865                     ByVal Original_PermanentAddress As String, _
37866                     ByVal Original_Designation As String, _
37867                     ByVal Original_Qualifications As String, _
37868                     ByVal Original_DOB As Date, _
37869                     ByVal Original_PhoneNo As String, _
37870                     ByVal Original_MobileNo As String, _
37871                     ByVal Original_Email As String, _
37872                     ByVal Original_ClassType As String, _
37873                     ByVal Original_SchoolID As Integer, _
37874                     ByVal Original_AccountName As String, _
37875                     ByVal Original_AccountNumber As String, _
37876                     ByVal Original_Bank As String, _
37877                     ByVal Original_Branch As String, _
37878                     ByVal Original_IFSCcode As String, _
37879                     ByVal Original_Status As String, _
37880                     ByVal Original_Salary As Decimal) As Integer
37881             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_St_ID,Integer)
37882             If (Original_StaffID Is Nothing) Then
37883                 Throw New Global.System.ArgumentNullException("Original_StaffID")
37884             Else
37885                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_StaffID,String)
37886             End If
37887             If (Original_StaffName Is Nothing) Then
37888                 Throw New Global.System.ArgumentNullException("Original_StaffName")
37889             Else
37890                 Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_StaffName,String)
37891             End If
37892             Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_DateOfJoining,Date)
37893             If (Original_Gender Is Nothing) Then
37894                 Throw New Global.System.ArgumentNullException("Original_Gender")
37895             Else
37896                 Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_Gender,String)
37897             End If
37898             If (Original_FatherName Is Nothing) Then
37899                 Throw New Global.System.ArgumentNullException("Original_FatherName")
37900             Else
37901                 Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_FatherName,String)
37902             End If
37903             If (Original_TemporaryAddress Is Nothing) Then
37904                 Throw New Global.System.ArgumentNullException("Original_TemporaryAddress")
37905             Else
37906                 Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_TemporaryAddress,String)
37907             End If
37908             If (Original_PermanentAddress Is Nothing) Then
37909                 Throw New Global.System.ArgumentNullException("Original_PermanentAddress")
37910             Else
37911                 Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_PermanentAddress,String)
37912             End If
37913             If (Original_Designation Is Nothing) Then
37914                 Throw New Global.System.ArgumentNullException("Original_Designation")
37915             Else
37916                 Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_Designation,String)
37917             End If
37918             If (Original_Qualifications Is Nothing) Then
37919                 Throw New Global.System.ArgumentNullException("Original_Qualifications")
37920             Else
37921                 Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_Qualifications,String)
37922             End If
37923             Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_DOB,Date)
37924             If (Original_PhoneNo Is Nothing) Then
37925                 Me.Adapter.DeleteCommand.Parameters(11).Value = CType(1,Object)
37926                 Me.Adapter.DeleteCommand.Parameters(12).Value = Global.System.DBNull.Value
37927             Else
37928                 Me.Adapter.DeleteCommand.Parameters(11).Value = CType(0,Object)
37929                 Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_PhoneNo,String)
37930             End If
37931             If (Original_MobileNo Is Nothing) Then
37932                 Throw New Global.System.ArgumentNullException("Original_MobileNo")
37933             Else
37934                 Me.Adapter.DeleteCommand.Parameters(13).Value = CType(Original_MobileNo,String)
37935             End If
37936             If (Original_Email Is Nothing) Then
37937                 Me.Adapter.DeleteCommand.Parameters(14).Value = CType(1,Object)
37938                 Me.Adapter.DeleteCommand.Parameters(15).Value = Global.System.DBNull.Value
37939             Else
37940                 Me.Adapter.DeleteCommand.Parameters(14).Value = CType(0,Object)
37941                 Me.Adapter.DeleteCommand.Parameters(15).Value = CType(Original_Email,String)
37942             End If
37943             If (Original_ClassType Is Nothing) Then
37944                 Throw New Global.System.ArgumentNullException("Original_ClassType")
37945             Else
37946                 Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_ClassType,String)
37947             End If
37948             Me.Adapter.DeleteCommand.Parameters(17).Value = CType(Original_SchoolID,Integer)
37949             If (Original_AccountName Is Nothing) Then
37950                 Throw New Global.System.ArgumentNullException("Original_AccountName")
37951             Else
37952                 Me.Adapter.DeleteCommand.Parameters(18).Value = CType(Original_AccountName,String)
37953             End If
37954             If (Original_AccountNumber Is Nothing) Then
37955                 Throw New Global.System.ArgumentNullException("Original_AccountNumber")
37956             Else
37957                 Me.Adapter.DeleteCommand.Parameters(19).Value = CType(Original_AccountNumber,String)
37958             End If
37959             If (Original_Bank Is Nothing) Then
37960                 Throw New Global.System.ArgumentNullException("Original_Bank")
37961             Else
37962                 Me.Adapter.DeleteCommand.Parameters(20).Value = CType(Original_Bank,String)
37963             End If
37964             If (Original_Branch Is Nothing) Then
37965                 Throw New Global.System.ArgumentNullException("Original_Branch")
37966             Else
37967                 Me.Adapter.DeleteCommand.Parameters(21).Value = CType(Original_Branch,String)
37968             End If
37969             If (Original_IFSCcode Is Nothing) Then
37970                 Me.Adapter.DeleteCommand.Parameters(22).Value = CType(1,Object)
37971                 Me.Adapter.DeleteCommand.Parameters(23).Value = Global.System.DBNull.Value
37972             Else
37973                 Me.Adapter.DeleteCommand.Parameters(22).Value = CType(0,Object)
37974                 Me.Adapter.DeleteCommand.Parameters(23).Value = CType(Original_IFSCcode,String)
37975             End If
37976             If (Original_Status Is Nothing) Then
37977                 Throw New Global.System.ArgumentNullException("Original_Status")
37978             Else
37979                 Me.Adapter.DeleteCommand.Parameters(24).Value = CType(Original_Status,String)
37980             End If
37981             Me.Adapter.DeleteCommand.Parameters(25).Value = CType(Original_Salary,Decimal)
37982             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
37983             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
37984                         <> Global.System.Data.ConnectionState.Open) Then
37985                 Me.Adapter.DeleteCommand.Connection.Open
37986             End If
37987             Try
37988                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
37989                 Return returnValue
37990             Finally
37991                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
37992                     Me.Adapter.DeleteCommand.Connection.Close
37993                 End If
37994             End Try
37995         End Function
37996         
37997         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
37998          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
37999          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
38000          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
38001         Public Overloads Overridable Function Insert( _
38002                     ByVal St_ID As Integer, _
38003                     ByVal StaffID As String, _
38004                     ByVal StaffName As String, _
38005                     ByVal DateOfJoining As Date, _
38006                     ByVal Gender As String, _
38007                     ByVal FatherName As String, _
38008                     ByVal TemporaryAddress As String, _
38009                     ByVal PermanentAddress As String, _
38010                     ByVal Designation As String, _
38011                     ByVal Qualifications As String, _
38012                     ByVal DOB As Date, _
38013                     ByVal PhoneNo As String, _
38014                     ByVal MobileNo As String, _
38015                     ByVal Email As String, _
38016                     ByVal Photo() As Byte, _
38017                     ByVal ClassType As String, _
38018                     ByVal SchoolID As Integer, _
38019                     ByVal AccountName As String, _
38020                     ByVal AccountNumber As String, _
38021                     ByVal Bank As String, _
38022                     ByVal Branch As String, _
38023                     ByVal IFSCcode As String, _
38024                     ByVal Status As String, _
38025                     ByVal Salary As Decimal) As Integer
38026             Me.Adapter.InsertCommand.Parameters(0).Value = CType(St_ID,Integer)
38027             If (StaffID Is Nothing) Then
38028                 Throw New Global.System.ArgumentNullException("StaffID")
38029             Else
38030                 Me.Adapter.InsertCommand.Parameters(1).Value = CType(StaffID,String)
38031             End If
38032             If (StaffName Is Nothing) Then
38033                 Throw New Global.System.ArgumentNullException("StaffName")
38034             Else
38035                 Me.Adapter.InsertCommand.Parameters(2).Value = CType(StaffName,String)
38036             End If
38037             Me.Adapter.InsertCommand.Parameters(3).Value = CType(DateOfJoining,Date)
38038             If (Gender Is Nothing) Then
38039                 Throw New Global.System.ArgumentNullException("Gender")
38040             Else
38041                 Me.Adapter.InsertCommand.Parameters(4).Value = CType(Gender,String)
38042             End If
38043             If (FatherName Is Nothing) Then
38044                 Throw New Global.System.ArgumentNullException("FatherName")
38045             Else
38046                 Me.Adapter.InsertCommand.Parameters(5).Value = CType(FatherName,String)
38047             End If
38048             If (TemporaryAddress Is Nothing) Then
38049                 Throw New Global.System.ArgumentNullException("TemporaryAddress")
38050             Else
38051                 Me.Adapter.InsertCommand.Parameters(6).Value = CType(TemporaryAddress,String)
38052             End If
38053             If (PermanentAddress Is Nothing) Then
38054                 Throw New Global.System.ArgumentNullException("PermanentAddress")
38055             Else
38056                 Me.Adapter.InsertCommand.Parameters(7).Value = CType(PermanentAddress,String)
38057             End If
38058             If (Designation Is Nothing) Then
38059                 Throw New Global.System.ArgumentNullException("Designation")
38060             Else
38061                 Me.Adapter.InsertCommand.Parameters(8).Value = CType(Designation,String)
38062             End If
38063             If (Qualifications Is Nothing) Then
38064                 Throw New Global.System.ArgumentNullException("Qualifications")
38065             Else
38066                 Me.Adapter.InsertCommand.Parameters(9).Value = CType(Qualifications,String)
38067             End If
38068             Me.Adapter.InsertCommand.Parameters(10).Value = CType(DOB,Date)
38069             If (PhoneNo Is Nothing) Then
38070                 Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value
38071             Else
38072                 Me.Adapter.InsertCommand.Parameters(11).Value = CType(PhoneNo,String)
38073             End If
38074             If (MobileNo Is Nothing) Then
38075                 Throw New Global.System.ArgumentNullException("MobileNo")
38076             Else
38077                 Me.Adapter.InsertCommand.Parameters(12).Value = CType(MobileNo,String)
38078             End If
38079             If (Email Is Nothing) Then
38080                 Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value
38081             Else
38082                 Me.Adapter.InsertCommand.Parameters(13).Value = CType(Email,String)
38083             End If
38084             If (Photo Is Nothing) Then
38085                 Throw New Global.System.ArgumentNullException("Photo")
38086             Else
38087                 Me.Adapter.InsertCommand.Parameters(14).Value = CType(Photo,Byte())
38088             End If
38089             If (ClassType Is Nothing) Then
38090                 Throw New Global.System.ArgumentNullException("ClassType")
38091             Else
38092                 Me.Adapter.InsertCommand.Parameters(15).Value = CType(ClassType,String)
38093             End If
38094             Me.Adapter.InsertCommand.Parameters(16).Value = CType(SchoolID,Integer)
38095             If (AccountName Is Nothing) Then
38096                 Throw New Global.System.ArgumentNullException("AccountName")
38097             Else
38098                 Me.Adapter.InsertCommand.Parameters(17).Value = CType(AccountName,String)
38099             End If
38100             If (AccountNumber Is Nothing) Then
38101                 Throw New Global.System.ArgumentNullException("AccountNumber")
38102             Else
38103                 Me.Adapter.InsertCommand.Parameters(18).Value = CType(AccountNumber,String)
38104             End If
38105             If (Bank Is Nothing) Then
38106                 Throw New Global.System.ArgumentNullException("Bank")
38107             Else
38108                 Me.Adapter.InsertCommand.Parameters(19).Value = CType(Bank,String)
38109             End If
38110             If (Branch Is Nothing) Then
38111                 Throw New Global.System.ArgumentNullException("Branch")
38112             Else
38113                 Me.Adapter.InsertCommand.Parameters(20).Value = CType(Branch,String)
38114             End If
38115             If (IFSCcode Is Nothing) Then
38116                 Me.Adapter.InsertCommand.Parameters(21).Value = Global.System.DBNull.Value
38117             Else
38118                 Me.Adapter.InsertCommand.Parameters(21).Value = CType(IFSCcode,String)
38119             End If
38120             If (Status Is Nothing) Then
38121                 Throw New Global.System.ArgumentNullException("Status")
38122             Else
38123                 Me.Adapter.InsertCommand.Parameters(22).Value = CType(Status,String)
38124             End If
38125             Me.Adapter.InsertCommand.Parameters(23).Value = CType(Salary,Decimal)
38126             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
38127             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
38128                         <> Global.System.Data.ConnectionState.Open) Then
38129                 Me.Adapter.InsertCommand.Connection.Open
38130             End If
38131             Try
38132                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
38133                 Return returnValue
38134             Finally
38135                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
38136                     Me.Adapter.InsertCommand.Connection.Close
38137                 End If
38138             End Try
38139         End Function
38140         
38141         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
38142          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
38143          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
38144          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
38145         Public Overloads Overridable Function Update( _
38146                     ByVal St_ID As Integer, _
38147                     ByVal StaffID As String, _
38148                     ByVal StaffName As String, _
38149                     ByVal DateOfJoining As Date, _
38150                     ByVal Gender As String, _
38151                     ByVal FatherName As String, _
38152                     ByVal TemporaryAddress As String, _
38153                     ByVal PermanentAddress As String, _
38154                     ByVal Designation As String, _
38155                     ByVal Qualifications As String, _
38156                     ByVal DOB As Date, _
38157                     ByVal PhoneNo As String, _
38158                     ByVal MobileNo As String, _
38159                     ByVal Email As String, _
38160                     ByVal Photo() As Byte, _
38161                     ByVal ClassType As String, _
38162                     ByVal SchoolID As Integer, _
38163                     ByVal AccountName As String, _
38164                     ByVal AccountNumber As String, _
38165                     ByVal Bank As String, _
38166                     ByVal Branch As String, _
38167                     ByVal IFSCcode As String, _
38168                     ByVal Status As String, _
38169                     ByVal Salary As Decimal, _
38170                     ByVal Original_St_ID As Integer, _
38171                     ByVal Original_StaffID As String, _
38172                     ByVal Original_StaffName As String, _
38173                     ByVal Original_DateOfJoining As Date, _
38174                     ByVal Original_Gender As String, _
38175                     ByVal Original_FatherName As String, _
38176                     ByVal Original_TemporaryAddress As String, _
38177                     ByVal Original_PermanentAddress As String, _
38178                     ByVal Original_Designation As String, _
38179                     ByVal Original_Qualifications As String, _
38180                     ByVal Original_DOB As Date, _
38181                     ByVal Original_PhoneNo As String, _
38182                     ByVal Original_MobileNo As String, _
38183                     ByVal Original_Email As String, _
38184                     ByVal Original_ClassType As String, _
38185                     ByVal Original_SchoolID As Integer, _
38186                     ByVal Original_AccountName As String, _
38187                     ByVal Original_AccountNumber As String, _
38188                     ByVal Original_Bank As String, _
38189                     ByVal Original_Branch As String, _
38190                     ByVal Original_IFSCcode As String, _
38191                     ByVal Original_Status As String, _
38192                     ByVal Original_Salary As Decimal) As Integer
38193             Me.Adapter.UpdateCommand.Parameters(0).Value = CType(St_ID,Integer)
38194             If (StaffID Is Nothing) Then
38195                 Throw New Global.System.ArgumentNullException("StaffID")
38196             Else
38197                 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(StaffID,String)
38198             End If
38199             If (StaffName Is Nothing) Then
38200                 Throw New Global.System.ArgumentNullException("StaffName")
38201             Else
38202                 Me.Adapter.UpdateCommand.Parameters(2).Value = CType(StaffName,String)
38203             End If
38204             Me.Adapter.UpdateCommand.Parameters(3).Value = CType(DateOfJoining,Date)
38205             If (Gender Is Nothing) Then
38206                 Throw New Global.System.ArgumentNullException("Gender")
38207             Else
38208                 Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Gender,String)
38209             End If
38210             If (FatherName Is Nothing) Then
38211                 Throw New Global.System.ArgumentNullException("FatherName")
38212             Else
38213                 Me.Adapter.UpdateCommand.Parameters(5).Value = CType(FatherName,String)
38214             End If
38215             If (TemporaryAddress Is Nothing) Then
38216                 Throw New Global.System.ArgumentNullException("TemporaryAddress")
38217             Else
38218                 Me.Adapter.UpdateCommand.Parameters(6).Value = CType(TemporaryAddress,String)
38219             End If
38220             If (PermanentAddress Is Nothing) Then
38221                 Throw New Global.System.ArgumentNullException("PermanentAddress")
38222             Else
38223                 Me.Adapter.UpdateCommand.Parameters(7).Value = CType(PermanentAddress,String)
38224             End If
38225             If (Designation Is Nothing) Then
38226                 Throw New Global.System.ArgumentNullException("Designation")
38227             Else
38228                 Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Designation,String)
38229             End If
38230             If (Qualifications Is Nothing) Then
38231                 Throw New Global.System.ArgumentNullException("Qualifications")
38232             Else
38233                 Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Qualifications,String)
38234             End If
38235             Me.Adapter.UpdateCommand.Parameters(10).Value = CType(DOB,Date)
38236             If (PhoneNo Is Nothing) Then
38237                 Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value
38238             Else
38239                 Me.Adapter.UpdateCommand.Parameters(11).Value = CType(PhoneNo,String)
38240             End If
38241             If (MobileNo Is Nothing) Then
38242                 Throw New Global.System.ArgumentNullException("MobileNo")
38243             Else
38244                 Me.Adapter.UpdateCommand.Parameters(12).Value = CType(MobileNo,String)
38245             End If
38246             If (Email Is Nothing) Then
38247                 Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value
38248             Else
38249                 Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Email,String)
38250             End If
38251             If (Photo Is Nothing) Then
38252                 Throw New Global.System.ArgumentNullException("Photo")
38253             Else
38254                 Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Photo,Byte())
38255             End If
38256             If (ClassType Is Nothing) Then
38257                 Throw New Global.System.ArgumentNullException("ClassType")
38258             Else
38259                 Me.Adapter.UpdateCommand.Parameters(15).Value = CType(ClassType,String)
38260             End If
38261             Me.Adapter.UpdateCommand.Parameters(16).Value = CType(SchoolID,Integer)
38262             If (AccountName Is Nothing) Then
38263                 Throw New Global.System.ArgumentNullException("AccountName")
38264             Else
38265                 Me.Adapter.UpdateCommand.Parameters(17).Value = CType(AccountName,String)
38266             End If
38267             If (AccountNumber Is Nothing) Then
38268                 Throw New Global.System.ArgumentNullException("AccountNumber")
38269             Else
38270                 Me.Adapter.UpdateCommand.Parameters(18).Value = CType(AccountNumber,String)
38271             End If
38272             If (Bank Is Nothing) Then
38273                 Throw New Global.System.ArgumentNullException("Bank")
38274             Else
38275                 Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Bank,String)
38276             End If
38277             If (Branch Is Nothing) Then
38278                 Throw New Global.System.ArgumentNullException("Branch")
38279             Else
38280                 Me.Adapter.UpdateCommand.Parameters(20).Value = CType(Branch,String)
38281             End If
38282             If (IFSCcode Is Nothing) Then
38283                 Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value
38284             Else
38285                 Me.Adapter.UpdateCommand.Parameters(21).Value = CType(IFSCcode,String)
38286             End If
38287             If (Status Is Nothing) Then
38288                 Throw New Global.System.ArgumentNullException("Status")
38289             Else
38290                 Me.Adapter.UpdateCommand.Parameters(22).Value = CType(Status,String)
38291             End If
38292             Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Salary,Decimal)
38293             Me.Adapter.UpdateCommand.Parameters(24).Value = CType(Original_St_ID,Integer)
38294             If (Original_StaffID Is Nothing) Then
38295                 Throw New Global.System.ArgumentNullException("Original_StaffID")
38296             Else
38297                 Me.Adapter.UpdateCommand.Parameters(25).Value = CType(Original_StaffID,String)
38298             End If
38299             If (Original_StaffName Is Nothing) Then
38300                 Throw New Global.System.ArgumentNullException("Original_StaffName")
38301             Else
38302                 Me.Adapter.UpdateCommand.Parameters(26).Value = CType(Original_StaffName,String)
38303             End If
38304             Me.Adapter.UpdateCommand.Parameters(27).Value = CType(Original_DateOfJoining,Date)
38305             If (Original_Gender Is Nothing) Then
38306                 Throw New Global.System.ArgumentNullException("Original_Gender")
38307             Else
38308                 Me.Adapter.UpdateCommand.Parameters(28).Value = CType(Original_Gender,String)
38309             End If
38310             If (Original_FatherName Is Nothing) Then
38311                 Throw New Global.System.ArgumentNullException("Original_FatherName")
38312             Else
38313                 Me.Adapter.UpdateCommand.Parameters(29).Value = CType(Original_FatherName,String)
38314             End If
38315             If (Original_TemporaryAddress Is Nothing) Then
38316                 Throw New Global.System.ArgumentNullException("Original_TemporaryAddress")
38317             Else
38318                 Me.Adapter.UpdateCommand.Parameters(30).Value = CType(Original_TemporaryAddress,String)
38319             End If
38320             If (Original_PermanentAddress Is Nothing) Then
38321                 Throw New Global.System.ArgumentNullException("Original_PermanentAddress")
38322             Else
38323                 Me.Adapter.UpdateCommand.Parameters(31).Value = CType(Original_PermanentAddress,String)
38324             End If
38325             If (Original_Designation Is Nothing) Then
38326                 Throw New Global.System.ArgumentNullException("Original_Designation")
38327             Else
38328                 Me.Adapter.UpdateCommand.Parameters(32).Value = CType(Original_Designation,String)
38329             End If
38330             If (Original_Qualifications Is Nothing) Then
38331                 Throw New Global.System.ArgumentNullException("Original_Qualifications")
38332             Else
38333                 Me.Adapter.UpdateCommand.Parameters(33).Value = CType(Original_Qualifications,String)
38334             End If
38335             Me.Adapter.UpdateCommand.Parameters(34).Value = CType(Original_DOB,Date)
38336             If (Original_PhoneNo Is Nothing) Then
38337                 Me.Adapter.UpdateCommand.Parameters(35).Value = CType(1,Object)
38338                 Me.Adapter.UpdateCommand.Parameters(36).Value = Global.System.DBNull.Value
38339             Else
38340                 Me.Adapter.UpdateCommand.Parameters(35).Value = CType(0,Object)
38341                 Me.Adapter.UpdateCommand.Parameters(36).Value = CType(Original_PhoneNo,String)
38342             End If
38343             If (Original_MobileNo Is Nothing) Then
38344                 Throw New Global.System.ArgumentNullException("Original_MobileNo")
38345             Else
38346                 Me.Adapter.UpdateCommand.Parameters(37).Value = CType(Original_MobileNo,String)
38347             End If
38348             If (Original_Email Is Nothing) Then
38349                 Me.Adapter.UpdateCommand.Parameters(38).Value = CType(1,Object)
38350                 Me.Adapter.UpdateCommand.Parameters(39).Value = Global.System.DBNull.Value
38351             Else
38352                 Me.Adapter.UpdateCommand.Parameters(38).Value = CType(0,Object)
38353                 Me.Adapter.UpdateCommand.Parameters(39).Value = CType(Original_Email,String)
38354             End If
38355             If (Original_ClassType Is Nothing) Then
38356                 Throw New Global.System.ArgumentNullException("Original_ClassType")
38357             Else
38358                 Me.Adapter.UpdateCommand.Parameters(40).Value = CType(Original_ClassType,String)
38359             End If
38360             Me.Adapter.UpdateCommand.Parameters(41).Value = CType(Original_SchoolID,Integer)
38361             If (Original_AccountName Is Nothing) Then
38362                 Throw New Global.System.ArgumentNullException("Original_AccountName")
38363             Else
38364                 Me.Adapter.UpdateCommand.Parameters(42).Value = CType(Original_AccountName,String)
38365             End If
38366             If (Original_AccountNumber Is Nothing) Then
38367                 Throw New Global.System.ArgumentNullException("Original_AccountNumber")
38368             Else
38369                 Me.Adapter.UpdateCommand.Parameters(43).Value = CType(Original_AccountNumber,String)
38370             End If
38371             If (Original_Bank Is Nothing) Then
38372                 Throw New Global.System.ArgumentNullException("Original_Bank")
38373             Else
38374                 Me.Adapter.UpdateCommand.Parameters(44).Value = CType(Original_Bank,String)
38375             End If
38376             If (Original_Branch Is Nothing) Then
38377                 Throw New Global.System.ArgumentNullException("Original_Branch")
38378             Else
38379                 Me.Adapter.UpdateCommand.Parameters(45).Value = CType(Original_Branch,String)
38380             End If
38381             If (Original_IFSCcode Is Nothing) Then
38382                 Me.Adapter.UpdateCommand.Parameters(46).Value = CType(1,Object)
38383                 Me.Adapter.UpdateCommand.Parameters(47).Value = Global.System.DBNull.Value
38384             Else
38385                 Me.Adapter.UpdateCommand.Parameters(46).Value = CType(0,Object)
38386                 Me.Adapter.UpdateCommand.Parameters(47).Value = CType(Original_IFSCcode,String)
38387             End If
38388             If (Original_Status Is Nothing) Then
38389                 Throw New Global.System.ArgumentNullException("Original_Status")
38390             Else
38391                 Me.Adapter.UpdateCommand.Parameters(48).Value = CType(Original_Status,String)
38392             End If
38393             Me.Adapter.UpdateCommand.Parameters(49).Value = CType(Original_Salary,Decimal)
38394             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
38395             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
38396                         <> Global.System.Data.ConnectionState.Open) Then
38397                 Me.Adapter.UpdateCommand.Connection.Open
38398             End If
38399             Try
38400                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
38401                 Return returnValue
38402             Finally
38403                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
38404                     Me.Adapter.UpdateCommand.Connection.Close
38405                 End If
38406             End Try
38407         End Function
38408         
38409         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
38410          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
38411          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
38412          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
38413         Public Overloads Overridable Function Update( _
38414                     ByVal StaffID As String, _
38415                     ByVal StaffName As String, _
38416                     ByVal DateOfJoining As Date, _
38417                     ByVal Gender As String, _
38418                     ByVal FatherName As String, _
38419                     ByVal TemporaryAddress As String, _
38420                     ByVal PermanentAddress As String, _
38421                     ByVal Designation As String, _
38422                     ByVal Qualifications As String, _
38423                     ByVal DOB As Date, _
38424                     ByVal PhoneNo As String, _
38425                     ByVal MobileNo As String, _
38426                     ByVal Email As String, _
38427                     ByVal Photo() As Byte, _
38428                     ByVal ClassType As String, _
38429                     ByVal SchoolID As Integer, _
38430                     ByVal AccountName As String, _
38431                     ByVal AccountNumber As String, _
38432                     ByVal Bank As String, _
38433                     ByVal Branch As String, _
38434                     ByVal IFSCcode As String, _
38435                     ByVal Status As String, _
38436                     ByVal Salary As Decimal, _
38437                     ByVal Original_St_ID As Integer, _
38438                     ByVal Original_StaffID As String, _
38439                     ByVal Original_StaffName As String, _
38440                     ByVal Original_DateOfJoining As Date, _
38441                     ByVal Original_Gender As String, _
38442                     ByVal Original_FatherName As String, _
38443                     ByVal Original_TemporaryAddress As String, _
38444                     ByVal Original_PermanentAddress As String, _
38445                     ByVal Original_Designation As String, _
38446                     ByVal Original_Qualifications As String, _
38447                     ByVal Original_DOB As Date, _
38448                     ByVal Original_PhoneNo As String, _
38449                     ByVal Original_MobileNo As String, _
38450                     ByVal Original_Email As String, _
38451                     ByVal Original_ClassType As String, _
38452                     ByVal Original_SchoolID As Integer, _
38453                     ByVal Original_AccountName As String, _
38454                     ByVal Original_AccountNumber As String, _
38455                     ByVal Original_Bank As String, _
38456                     ByVal Original_Branch As String, _
38457                     ByVal Original_IFSCcode As String, _
38458                     ByVal Original_Status As String, _
38459                     ByVal Original_Salary As Decimal) As Integer
38460             Return Me.Update(Original_St_ID, StaffID, StaffName, DateOfJoining, Gender, FatherName, TemporaryAddress, PermanentAddress, Designation, Qualifications, DOB, PhoneNo, MobileNo, Email, Photo, ClassType, SchoolID, AccountName, AccountNumber, Bank, Branch, IFSCcode, Status, Salary, Original_St_ID, Original_StaffID, Original_StaffName, Original_DateOfJoining, Original_Gender, Original_FatherName, Original_TemporaryAddress, Original_PermanentAddress, Original_Designation, Original_Qualifications, Original_DOB, Original_PhoneNo, Original_MobileNo, Original_Email, Original_ClassType, Original_SchoolID, Original_AccountName, Original_AccountNumber, Original_Bank, Original_Branch, Original_IFSCcode, Original_Status, Original_Salary)
38461         End Function
38462     End Class
38463     
38464     '''<summary>
38465     '''Represents the connection and commands used to retrieve and save data.
38466     '''</summary>
38467     <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
38468      Global.System.ComponentModel.ToolboxItem(true), _
38469      Global.System.ComponentModel.DataObjectAttribute(true), _
38470      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
38471         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
38472      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
38473     Partial Public Class Staff_DepartmentTableAdapter
38474         Inherits Global.System.ComponentModel.Component
38475         
38476         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
38477         
38478         Private _connection As Global.System.Data.SqlClient.SqlConnection
38479         
38480         Private _transaction As Global.System.Data.SqlClient.SqlTransaction
38481         
38482         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
38483         
38484         Private _clearBeforeFill As Boolean
38485         
38486         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
38487          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
38488         Public Sub New()
38489             MyBase.New
38490             Me.ClearBeforeFill = true
38491         End Sub
38492         
38493         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
38494          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
38495         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
38496             Get
38497                 If (Me._adapter Is Nothing) Then
38498                     Me.InitAdapter
38499                 End If
38500                 Return Me._adapter
38501             End Get
38502         End Property
38503         
38504         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
38505          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
38506         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
38507             Get
38508                 If (Me._connection Is Nothing) Then
38509                     Me.InitConnection
38510                 End If
38511                 Return Me._connection
38512             End Get
38513             Set
38514                 Me._connection = value
38515                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
38516                     Me.Adapter.InsertCommand.Connection = value
38517                 End If
38518                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
38519                     Me.Adapter.DeleteCommand.Connection = value
38520                 End If
38521                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
38522                     Me.Adapter.UpdateCommand.Connection = value
38523                 End If
38524                 Dim i As Integer = 0
38525                 Do While (i < Me.CommandCollection.Length)
38526                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
38527                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
38528                     End If
38529                     i = (i + 1)
38530                 Loop
38531             End Set
38532         End Property
38533         
38534         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
38535          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
38536         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
38537             Get
38538                 Return Me._transaction
38539             End Get
38540             Set
38541                 Me._transaction = value
38542                 Dim i As Integer = 0
38543                 Do While (i < Me.CommandCollection.Length)
38544                     Me.CommandCollection(i).Transaction = Me._transaction
38545                     i = (i + 1)
38546                 Loop
38547                 If ((Not (Me.Adapter) Is Nothing) _
38548                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
38549                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
38550                 End If
38551                 If ((Not (Me.Adapter) Is Nothing) _
38552                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
38553                     Me.Adapter.InsertCommand.Transaction = Me._transaction
38554                 End If
38555                 If ((Not (Me.Adapter) Is Nothing) _
38556                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
38557                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
38558                 End If
38559             End Set
38560         End Property
38561         
38562         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
38563          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
38564         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
38565             Get
38566                 If (Me._commandCollection Is Nothing) Then
38567                     Me.InitCommandCollection
38568                 End If
38569                 Return Me._commandCollection
38570             End Get
38571         End Property
38572         
38573         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
38574          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
38575         Public Property ClearBeforeFill() As Boolean
38576             Get
38577                 Return Me._clearBeforeFill
38578             End Get
38579             Set
38580                 Me._clearBeforeFill = value
38581             End Set
38582         End Property
38583         
38584         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
38585          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
38586         Private Sub InitAdapter()
38587             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
38588             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
38589             tableMapping.SourceTable = "Table"
38590             tableMapping.DataSetTable = "Staff_Department"
38591             tableMapping.ColumnMappings.Add("SD_ID", "SD_ID")
38592             tableMapping.ColumnMappings.Add("DepartmentID", "DepartmentID")
38593             tableMapping.ColumnMappings.Add("StaffID", "StaffID")
38594             Me._adapter.TableMappings.Add(tableMapping)
38595             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
38596             Me._adapter.DeleteCommand.Connection = Me.Connection
38597             Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[Staff_Department] WHERE (([SD_ID] = @Original_SD_ID) AND ([Dep"& _
38598                 "artmentID] = @Original_DepartmentID) AND ([StaffID] = @Original_StaffID))"
38599             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
38600             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SD_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SD_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
38601             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DepartmentID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DepartmentID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
38602             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_StaffID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "StaffID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
38603             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
38604             Me._adapter.InsertCommand.Connection = Me.Connection
38605             Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[Staff_Department] ([DepartmentID], [StaffID]) VALUES (@Departm"& _
38606                 "entID, @StaffID);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT SD_ID, DepartmentID, StaffID FROM Staff_Department WHE"& _
38607                 "RE (SD_ID = SCOPE_IDENTITY())"
38608             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
38609             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DepartmentID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DepartmentID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
38610             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@StaffID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "StaffID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
38611             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
38612             Me._adapter.UpdateCommand.Connection = Me.Connection
38613             Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[Staff_Department] SET [DepartmentID] = @DepartmentID, [StaffID] = @"& _
38614                 "StaffID WHERE (([SD_ID] = @Original_SD_ID) AND ([DepartmentID] = @Original_Depar"& _
38615                 "tmentID) AND ([StaffID] = @Original_StaffID));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT SD_ID, DepartmentID, Staf"& _
38616                 "fID FROM Staff_Department WHERE (SD_ID = @SD_ID)"
38617             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
38618             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DepartmentID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DepartmentID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
38619             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@StaffID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "StaffID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
38620             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SD_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SD_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
38621             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DepartmentID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DepartmentID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
38622             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_StaffID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "StaffID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
38623             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SD_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SD_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
38624         End Sub
38625         
38626         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
38627          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
38628         Private Sub InitConnection()
38629             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
38630             Me._connection.ConnectionString = Global.ERP_System.My.MySettings.Default.ERPS_DBConnectionString
38631         End Sub
38632         
38633         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
38634          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
38635         Private Sub InitCommandCollection()
38636             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
38637             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
38638             Me._commandCollection(0).Connection = Me.Connection
38639             Me._commandCollection(0).CommandText = "SELECT SD_ID, DepartmentID, StaffID FROM dbo.Staff_Department"
38640             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
38641         End Sub
38642         
38643         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
38644          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
38645          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
38646          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
38647         Public Overloads Overridable Function Fill(ByVal dataTable As ERPS_DBDataSet1.Staff_DepartmentDataTable) As Integer
38648             Me.Adapter.SelectCommand = Me.CommandCollection(0)
38649             If (Me.ClearBeforeFill = true) Then
38650                 dataTable.Clear
38651             End If
38652             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
38653             Return returnValue
38654         End Function
38655         
38656         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
38657          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
38658          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
38659          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
38660         Public Overloads Overridable Function GetData() As ERPS_DBDataSet1.Staff_DepartmentDataTable
38661             Me.Adapter.SelectCommand = Me.CommandCollection(0)
38662             Dim dataTable As ERPS_DBDataSet1.Staff_DepartmentDataTable = New ERPS_DBDataSet1.Staff_DepartmentDataTable()
38663             Me.Adapter.Fill(dataTable)
38664             Return dataTable
38665         End Function
38666         
38667         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
38668          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
38669          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
38670         Public Overloads Overridable Function Update(ByVal dataTable As ERPS_DBDataSet1.Staff_DepartmentDataTable) As Integer
38671             Return Me.Adapter.Update(dataTable)
38672         End Function
38673         
38674         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
38675          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
38676          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
38677         Public Overloads Overridable Function Update(ByVal dataSet As ERPS_DBDataSet1) As Integer
38678             Return Me.Adapter.Update(dataSet, "Staff_Department")
38679         End Function
38680         
38681         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
38682          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
38683          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
38684         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
38685             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
38686         End Function
38687         
38688         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
38689          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
38690          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
38691         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
38692             Return Me.Adapter.Update(dataRows)
38693         End Function
38694         
38695         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
38696          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
38697          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
38698          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
38699         Public Overloads Overridable Function Delete(ByVal Original_SD_ID As Integer, ByVal Original_DepartmentID As Integer, ByVal Original_StaffID As Integer) As Integer
38700             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_SD_ID,Integer)
38701             Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_DepartmentID,Integer)
38702             Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_StaffID,Integer)
38703             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
38704             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
38705                         <> Global.System.Data.ConnectionState.Open) Then
38706                 Me.Adapter.DeleteCommand.Connection.Open
38707             End If
38708             Try
38709                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
38710                 Return returnValue
38711             Finally
38712                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
38713                     Me.Adapter.DeleteCommand.Connection.Close
38714                 End If
38715             End Try
38716         End Function
38717         
38718         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
38719          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
38720          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
38721          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
38722         Public Overloads Overridable Function Insert(ByVal DepartmentID As Integer, ByVal StaffID As Integer) As Integer
38723             Me.Adapter.InsertCommand.Parameters(0).Value = CType(DepartmentID,Integer)
38724             Me.Adapter.InsertCommand.Parameters(1).Value = CType(StaffID,Integer)
38725             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
38726             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
38727                         <> Global.System.Data.ConnectionState.Open) Then
38728                 Me.Adapter.InsertCommand.Connection.Open
38729             End If
38730             Try
38731                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
38732                 Return returnValue
38733             Finally
38734                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
38735                     Me.Adapter.InsertCommand.Connection.Close
38736                 End If
38737             End Try
38738         End Function
38739         
38740         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
38741          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
38742          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
38743          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
38744         Public Overloads Overridable Function Update(ByVal DepartmentID As Integer, ByVal StaffID As Integer, ByVal Original_SD_ID As Integer, ByVal Original_DepartmentID As Integer, ByVal Original_StaffID As Integer, ByVal SD_ID As Integer) As Integer
38745             Me.Adapter.UpdateCommand.Parameters(0).Value = CType(DepartmentID,Integer)
38746             Me.Adapter.UpdateCommand.Parameters(1).Value = CType(StaffID,Integer)
38747             Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Original_SD_ID,Integer)
38748             Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_DepartmentID,Integer)
38749             Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_StaffID,Integer)
38750             Me.Adapter.UpdateCommand.Parameters(5).Value = CType(SD_ID,Integer)
38751             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
38752             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
38753                         <> Global.System.Data.ConnectionState.Open) Then
38754                 Me.Adapter.UpdateCommand.Connection.Open
38755             End If
38756             Try
38757                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
38758                 Return returnValue
38759             Finally
38760                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
38761                     Me.Adapter.UpdateCommand.Connection.Close
38762                 End If
38763             End Try
38764         End Function
38765         
38766         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
38767          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
38768          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
38769          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
38770         Public Overloads Overridable Function Update(ByVal DepartmentID As Integer, ByVal StaffID As Integer, ByVal Original_SD_ID As Integer, ByVal Original_DepartmentID As Integer, ByVal Original_StaffID As Integer) As Integer
38771             Return Me.Update(DepartmentID, StaffID, Original_SD_ID, Original_DepartmentID, Original_StaffID, Original_SD_ID)
38772         End Function
38773     End Class
38774     
38775     '''<summary>
38776     '''Represents the connection and commands used to retrieve and save data.
38777     '''</summary>
38778     <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
38779      Global.System.ComponentModel.ToolboxItem(true), _
38780      Global.System.ComponentModel.DataObjectAttribute(true), _
38781      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
38782         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
38783      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
38784     Partial Public Class StaffAttendanceTableAdapter
38785         Inherits Global.System.ComponentModel.Component
38786         
38787         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
38788         
38789         Private _connection As Global.System.Data.SqlClient.SqlConnection
38790         
38791         Private _transaction As Global.System.Data.SqlClient.SqlTransaction
38792         
38793         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
38794         
38795         Private _clearBeforeFill As Boolean
38796         
38797         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
38798          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
38799         Public Sub New()
38800             MyBase.New
38801             Me.ClearBeforeFill = true
38802         End Sub
38803         
38804         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
38805          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
38806         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
38807             Get
38808                 If (Me._adapter Is Nothing) Then
38809                     Me.InitAdapter
38810                 End If
38811                 Return Me._adapter
38812             End Get
38813         End Property
38814         
38815         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
38816          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
38817         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
38818             Get
38819                 If (Me._connection Is Nothing) Then
38820                     Me.InitConnection
38821                 End If
38822                 Return Me._connection
38823             End Get
38824             Set
38825                 Me._connection = value
38826                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
38827                     Me.Adapter.InsertCommand.Connection = value
38828                 End If
38829                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
38830                     Me.Adapter.DeleteCommand.Connection = value
38831                 End If
38832                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
38833                     Me.Adapter.UpdateCommand.Connection = value
38834                 End If
38835                 Dim i As Integer = 0
38836                 Do While (i < Me.CommandCollection.Length)
38837                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
38838                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
38839                     End If
38840                     i = (i + 1)
38841                 Loop
38842             End Set
38843         End Property
38844         
38845         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
38846          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
38847         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
38848             Get
38849                 Return Me._transaction
38850             End Get
38851             Set
38852                 Me._transaction = value
38853                 Dim i As Integer = 0
38854                 Do While (i < Me.CommandCollection.Length)
38855                     Me.CommandCollection(i).Transaction = Me._transaction
38856                     i = (i + 1)
38857                 Loop
38858                 If ((Not (Me.Adapter) Is Nothing) _
38859                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
38860                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
38861                 End If
38862                 If ((Not (Me.Adapter) Is Nothing) _
38863                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
38864                     Me.Adapter.InsertCommand.Transaction = Me._transaction
38865                 End If
38866                 If ((Not (Me.Adapter) Is Nothing) _
38867                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
38868                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
38869                 End If
38870             End Set
38871         End Property
38872         
38873         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
38874          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
38875         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
38876             Get
38877                 If (Me._commandCollection Is Nothing) Then
38878                     Me.InitCommandCollection
38879                 End If
38880                 Return Me._commandCollection
38881             End Get
38882         End Property
38883         
38884         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
38885          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
38886         Public Property ClearBeforeFill() As Boolean
38887             Get
38888                 Return Me._clearBeforeFill
38889             End Get
38890             Set
38891                 Me._clearBeforeFill = value
38892             End Set
38893         End Property
38894         
38895         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
38896          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
38897         Private Sub InitAdapter()
38898             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
38899             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
38900             tableMapping.SourceTable = "Table"
38901             tableMapping.DataSetTable = "StaffAttendance"
38902             tableMapping.ColumnMappings.Add("Id", "Id")
38903             tableMapping.ColumnMappings.Add("WorkingDate", "WorkingDate")
38904             tableMapping.ColumnMappings.Add("StaffID", "StaffID")
38905             tableMapping.ColumnMappings.Add("Status", "Status")
38906             tableMapping.ColumnMappings.Add("InTime", "InTime")
38907             tableMapping.ColumnMappings.Add("OutTime", "OutTime")
38908             Me._adapter.TableMappings.Add(tableMapping)
38909             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
38910             Me._adapter.DeleteCommand.Connection = Me.Connection
38911             Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[StaffAttendance] WHERE (([Id] = @Original_Id) AND ([WorkingDat"& _
38912                 "e] = @Original_WorkingDate) AND ([StaffID] = @Original_StaffID) AND ([Status] = "& _
38913                 "@Original_Status) AND ([InTime] = @Original_InTime) AND ([OutTime] = @Original_O"& _
38914                 "utTime))"
38915             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
38916             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
38917             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_WorkingDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WorkingDate", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
38918             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_StaffID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "StaffID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
38919             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Status", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Status", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
38920             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_InTime", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "InTime", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
38921             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_OutTime", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OutTime", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
38922             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
38923             Me._adapter.InsertCommand.Connection = Me.Connection
38924             Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[StaffAttendance] ([Id], [WorkingDate], [StaffID], [Status], [I"& _
38925                 "nTime], [OutTime]) VALUES (@Id, @WorkingDate, @StaffID, @Status, @InTime, @OutTi"& _
38926                 "me);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Id, WorkingDate, StaffID, Status, InTime, OutTime FROM StaffAttenda"& _
38927                 "nce WHERE (Id = @Id)"
38928             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
38929             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
38930             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WorkingDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WorkingDate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
38931             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@StaffID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "StaffID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
38932             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Status", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Status", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
38933             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@InTime", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "InTime", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
38934             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OutTime", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OutTime", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
38935             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
38936             Me._adapter.UpdateCommand.Connection = Me.Connection
38937             Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[StaffAttendance] SET [Id] = @Id, [WorkingDate] = @WorkingDate, [Sta"& _
38938                 "ffID] = @StaffID, [Status] = @Status, [InTime] = @InTime, [OutTime] = @OutTime W"& _
38939                 "HERE (([Id] = @Original_Id) AND ([WorkingDate] = @Original_WorkingDate) AND ([St"& _
38940                 "affID] = @Original_StaffID) AND ([Status] = @Original_Status) AND ([InTime] = @O"& _
38941                 "riginal_InTime) AND ([OutTime] = @Original_OutTime));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Id, WorkingDate, S"& _
38942                 "taffID, Status, InTime, OutTime FROM StaffAttendance WHERE (Id = @Id)"
38943             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
38944             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
38945             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WorkingDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WorkingDate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
38946             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@StaffID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "StaffID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
38947             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Status", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Status", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
38948             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@InTime", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "InTime", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
38949             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OutTime", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OutTime", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
38950             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
38951             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_WorkingDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WorkingDate", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
38952             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_StaffID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "StaffID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
38953             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Status", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Status", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
38954             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_InTime", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "InTime", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
38955             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_OutTime", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OutTime", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
38956         End Sub
38957         
38958         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
38959          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
38960         Private Sub InitConnection()
38961             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
38962             Me._connection.ConnectionString = Global.ERP_System.My.MySettings.Default.ERPS_DBConnectionString
38963         End Sub
38964         
38965         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
38966          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
38967         Private Sub InitCommandCollection()
38968             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
38969             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
38970             Me._commandCollection(0).Connection = Me.Connection
38971             Me._commandCollection(0).CommandText = "SELECT Id, WorkingDate, StaffID, Status, InTime, OutTime FROM dbo.StaffAttendance"& _
38972                 ""
38973             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
38974         End Sub
38975         
38976         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
38977          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
38978          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
38979          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
38980         Public Overloads Overridable Function Fill(ByVal dataTable As ERPS_DBDataSet1.StaffAttendanceDataTable) As Integer
38981             Me.Adapter.SelectCommand = Me.CommandCollection(0)
38982             If (Me.ClearBeforeFill = true) Then
38983                 dataTable.Clear
38984             End If
38985             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
38986             Return returnValue
38987         End Function
38988         
38989         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
38990          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
38991          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
38992          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
38993         Public Overloads Overridable Function GetData() As ERPS_DBDataSet1.StaffAttendanceDataTable
38994             Me.Adapter.SelectCommand = Me.CommandCollection(0)
38995             Dim dataTable As ERPS_DBDataSet1.StaffAttendanceDataTable = New ERPS_DBDataSet1.StaffAttendanceDataTable()
38996             Me.Adapter.Fill(dataTable)
38997             Return dataTable
38998         End Function
38999         
39000         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
39001          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
39002          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
39003         Public Overloads Overridable Function Update(ByVal dataTable As ERPS_DBDataSet1.StaffAttendanceDataTable) As Integer
39004             Return Me.Adapter.Update(dataTable)
39005         End Function
39006         
39007         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
39008          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
39009          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
39010         Public Overloads Overridable Function Update(ByVal dataSet As ERPS_DBDataSet1) As Integer
39011             Return Me.Adapter.Update(dataSet, "StaffAttendance")
39012         End Function
39013         
39014         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
39015          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
39016          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
39017         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
39018             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
39019         End Function
39020         
39021         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
39022          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
39023          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
39024         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
39025             Return Me.Adapter.Update(dataRows)
39026         End Function
39027         
39028         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
39029          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
39030          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
39031          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
39032         Public Overloads Overridable Function Delete(ByVal Original_Id As Integer, ByVal Original_WorkingDate As Date, ByVal Original_StaffID As Integer, ByVal Original_Status As String, ByVal Original_InTime As String, ByVal Original_OutTime As String) As Integer
39033             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_Id,Integer)
39034             Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_WorkingDate,Date)
39035             Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_StaffID,Integer)
39036             If (Original_Status Is Nothing) Then
39037                 Throw New Global.System.ArgumentNullException("Original_Status")
39038             Else
39039                 Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_Status,String)
39040             End If
39041             If (Original_InTime Is Nothing) Then
39042                 Throw New Global.System.ArgumentNullException("Original_InTime")
39043             Else
39044                 Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_InTime,String)
39045             End If
39046             If (Original_OutTime Is Nothing) Then
39047                 Throw New Global.System.ArgumentNullException("Original_OutTime")
39048             Else
39049                 Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_OutTime,String)
39050             End If
39051             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
39052             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
39053                         <> Global.System.Data.ConnectionState.Open) Then
39054                 Me.Adapter.DeleteCommand.Connection.Open
39055             End If
39056             Try
39057                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
39058                 Return returnValue
39059             Finally
39060                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
39061                     Me.Adapter.DeleteCommand.Connection.Close
39062                 End If
39063             End Try
39064         End Function
39065         
39066         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
39067          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
39068          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
39069          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
39070         Public Overloads Overridable Function Insert(ByVal Id As Integer, ByVal WorkingDate As Date, ByVal StaffID As Integer, ByVal Status As String, ByVal InTime As String, ByVal OutTime As String) As Integer
39071             Me.Adapter.InsertCommand.Parameters(0).Value = CType(Id,Integer)
39072             Me.Adapter.InsertCommand.Parameters(1).Value = CType(WorkingDate,Date)
39073             Me.Adapter.InsertCommand.Parameters(2).Value = CType(StaffID,Integer)
39074             If (Status Is Nothing) Then
39075                 Throw New Global.System.ArgumentNullException("Status")
39076             Else
39077                 Me.Adapter.InsertCommand.Parameters(3).Value = CType(Status,String)
39078             End If
39079             If (InTime Is Nothing) Then
39080                 Throw New Global.System.ArgumentNullException("InTime")
39081             Else
39082                 Me.Adapter.InsertCommand.Parameters(4).Value = CType(InTime,String)
39083             End If
39084             If (OutTime Is Nothing) Then
39085                 Throw New Global.System.ArgumentNullException("OutTime")
39086             Else
39087                 Me.Adapter.InsertCommand.Parameters(5).Value = CType(OutTime,String)
39088             End If
39089             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
39090             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
39091                         <> Global.System.Data.ConnectionState.Open) Then
39092                 Me.Adapter.InsertCommand.Connection.Open
39093             End If
39094             Try
39095                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
39096                 Return returnValue
39097             Finally
39098                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
39099                     Me.Adapter.InsertCommand.Connection.Close
39100                 End If
39101             End Try
39102         End Function
39103         
39104         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
39105          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
39106          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
39107          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
39108         Public Overloads Overridable Function Update(ByVal Id As Integer, ByVal WorkingDate As Date, ByVal StaffID As Integer, ByVal Status As String, ByVal InTime As String, ByVal OutTime As String, ByVal Original_Id As Integer, ByVal Original_WorkingDate As Date, ByVal Original_StaffID As Integer, ByVal Original_Status As String, ByVal Original_InTime As String, ByVal Original_OutTime As String) As Integer
39109             Me.Adapter.UpdateCommand.Parameters(0).Value = CType(Id,Integer)
39110             Me.Adapter.UpdateCommand.Parameters(1).Value = CType(WorkingDate,Date)
39111             Me.Adapter.UpdateCommand.Parameters(2).Value = CType(StaffID,Integer)
39112             If (Status Is Nothing) Then
39113                 Throw New Global.System.ArgumentNullException("Status")
39114             Else
39115                 Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Status,String)
39116             End If
39117             If (InTime Is Nothing) Then
39118                 Throw New Global.System.ArgumentNullException("InTime")
39119             Else
39120                 Me.Adapter.UpdateCommand.Parameters(4).Value = CType(InTime,String)
39121             End If
39122             If (OutTime Is Nothing) Then
39123                 Throw New Global.System.ArgumentNullException("OutTime")
39124             Else
39125                 Me.Adapter.UpdateCommand.Parameters(5).Value = CType(OutTime,String)
39126             End If
39127             Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_Id,Integer)
39128             Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_WorkingDate,Date)
39129             Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_StaffID,Integer)
39130             If (Original_Status Is Nothing) Then
39131                 Throw New Global.System.ArgumentNullException("Original_Status")
39132             Else
39133                 Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_Status,String)
39134             End If
39135             If (Original_InTime Is Nothing) Then
39136                 Throw New Global.System.ArgumentNullException("Original_InTime")
39137             Else
39138                 Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_InTime,String)
39139             End If
39140             If (Original_OutTime Is Nothing) Then
39141                 Throw New Global.System.ArgumentNullException("Original_OutTime")
39142             Else
39143                 Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_OutTime,String)
39144             End If
39145             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
39146             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
39147                         <> Global.System.Data.ConnectionState.Open) Then
39148                 Me.Adapter.UpdateCommand.Connection.Open
39149             End If
39150             Try
39151                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
39152                 Return returnValue
39153             Finally
39154                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
39155                     Me.Adapter.UpdateCommand.Connection.Close
39156                 End If
39157             End Try
39158         End Function
39159         
39160         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
39161          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
39162          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
39163          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
39164         Public Overloads Overridable Function Update(ByVal WorkingDate As Date, ByVal StaffID As Integer, ByVal Status As String, ByVal InTime As String, ByVal OutTime As String, ByVal Original_Id As Integer, ByVal Original_WorkingDate As Date, ByVal Original_StaffID As Integer, ByVal Original_Status As String, ByVal Original_InTime As String, ByVal Original_OutTime As String) As Integer
39165             Return Me.Update(Original_Id, WorkingDate, StaffID, Status, InTime, OutTime, Original_Id, Original_WorkingDate, Original_StaffID, Original_Status, Original_InTime, Original_OutTime)
39166         End Function
39167     End Class
39168     
39169     '''<summary>
39170     '''Represents the connection and commands used to retrieve and save data.
39171     '''</summary>
39172     <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
39173      Global.System.ComponentModel.ToolboxItem(true), _
39174      Global.System.ComponentModel.DataObjectAttribute(true), _
39175      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
39176         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
39177      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
39178     Partial Public Class StaffPaymentTableAdapter
39179         Inherits Global.System.ComponentModel.Component
39180         
39181         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
39182         
39183         Private _connection As Global.System.Data.SqlClient.SqlConnection
39184         
39185         Private _transaction As Global.System.Data.SqlClient.SqlTransaction
39186         
39187         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
39188         
39189         Private _clearBeforeFill As Boolean
39190         
39191         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
39192          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
39193         Public Sub New()
39194             MyBase.New
39195             Me.ClearBeforeFill = true
39196         End Sub
39197         
39198         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
39199          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
39200         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
39201             Get
39202                 If (Me._adapter Is Nothing) Then
39203                     Me.InitAdapter
39204                 End If
39205                 Return Me._adapter
39206             End Get
39207         End Property
39208         
39209         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
39210          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
39211         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
39212             Get
39213                 If (Me._connection Is Nothing) Then
39214                     Me.InitConnection
39215                 End If
39216                 Return Me._connection
39217             End Get
39218             Set
39219                 Me._connection = value
39220                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
39221                     Me.Adapter.InsertCommand.Connection = value
39222                 End If
39223                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
39224                     Me.Adapter.DeleteCommand.Connection = value
39225                 End If
39226                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
39227                     Me.Adapter.UpdateCommand.Connection = value
39228                 End If
39229                 Dim i As Integer = 0
39230                 Do While (i < Me.CommandCollection.Length)
39231                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
39232                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
39233                     End If
39234                     i = (i + 1)
39235                 Loop
39236             End Set
39237         End Property
39238         
39239         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
39240          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
39241         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
39242             Get
39243                 Return Me._transaction
39244             End Get
39245             Set
39246                 Me._transaction = value
39247                 Dim i As Integer = 0
39248                 Do While (i < Me.CommandCollection.Length)
39249                     Me.CommandCollection(i).Transaction = Me._transaction
39250                     i = (i + 1)
39251                 Loop
39252                 If ((Not (Me.Adapter) Is Nothing) _
39253                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
39254                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
39255                 End If
39256                 If ((Not (Me.Adapter) Is Nothing) _
39257                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
39258                     Me.Adapter.InsertCommand.Transaction = Me._transaction
39259                 End If
39260                 If ((Not (Me.Adapter) Is Nothing) _
39261                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
39262                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
39263                 End If
39264             End Set
39265         End Property
39266         
39267         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
39268          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
39269         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
39270             Get
39271                 If (Me._commandCollection Is Nothing) Then
39272                     Me.InitCommandCollection
39273                 End If
39274                 Return Me._commandCollection
39275             End Get
39276         End Property
39277         
39278         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
39279          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
39280         Public Property ClearBeforeFill() As Boolean
39281             Get
39282                 Return Me._clearBeforeFill
39283             End Get
39284             Set
39285                 Me._clearBeforeFill = value
39286             End Set
39287         End Property
39288         
39289         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
39290          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
39291         Private Sub InitAdapter()
39292             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
39293             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
39294             tableMapping.SourceTable = "Table"
39295             tableMapping.DataSetTable = "StaffPayment"
39296             tableMapping.ColumnMappings.Add("Id", "Id")
39297             tableMapping.ColumnMappings.Add("PaymentID", "PaymentID")
39298             tableMapping.ColumnMappings.Add("DateFrom", "DateFrom")
39299             tableMapping.ColumnMappings.Add("DateTo", "DateTo")
39300             tableMapping.ColumnMappings.Add("StaffID", "StaffID")
39301             tableMapping.ColumnMappings.Add("PresentDays", "PresentDays")
39302             tableMapping.ColumnMappings.Add("Salary", "Salary")
39303             tableMapping.ColumnMappings.Add("Advance", "Advance")
39304             tableMapping.ColumnMappings.Add("Deduction", "Deduction")
39305             tableMapping.ColumnMappings.Add("PaymentDate", "PaymentDate")
39306             tableMapping.ColumnMappings.Add("ModeOfPayment", "ModeOfPayment")
39307             tableMapping.ColumnMappings.Add("PaymentModeDetails", "PaymentModeDetails")
39308             tableMapping.ColumnMappings.Add("NetPay", "NetPay")
39309             Me._adapter.TableMappings.Add(tableMapping)
39310             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
39311             Me._adapter.DeleteCommand.Connection = Me.Connection
39312             Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[StaffPayment] WHERE (([Id] = @Original_Id) AND ([PaymentID] = "& _
39313                 "@Original_PaymentID) AND ([DateFrom] = @Original_DateFrom) AND ([DateTo] = @Orig"& _
39314                 "inal_DateTo) AND ([StaffID] = @Original_StaffID) AND ([PresentDays] = @Original_"& _
39315                 "PresentDays) AND ([Salary] = @Original_Salary) AND ([Advance] = @Original_Advanc"& _
39316                 "e) AND ([Deduction] = @Original_Deduction) AND ([PaymentDate] = @Original_Paymen"& _
39317                 "tDate) AND ([ModeOfPayment] = @Original_ModeOfPayment) AND ([NetPay] = @Original"& _
39318                 "_NetPay))"
39319             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
39320             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
39321             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PaymentID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PaymentID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
39322             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DateFrom", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DateFrom", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
39323             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DateTo", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DateTo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
39324             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_StaffID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "StaffID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
39325             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PresentDays", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PresentDays", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
39326             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Salary", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Salary", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
39327             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Advance", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Advance", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
39328             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Deduction", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Deduction", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
39329             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PaymentDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PaymentDate", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
39330             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ModeOfPayment", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ModeOfPayment", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
39331             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_NetPay", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "NetPay", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
39332             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
39333             Me._adapter.InsertCommand.Connection = Me.Connection
39334             Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[StaffPayment] ([Id], [PaymentID], [DateFrom], [DateTo], [Staff"& _
39335                 "ID], [PresentDays], [Salary], [Advance], [Deduction], [PaymentDate], [ModeOfPaym"& _
39336                 "ent], [PaymentModeDetails], [NetPay]) VALUES (@Id, @PaymentID, @DateFrom, @DateT"& _
39337                 "o, @StaffID, @PresentDays, @Salary, @Advance, @Deduction, @PaymentDate, @ModeOfP"& _
39338                 "ayment, @PaymentModeDetails, @NetPay);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Id, PaymentID, DateFrom, DateTo, "& _
39339                 "StaffID, PresentDays, Salary, Advance, Deduction, PaymentDate, ModeOfPayment, Pa"& _
39340                 "ymentModeDetails, NetPay FROM StaffPayment WHERE (Id = @Id)"
39341             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
39342             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
39343             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PaymentID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PaymentID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
39344             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DateFrom", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DateFrom", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
39345             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DateTo", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DateTo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
39346             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@StaffID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "StaffID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
39347             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PresentDays", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PresentDays", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
39348             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Salary", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Salary", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
39349             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Advance", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Advance", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
39350             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Deduction", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Deduction", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
39351             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PaymentDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PaymentDate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
39352             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ModeOfPayment", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ModeOfPayment", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
39353             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PaymentModeDetails", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PaymentModeDetails", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
39354             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NetPay", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "NetPay", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
39355             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
39356             Me._adapter.UpdateCommand.Connection = Me.Connection
39357             Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[StaffPayment] SET [Id] = @Id, [PaymentID] = @PaymentID, [DateFrom] "& _
39358                 "= @DateFrom, [DateTo] = @DateTo, [StaffID] = @StaffID, [PresentDays] = @PresentD"& _
39359                 "ays, [Salary] = @Salary, [Advance] = @Advance, [Deduction] = @Deduction, [Paymen"& _
39360                 "tDate] = @PaymentDate, [ModeOfPayment] = @ModeOfPayment, [PaymentModeDetails] = "& _
39361                 "@PaymentModeDetails, [NetPay] = @NetPay WHERE (([Id] = @Original_Id) AND ([Payme"& _
39362                 "ntID] = @Original_PaymentID) AND ([DateFrom] = @Original_DateFrom) AND ([DateTo]"& _
39363                 " = @Original_DateTo) AND ([StaffID] = @Original_StaffID) AND ([PresentDays] = @O"& _
39364                 "riginal_PresentDays) AND ([Salary] = @Original_Salary) AND ([Advance] = @Origina"& _
39365                 "l_Advance) AND ([Deduction] = @Original_Deduction) AND ([PaymentDate] = @Origina"& _
39366                 "l_PaymentDate) AND ([ModeOfPayment] = @Original_ModeOfPayment) AND ([NetPay] = @"& _
39367                 "Original_NetPay));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Id, PaymentID, DateFrom, DateTo, StaffID, PresentDays"& _
39368                 ", Salary, Advance, Deduction, PaymentDate, ModeOfPayment, PaymentModeDetails, Ne"& _
39369                 "tPay FROM StaffPayment WHERE (Id = @Id)"
39370             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
39371             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
39372             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PaymentID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PaymentID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
39373             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DateFrom", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DateFrom", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
39374             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DateTo", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DateTo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
39375             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@StaffID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "StaffID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
39376             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PresentDays", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PresentDays", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
39377             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Salary", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Salary", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
39378             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Advance", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Advance", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
39379             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Deduction", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Deduction", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
39380             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PaymentDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PaymentDate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
39381             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ModeOfPayment", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ModeOfPayment", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
39382             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PaymentModeDetails", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PaymentModeDetails", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
39383             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NetPay", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "NetPay", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
39384             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
39385             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PaymentID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PaymentID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
39386             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DateFrom", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DateFrom", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
39387             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DateTo", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DateTo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
39388             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_StaffID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "StaffID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
39389             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PresentDays", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PresentDays", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
39390             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Salary", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Salary", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
39391             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Advance", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Advance", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
39392             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Deduction", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Deduction", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
39393             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PaymentDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PaymentDate", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
39394             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ModeOfPayment", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ModeOfPayment", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
39395             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_NetPay", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "NetPay", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
39396         End Sub
39397         
39398         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
39399          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
39400         Private Sub InitConnection()
39401             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
39402             Me._connection.ConnectionString = Global.ERP_System.My.MySettings.Default.ERPS_DBConnectionString
39403         End Sub
39404         
39405         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
39406          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
39407         Private Sub InitCommandCollection()
39408             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
39409             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
39410             Me._commandCollection(0).Connection = Me.Connection
39411             Me._commandCollection(0).CommandText = "SELECT Id, PaymentID, DateFrom, DateTo, StaffID, PresentDays, Salary, Advance, De"& _
39412                 "duction, PaymentDate, ModeOfPayment, PaymentModeDetails, NetPay FROM dbo.StaffPa"& _
39413                 "yment"
39414             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
39415         End Sub
39416         
39417         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
39418          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
39419          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
39420          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
39421         Public Overloads Overridable Function Fill(ByVal dataTable As ERPS_DBDataSet1.StaffPaymentDataTable) As Integer
39422             Me.Adapter.SelectCommand = Me.CommandCollection(0)
39423             If (Me.ClearBeforeFill = true) Then
39424                 dataTable.Clear
39425             End If
39426             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
39427             Return returnValue
39428         End Function
39429         
39430         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
39431          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
39432          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
39433          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
39434         Public Overloads Overridable Function GetData() As ERPS_DBDataSet1.StaffPaymentDataTable
39435             Me.Adapter.SelectCommand = Me.CommandCollection(0)
39436             Dim dataTable As ERPS_DBDataSet1.StaffPaymentDataTable = New ERPS_DBDataSet1.StaffPaymentDataTable()
39437             Me.Adapter.Fill(dataTable)
39438             Return dataTable
39439         End Function
39440         
39441         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
39442          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
39443          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
39444         Public Overloads Overridable Function Update(ByVal dataTable As ERPS_DBDataSet1.StaffPaymentDataTable) As Integer
39445             Return Me.Adapter.Update(dataTable)
39446         End Function
39447         
39448         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
39449          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
39450          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
39451         Public Overloads Overridable Function Update(ByVal dataSet As ERPS_DBDataSet1) As Integer
39452             Return Me.Adapter.Update(dataSet, "StaffPayment")
39453         End Function
39454         
39455         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
39456          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
39457          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
39458         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
39459             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
39460         End Function
39461         
39462         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
39463          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
39464          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
39465         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
39466             Return Me.Adapter.Update(dataRows)
39467         End Function
39468         
39469         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
39470          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
39471          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
39472          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
39473         Public Overloads Overridable Function Delete(ByVal Original_Id As Integer, ByVal Original_PaymentID As String, ByVal Original_DateFrom As Date, ByVal Original_DateTo As Date, ByVal Original_StaffID As Integer, ByVal Original_PresentDays As Integer, ByVal Original_Salary As Decimal, ByVal Original_Advance As Decimal, ByVal Original_Deduction As Decimal, ByVal Original_PaymentDate As Date, ByVal Original_ModeOfPayment As String, ByVal Original_NetPay As Decimal) As Integer
39474             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_Id,Integer)
39475             If (Original_PaymentID Is Nothing) Then
39476                 Throw New Global.System.ArgumentNullException("Original_PaymentID")
39477             Else
39478                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_PaymentID,String)
39479             End If
39480             Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_DateFrom,Date)
39481             Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_DateTo,Date)
39482             Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_StaffID,Integer)
39483             Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_PresentDays,Integer)
39484             Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_Salary,Decimal)
39485             Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_Advance,Decimal)
39486             Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_Deduction,Decimal)
39487             Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_PaymentDate,Date)
39488             If (Original_ModeOfPayment Is Nothing) Then
39489                 Throw New Global.System.ArgumentNullException("Original_ModeOfPayment")
39490             Else
39491                 Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_ModeOfPayment,String)
39492             End If
39493             Me.Adapter.DeleteCommand.Parameters(11).Value = CType(Original_NetPay,Decimal)
39494             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
39495             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
39496                         <> Global.System.Data.ConnectionState.Open) Then
39497                 Me.Adapter.DeleteCommand.Connection.Open
39498             End If
39499             Try
39500                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
39501                 Return returnValue
39502             Finally
39503                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
39504                     Me.Adapter.DeleteCommand.Connection.Close
39505                 End If
39506             End Try
39507         End Function
39508         
39509         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
39510          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
39511          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
39512          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
39513         Public Overloads Overridable Function Insert(ByVal Id As Integer, ByVal PaymentID As String, ByVal DateFrom As Date, ByVal DateTo As Date, ByVal StaffID As Integer, ByVal PresentDays As Integer, ByVal Salary As Decimal, ByVal Advance As Decimal, ByVal Deduction As Decimal, ByVal PaymentDate As Date, ByVal ModeOfPayment As String, ByVal PaymentModeDetails As String, ByVal NetPay As Decimal) As Integer
39514             Me.Adapter.InsertCommand.Parameters(0).Value = CType(Id,Integer)
39515             If (PaymentID Is Nothing) Then
39516                 Throw New Global.System.ArgumentNullException("PaymentID")
39517             Else
39518                 Me.Adapter.InsertCommand.Parameters(1).Value = CType(PaymentID,String)
39519             End If
39520             Me.Adapter.InsertCommand.Parameters(2).Value = CType(DateFrom,Date)
39521             Me.Adapter.InsertCommand.Parameters(3).Value = CType(DateTo,Date)
39522             Me.Adapter.InsertCommand.Parameters(4).Value = CType(StaffID,Integer)
39523             Me.Adapter.InsertCommand.Parameters(5).Value = CType(PresentDays,Integer)
39524             Me.Adapter.InsertCommand.Parameters(6).Value = CType(Salary,Decimal)
39525             Me.Adapter.InsertCommand.Parameters(7).Value = CType(Advance,Decimal)
39526             Me.Adapter.InsertCommand.Parameters(8).Value = CType(Deduction,Decimal)
39527             Me.Adapter.InsertCommand.Parameters(9).Value = CType(PaymentDate,Date)
39528             If (ModeOfPayment Is Nothing) Then
39529                 Throw New Global.System.ArgumentNullException("ModeOfPayment")
39530             Else
39531                 Me.Adapter.InsertCommand.Parameters(10).Value = CType(ModeOfPayment,String)
39532             End If
39533             If (PaymentModeDetails Is Nothing) Then
39534                 Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value
39535             Else
39536                 Me.Adapter.InsertCommand.Parameters(11).Value = CType(PaymentModeDetails,String)
39537             End If
39538             Me.Adapter.InsertCommand.Parameters(12).Value = CType(NetPay,Decimal)
39539             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
39540             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
39541                         <> Global.System.Data.ConnectionState.Open) Then
39542                 Me.Adapter.InsertCommand.Connection.Open
39543             End If
39544             Try
39545                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
39546                 Return returnValue
39547             Finally
39548                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
39549                     Me.Adapter.InsertCommand.Connection.Close
39550                 End If
39551             End Try
39552         End Function
39553         
39554         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
39555          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
39556          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
39557          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
39558         Public Overloads Overridable Function Update( _
39559                     ByVal Id As Integer, _
39560                     ByVal PaymentID As String, _
39561                     ByVal DateFrom As Date, _
39562                     ByVal DateTo As Date, _
39563                     ByVal StaffID As Integer, _
39564                     ByVal PresentDays As Integer, _
39565                     ByVal Salary As Decimal, _
39566                     ByVal Advance As Decimal, _
39567                     ByVal Deduction As Decimal, _
39568                     ByVal PaymentDate As Date, _
39569                     ByVal ModeOfPayment As String, _
39570                     ByVal PaymentModeDetails As String, _
39571                     ByVal NetPay As Decimal, _
39572                     ByVal Original_Id As Integer, _
39573                     ByVal Original_PaymentID As String, _
39574                     ByVal Original_DateFrom As Date, _
39575                     ByVal Original_DateTo As Date, _
39576                     ByVal Original_StaffID As Integer, _
39577                     ByVal Original_PresentDays As Integer, _
39578                     ByVal Original_Salary As Decimal, _
39579                     ByVal Original_Advance As Decimal, _
39580                     ByVal Original_Deduction As Decimal, _
39581                     ByVal Original_PaymentDate As Date, _
39582                     ByVal Original_ModeOfPayment As String, _
39583                     ByVal Original_NetPay As Decimal) As Integer
39584             Me.Adapter.UpdateCommand.Parameters(0).Value = CType(Id,Integer)
39585             If (PaymentID Is Nothing) Then
39586                 Throw New Global.System.ArgumentNullException("PaymentID")
39587             Else
39588                 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(PaymentID,String)
39589             End If
39590             Me.Adapter.UpdateCommand.Parameters(2).Value = CType(DateFrom,Date)
39591             Me.Adapter.UpdateCommand.Parameters(3).Value = CType(DateTo,Date)
39592             Me.Adapter.UpdateCommand.Parameters(4).Value = CType(StaffID,Integer)
39593             Me.Adapter.UpdateCommand.Parameters(5).Value = CType(PresentDays,Integer)
39594             Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Salary,Decimal)
39595             Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Advance,Decimal)
39596             Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Deduction,Decimal)
39597             Me.Adapter.UpdateCommand.Parameters(9).Value = CType(PaymentDate,Date)
39598             If (ModeOfPayment Is Nothing) Then
39599                 Throw New Global.System.ArgumentNullException("ModeOfPayment")
39600             Else
39601                 Me.Adapter.UpdateCommand.Parameters(10).Value = CType(ModeOfPayment,String)
39602             End If
39603             If (PaymentModeDetails Is Nothing) Then
39604                 Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value
39605             Else
39606                 Me.Adapter.UpdateCommand.Parameters(11).Value = CType(PaymentModeDetails,String)
39607             End If
39608             Me.Adapter.UpdateCommand.Parameters(12).Value = CType(NetPay,Decimal)
39609             Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_Id,Integer)
39610             If (Original_PaymentID Is Nothing) Then
39611                 Throw New Global.System.ArgumentNullException("Original_PaymentID")
39612             Else
39613                 Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_PaymentID,String)
39614             End If
39615             Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_DateFrom,Date)
39616             Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_DateTo,Date)
39617             Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_StaffID,Integer)
39618             Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_PresentDays,Integer)
39619             Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_Salary,Decimal)
39620             Me.Adapter.UpdateCommand.Parameters(20).Value = CType(Original_Advance,Decimal)
39621             Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_Deduction,Decimal)
39622             Me.Adapter.UpdateCommand.Parameters(22).Value = CType(Original_PaymentDate,Date)
39623             If (Original_ModeOfPayment Is Nothing) Then
39624                 Throw New Global.System.ArgumentNullException("Original_ModeOfPayment")
39625             Else
39626                 Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Original_ModeOfPayment,String)
39627             End If
39628             Me.Adapter.UpdateCommand.Parameters(24).Value = CType(Original_NetPay,Decimal)
39629             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
39630             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
39631                         <> Global.System.Data.ConnectionState.Open) Then
39632                 Me.Adapter.UpdateCommand.Connection.Open
39633             End If
39634             Try
39635                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
39636                 Return returnValue
39637             Finally
39638                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
39639                     Me.Adapter.UpdateCommand.Connection.Close
39640                 End If
39641             End Try
39642         End Function
39643         
39644         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
39645          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
39646          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
39647          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
39648         Public Overloads Overridable Function Update( _
39649                     ByVal PaymentID As String, _
39650                     ByVal DateFrom As Date, _
39651                     ByVal DateTo As Date, _
39652                     ByVal StaffID As Integer, _
39653                     ByVal PresentDays As Integer, _
39654                     ByVal Salary As Decimal, _
39655                     ByVal Advance As Decimal, _
39656                     ByVal Deduction As Decimal, _
39657                     ByVal PaymentDate As Date, _
39658                     ByVal ModeOfPayment As String, _
39659                     ByVal PaymentModeDetails As String, _
39660                     ByVal NetPay As Decimal, _
39661                     ByVal Original_Id As Integer, _
39662                     ByVal Original_PaymentID As String, _
39663                     ByVal Original_DateFrom As Date, _
39664                     ByVal Original_DateTo As Date, _
39665                     ByVal Original_StaffID As Integer, _
39666                     ByVal Original_PresentDays As Integer, _
39667                     ByVal Original_Salary As Decimal, _
39668                     ByVal Original_Advance As Decimal, _
39669                     ByVal Original_Deduction As Decimal, _
39670                     ByVal Original_PaymentDate As Date, _
39671                     ByVal Original_ModeOfPayment As String, _
39672                     ByVal Original_NetPay As Decimal) As Integer
39673             Return Me.Update(Original_Id, PaymentID, DateFrom, DateTo, StaffID, PresentDays, Salary, Advance, Deduction, PaymentDate, ModeOfPayment, PaymentModeDetails, NetPay, Original_Id, Original_PaymentID, Original_DateFrom, Original_DateTo, Original_StaffID, Original_PresentDays, Original_Salary, Original_Advance, Original_Deduction, Original_PaymentDate, Original_ModeOfPayment, Original_NetPay)
39674         End Function
39675     End Class
39676     
39677     '''<summary>
39678     '''Represents the connection and commands used to retrieve and save data.
39679     '''</summary>
39680     <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
39681      Global.System.ComponentModel.ToolboxItem(true), _
39682      Global.System.ComponentModel.DataObjectAttribute(true), _
39683      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
39684         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
39685      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
39686     Partial Public Class StudentTableAdapter
39687         Inherits Global.System.ComponentModel.Component
39688         
39689         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
39690         
39691         Private _connection As Global.System.Data.SqlClient.SqlConnection
39692         
39693         Private _transaction As Global.System.Data.SqlClient.SqlTransaction
39694         
39695         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
39696         
39697         Private _clearBeforeFill As Boolean
39698         
39699         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
39700          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
39701         Public Sub New()
39702             MyBase.New
39703             Me.ClearBeforeFill = true
39704         End Sub
39705         
39706         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
39707          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
39708         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
39709             Get
39710                 If (Me._adapter Is Nothing) Then
39711                     Me.InitAdapter
39712                 End If
39713                 Return Me._adapter
39714             End Get
39715         End Property
39716         
39717         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
39718          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
39719         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
39720             Get
39721                 If (Me._connection Is Nothing) Then
39722                     Me.InitConnection
39723                 End If
39724                 Return Me._connection
39725             End Get
39726             Set
39727                 Me._connection = value
39728                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
39729                     Me.Adapter.InsertCommand.Connection = value
39730                 End If
39731                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
39732                     Me.Adapter.DeleteCommand.Connection = value
39733                 End If
39734                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
39735                     Me.Adapter.UpdateCommand.Connection = value
39736                 End If
39737                 Dim i As Integer = 0
39738                 Do While (i < Me.CommandCollection.Length)
39739                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
39740                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
39741                     End If
39742                     i = (i + 1)
39743                 Loop
39744             End Set
39745         End Property
39746         
39747         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
39748          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
39749         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
39750             Get
39751                 Return Me._transaction
39752             End Get
39753             Set
39754                 Me._transaction = value
39755                 Dim i As Integer = 0
39756                 Do While (i < Me.CommandCollection.Length)
39757                     Me.CommandCollection(i).Transaction = Me._transaction
39758                     i = (i + 1)
39759                 Loop
39760                 If ((Not (Me.Adapter) Is Nothing) _
39761                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
39762                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
39763                 End If
39764                 If ((Not (Me.Adapter) Is Nothing) _
39765                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
39766                     Me.Adapter.InsertCommand.Transaction = Me._transaction
39767                 End If
39768                 If ((Not (Me.Adapter) Is Nothing) _
39769                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
39770                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
39771                 End If
39772             End Set
39773         End Property
39774         
39775         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
39776          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
39777         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
39778             Get
39779                 If (Me._commandCollection Is Nothing) Then
39780                     Me.InitCommandCollection
39781                 End If
39782                 Return Me._commandCollection
39783             End Get
39784         End Property
39785         
39786         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
39787          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
39788         Public Property ClearBeforeFill() As Boolean
39789             Get
39790                 Return Me._clearBeforeFill
39791             End Get
39792             Set
39793                 Me._clearBeforeFill = value
39794             End Set
39795         End Property
39796         
39797         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
39798          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
39799         Private Sub InitAdapter()
39800             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
39801             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
39802             tableMapping.SourceTable = "Table"
39803             tableMapping.DataSetTable = "Student"
39804             tableMapping.ColumnMappings.Add("AdmissionNo", "AdmissionNo")
39805             tableMapping.ColumnMappings.Add("EnrollmentNo", "EnrollmentNo")
39806             tableMapping.ColumnMappings.Add("GRNo", "GRNo")
39807             tableMapping.ColumnMappings.Add("UID", "UID")
39808             tableMapping.ColumnMappings.Add("StudentName", "StudentName")
39809             tableMapping.ColumnMappings.Add("FatherName", "FatherName")
39810             tableMapping.ColumnMappings.Add("MotherName", "MotherName")
39811             tableMapping.ColumnMappings.Add("FatherCN", "FatherCN")
39812             tableMapping.ColumnMappings.Add("PermanentAddress", "PermanentAddress")
39813             tableMapping.ColumnMappings.Add("TemporaryAddress", "TemporaryAddress")
39814             tableMapping.ColumnMappings.Add("ContactNo", "ContactNo")
39815             tableMapping.ColumnMappings.Add("EmailID", "EmailID")
39816             tableMapping.ColumnMappings.Add("DOB", "DOB")
39817             tableMapping.ColumnMappings.Add("Gender", "Gender")
39818             tableMapping.ColumnMappings.Add("AdmissionDate", "AdmissionDate")
39819             tableMapping.ColumnMappings.Add("Session", "Session")
39820             tableMapping.ColumnMappings.Add("Caste", "Caste")
39821             tableMapping.ColumnMappings.Add("Religion", "Religion")
39822             tableMapping.ColumnMappings.Add("SectionID", "SectionID")
39823             tableMapping.ColumnMappings.Add("Photo", "Photo")
39824             tableMapping.ColumnMappings.Add("Nationality", "Nationality")
39825             tableMapping.ColumnMappings.Add("SchoolID", "SchoolID")
39826             tableMapping.ColumnMappings.Add("LastSchoolAttended", "LastSchoolAttended")
39827             tableMapping.ColumnMappings.Add("Result", "Result")
39828             tableMapping.ColumnMappings.Add("PassPercentage", "PassPercentage")
39829             tableMapping.ColumnMappings.Add("Status", "Status")
39830             Me._adapter.TableMappings.Add(tableMapping)
39831             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
39832             Me._adapter.DeleteCommand.Connection = Me.Connection
39833             Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[Student] WHERE (([AdmissionNo] = @Original_AdmissionNo) AND (("& _
39834                 "@IsNull_EnrollmentNo = 1 AND [EnrollmentNo] IS NULL) OR ([EnrollmentNo] = @Origi"& _
39835                 "nal_EnrollmentNo)) AND ((@IsNull_GRNo = 1 AND [GRNo] IS NULL) OR ([GRNo] = @Orig"& _
39836                 "inal_GRNo)) AND ((@IsNull_UID = 1 AND [UID] IS NULL) OR ([UID] = @Original_UID))"& _
39837                 " AND ([StudentName] = @Original_StudentName) AND ([FatherName] = @Original_Fathe"& _
39838                 "rName) AND ([MotherName] = @Original_MotherName) AND ((@IsNull_FatherCN = 1 AND "& _
39839                 "[FatherCN] IS NULL) OR ([FatherCN] = @Original_FatherCN)) AND ([PermanentAddress"& _
39840                 "] = @Original_PermanentAddress) AND ([TemporaryAddress] = @Original_TemporaryAdd"& _
39841                 "ress) AND ([ContactNo] = @Original_ContactNo) AND ((@IsNull_EmailID = 1 AND [Ema"& _
39842                 "ilID] IS NULL) OR ([EmailID] = @Original_EmailID)) AND ([DOB] = @Original_DOB) A"& _
39843                 "ND ([Gender] = @Original_Gender) AND ([AdmissionDate] = @Original_AdmissionDate)"& _
39844                 " AND ([Session] = @Original_Session) AND ([Caste] = @Original_Caste) AND ([Relig"& _
39845                 "ion] = @Original_Religion) AND ([SectionID] = @Original_SectionID) AND ((@IsNull"& _
39846                 "_Nationality = 1 AND [Nationality] IS NULL) OR ([Nationality] = @Original_Nation"& _
39847                 "ality)) AND ([SchoolID] = @Original_SchoolID) AND ((@IsNull_LastSchoolAttended ="& _
39848                 " 1 AND [LastSchoolAttended] IS NULL) OR ([LastSchoolAttended] = @Original_LastSc"& _
39849                 "hoolAttended)) AND ((@IsNull_Result = 1 AND [Result] IS NULL) OR ([Result] = @Or"& _
39850                 "iginal_Result)) AND ((@IsNull_PassPercentage = 1 AND [PassPercentage] IS NULL) O"& _
39851                 "R ([PassPercentage] = @Original_PassPercentage)) AND ([Status] = @Original_Statu"& _
39852                 "s))"
39853             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
39854             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_AdmissionNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AdmissionNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
39855             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_EnrollmentNo", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EnrollmentNo", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
39856             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EnrollmentNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EnrollmentNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
39857             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_GRNo", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GRNo", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
39858             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GRNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GRNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
39859             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_UID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
39860             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_UID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
39861             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_StudentName", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "StudentName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
39862             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FatherName", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FatherName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
39863             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_MotherName", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MotherName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
39864             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_FatherCN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FatherCN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
39865             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FatherCN", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FatherCN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
39866             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PermanentAddress", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PermanentAddress", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
39867             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TemporaryAddress", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TemporaryAddress", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
39868             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ContactNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContactNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
39869             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_EmailID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
39870             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EmailID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
39871             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DOB", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DOB", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
39872             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Gender", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gender", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
39873             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_AdmissionDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AdmissionDate", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
39874             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Session", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Session", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
39875             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Caste", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Caste", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
39876             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Religion", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Religion", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
39877             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SectionID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SectionID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
39878             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Nationality", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Nationality", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
39879             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Nationality", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Nationality", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
39880             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SchoolID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SchoolID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
39881             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_LastSchoolAttended", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LastSchoolAttended", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
39882             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LastSchoolAttended", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LastSchoolAttended", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
39883             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Result", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Result", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
39884             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Result", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Result", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
39885             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_PassPercentage", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PassPercentage", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
39886             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PassPercentage", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PassPercentage", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
39887             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Status", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Status", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
39888             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
39889             Me._adapter.InsertCommand.Connection = Me.Connection
39890             Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[Student] ([AdmissionNo], [EnrollmentNo], [GRNo], [UID], [Stude"& _
39891                 "ntName], [FatherName], [MotherName], [FatherCN], [PermanentAddress], [TemporaryA"& _
39892                 "ddress], [ContactNo], [EmailID], [DOB], [Gender], [AdmissionDate], [Session], [C"& _
39893                 "aste], [Religion], [SectionID], [Photo], [Nationality], [SchoolID], [LastSchoolA"& _
39894                 "ttended], [Result], [PassPercentage], [Status]) VALUES (@AdmissionNo, @Enrollmen"& _
39895                 "tNo, @GRNo, @UID, @StudentName, @FatherName, @MotherName, @FatherCN, @PermanentA"& _
39896                 "ddress, @TemporaryAddress, @ContactNo, @EmailID, @DOB, @Gender, @AdmissionDate, "& _
39897                 "@Session, @Caste, @Religion, @SectionID, @Photo, @Nationality, @SchoolID, @LastS"& _
39898                 "choolAttended, @Result, @PassPercentage, @Status);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT AdmissionNo, Enrollme"& _
39899                 "ntNo, GRNo, UID, StudentName, FatherName, MotherName, FatherCN, PermanentAddress"& _
39900                 ", TemporaryAddress, ContactNo, EmailID, DOB, Gender, AdmissionDate, Session, Cas"& _
39901                 "te, Religion, SectionID, Photo, Nationality, SchoolID, LastSchoolAttended, Resul"& _
39902                 "t, PassPercentage, Status FROM Student WHERE (AdmissionNo = @AdmissionNo)"
39903             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
39904             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AdmissionNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AdmissionNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
39905             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EnrollmentNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EnrollmentNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
39906             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GRNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GRNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
39907             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
39908             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@StudentName", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "StudentName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
39909             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FatherName", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FatherName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
39910             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MotherName", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MotherName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
39911             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FatherCN", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FatherCN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
39912             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PermanentAddress", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PermanentAddress", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
39913             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TemporaryAddress", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TemporaryAddress", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
39914             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ContactNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContactNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
39915             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EmailID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
39916             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOB", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DOB", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
39917             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Gender", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gender", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
39918             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AdmissionDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AdmissionDate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
39919             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Session", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Session", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
39920             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Caste", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Caste", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
39921             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Religion", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Religion", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
39922             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SectionID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SectionID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
39923             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Photo", Global.System.Data.SqlDbType.Image, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Photo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
39924             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Nationality", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Nationality", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
39925             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SchoolID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SchoolID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
39926             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LastSchoolAttended", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LastSchoolAttended", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
39927             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Result", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Result", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
39928             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PassPercentage", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PassPercentage", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
39929             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Status", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Status", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
39930             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
39931             Me._adapter.UpdateCommand.Connection = Me.Connection
39932             Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[Student] SET [AdmissionNo] = @AdmissionNo, [EnrollmentNo] = @Enroll"& _
39933                 "mentNo, [GRNo] = @GRNo, [UID] = @UID, [StudentName] = @StudentName, [FatherName]"& _
39934                 " = @FatherName, [MotherName] = @MotherName, [FatherCN] = @FatherCN, [PermanentAd"& _
39935                 "dress] = @PermanentAddress, [TemporaryAddress] = @TemporaryAddress, [ContactNo] "& _
39936                 "= @ContactNo, [EmailID] = @EmailID, [DOB] = @DOB, [Gender] = @Gender, [Admission"& _
39937                 "Date] = @AdmissionDate, [Session] = @Session, [Caste] = @Caste, [Religion] = @Re"& _
39938                 "ligion, [SectionID] = @SectionID, [Photo] = @Photo, [Nationality] = @Nationality"& _
39939                 ", [SchoolID] = @SchoolID, [LastSchoolAttended] = @LastSchoolAttended, [Result] ="& _
39940                 " @Result, [PassPercentage] = @PassPercentage, [Status] = @Status WHERE (([Admiss"& _
39941                 "ionNo] = @Original_AdmissionNo) AND ((@IsNull_EnrollmentNo = 1 AND [EnrollmentNo"& _
39942                 "] IS NULL) OR ([EnrollmentNo] = @Original_EnrollmentNo)) AND ((@IsNull_GRNo = 1 "& _
39943                 "AND [GRNo] IS NULL) OR ([GRNo] = @Original_GRNo)) AND ((@IsNull_UID = 1 AND [UID"& _
39944                 "] IS NULL) OR ([UID] = @Original_UID)) AND ([StudentName] = @Original_StudentNam"& _
39945                 "e) AND ([FatherName] = @Original_FatherName) AND ([MotherName] = @Original_Mothe"& _
39946                 "rName) AND ((@IsNull_FatherCN = 1 AND [FatherCN] IS NULL) OR ([FatherCN] = @Orig"& _
39947                 "inal_FatherCN)) AND ([PermanentAddress] = @Original_PermanentAddress) AND ([Temp"& _
39948                 "oraryAddress] = @Original_TemporaryAddress) AND ([ContactNo] = @Original_Contact"& _
39949                 "No) AND ((@IsNull_EmailID = 1 AND [EmailID] IS NULL) OR ([EmailID] = @Original_E"& _
39950                 "mailID)) AND ([DOB] = @Original_DOB) AND ([Gender] = @Original_Gender) AND ([Adm"& _
39951                 "issionDate] = @Original_AdmissionDate) AND ([Session] = @Original_Session) AND ("& _
39952                 "[Caste] = @Original_Caste) AND ([Religion] = @Original_Religion) AND ([SectionID"& _
39953                 "] = @Original_SectionID) AND ((@IsNull_Nationality = 1 AND [Nationality] IS NULL"& _
39954                 ") OR ([Nationality] = @Original_Nationality)) AND ([SchoolID] = @Original_School"& _
39955                 "ID) AND ((@IsNull_LastSchoolAttended = 1 AND [LastSchoolAttended] IS NULL) OR (["& _
39956                 "LastSchoolAttended] = @Original_LastSchoolAttended)) AND ((@IsNull_Result = 1 AN"& _
39957                 "D [Result] IS NULL) OR ([Result] = @Original_Result)) AND ((@IsNull_PassPercenta"& _
39958                 "ge = 1 AND [PassPercentage] IS NULL) OR ([PassPercentage] = @Original_PassPercen"& _
39959                 "tage)) AND ([Status] = @Original_Status));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT AdmissionNo, EnrollmentNo, GR"& _
39960                 "No, UID, StudentName, FatherName, MotherName, FatherCN, PermanentAddress, Tempor"& _
39961                 "aryAddress, ContactNo, EmailID, DOB, Gender, AdmissionDate, Session, Caste, Reli"& _
39962                 "gion, SectionID, Photo, Nationality, SchoolID, LastSchoolAttended, Result, PassP"& _
39963                 "ercentage, Status FROM Student WHERE (AdmissionNo = @AdmissionNo)"
39964             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
39965             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AdmissionNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AdmissionNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
39966             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EnrollmentNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EnrollmentNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
39967             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GRNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GRNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
39968             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
39969             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@StudentName", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "StudentName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
39970             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FatherName", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FatherName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
39971             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MotherName", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MotherName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
39972             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FatherCN", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FatherCN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
39973             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PermanentAddress", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PermanentAddress", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
39974             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TemporaryAddress", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TemporaryAddress", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
39975             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ContactNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContactNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
39976             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EmailID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
39977             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOB", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DOB", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
39978             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Gender", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gender", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
39979             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AdmissionDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AdmissionDate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
39980             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Session", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Session", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
39981             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Caste", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Caste", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
39982             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Religion", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Religion", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
39983             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SectionID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SectionID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
39984             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Photo", Global.System.Data.SqlDbType.Image, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Photo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
39985             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Nationality", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Nationality", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
39986             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SchoolID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SchoolID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
39987             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LastSchoolAttended", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LastSchoolAttended", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
39988             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Result", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Result", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
39989             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PassPercentage", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PassPercentage", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
39990             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Status", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Status", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
39991             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_AdmissionNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AdmissionNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
39992             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_EnrollmentNo", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EnrollmentNo", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
39993             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EnrollmentNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EnrollmentNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
39994             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_GRNo", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GRNo", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
39995             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GRNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GRNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
39996             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_UID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
39997             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_UID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
39998             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_StudentName", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "StudentName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
39999             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FatherName", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FatherName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
40000             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_MotherName", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MotherName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
40001             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_FatherCN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FatherCN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
40002             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FatherCN", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FatherCN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
40003             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PermanentAddress", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PermanentAddress", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
40004             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TemporaryAddress", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TemporaryAddress", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
40005             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ContactNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContactNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
40006             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_EmailID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
40007             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EmailID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
40008             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DOB", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DOB", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
40009             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Gender", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gender", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
40010             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_AdmissionDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AdmissionDate", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
40011             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Session", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Session", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
40012             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Caste", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Caste", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
40013             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Religion", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Religion", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
40014             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SectionID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SectionID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
40015             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Nationality", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Nationality", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
40016             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Nationality", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Nationality", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
40017             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SchoolID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SchoolID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
40018             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_LastSchoolAttended", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LastSchoolAttended", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
40019             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LastSchoolAttended", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LastSchoolAttended", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
40020             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Result", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Result", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
40021             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Result", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Result", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
40022             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_PassPercentage", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PassPercentage", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
40023             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PassPercentage", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PassPercentage", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
40024             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Status", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Status", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
40025         End Sub
40026         
40027         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
40028          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
40029         Private Sub InitConnection()
40030             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
40031             Me._connection.ConnectionString = Global.ERP_System.My.MySettings.Default.ERPS_DBConnectionString
40032         End Sub
40033         
40034         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
40035          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
40036         Private Sub InitCommandCollection()
40037             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
40038             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
40039             Me._commandCollection(0).Connection = Me.Connection
40040             Me._commandCollection(0).CommandText = "SELECT AdmissionNo, EnrollmentNo, GRNo, UID, StudentName, FatherName, MotherName,"& _
40041                 " FatherCN, PermanentAddress, TemporaryAddress, ContactNo, EmailID, DOB, Gender, "& _
40042                 "AdmissionDate, Session, Caste, Religion, SectionID, Photo, Nationality, SchoolID"& _
40043                 ", LastSchoolAttended, Result, PassPercentage, Status FROM dbo.Student"
40044             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
40045         End Sub
40046         
40047         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
40048          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
40049          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
40050          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
40051         Public Overloads Overridable Function Fill(ByVal dataTable As ERPS_DBDataSet1.StudentDataTable) As Integer
40052             Me.Adapter.SelectCommand = Me.CommandCollection(0)
40053             If (Me.ClearBeforeFill = true) Then
40054                 dataTable.Clear
40055             End If
40056             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
40057             Return returnValue
40058         End Function
40059         
40060         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
40061          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
40062          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
40063          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
40064         Public Overloads Overridable Function GetData() As ERPS_DBDataSet1.StudentDataTable
40065             Me.Adapter.SelectCommand = Me.CommandCollection(0)
40066             Dim dataTable As ERPS_DBDataSet1.StudentDataTable = New ERPS_DBDataSet1.StudentDataTable()
40067             Me.Adapter.Fill(dataTable)
40068             Return dataTable
40069         End Function
40070         
40071         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
40072          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
40073          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
40074         Public Overloads Overridable Function Update(ByVal dataTable As ERPS_DBDataSet1.StudentDataTable) As Integer
40075             Return Me.Adapter.Update(dataTable)
40076         End Function
40077         
40078         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
40079          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
40080          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
40081         Public Overloads Overridable Function Update(ByVal dataSet As ERPS_DBDataSet1) As Integer
40082             Return Me.Adapter.Update(dataSet, "Student")
40083         End Function
40084         
40085         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
40086          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
40087          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
40088         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
40089             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
40090         End Function
40091         
40092         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
40093          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
40094          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
40095         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
40096             Return Me.Adapter.Update(dataRows)
40097         End Function
40098         
40099         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
40100          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
40101          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
40102          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
40103         Public Overloads Overridable Function Delete( _
40104                     ByVal Original_AdmissionNo As String, _
40105                     ByVal Original_EnrollmentNo As String, _
40106                     ByVal Original_GRNo As String, _
40107                     ByVal Original_UID As String, _
40108                     ByVal Original_StudentName As String, _
40109                     ByVal Original_FatherName As String, _
40110                     ByVal Original_MotherName As String, _
40111                     ByVal Original_FatherCN As String, _
40112                     ByVal Original_PermanentAddress As String, _
40113                     ByVal Original_TemporaryAddress As String, _
40114                     ByVal Original_ContactNo As String, _
40115                     ByVal Original_EmailID As String, _
40116                     ByVal Original_DOB As Date, _
40117                     ByVal Original_Gender As String, _
40118                     ByVal Original_AdmissionDate As Date, _
40119                     ByVal Original_Session As String, _
40120                     ByVal Original_Caste As String, _
40121                     ByVal Original_Religion As String, _
40122                     ByVal Original_SectionID As Integer, _
40123                     ByVal Original_Nationality As String, _
40124                     ByVal Original_SchoolID As Integer, _
40125                     ByVal Original_LastSchoolAttended As String, _
40126                     ByVal Original_Result As String, _
40127                     ByVal Original_PassPercentage As String, _
40128                     ByVal Original_Status As String) As Integer
40129             If (Original_AdmissionNo Is Nothing) Then
40130                 Throw New Global.System.ArgumentNullException("Original_AdmissionNo")
40131             Else
40132                 Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_AdmissionNo,String)
40133             End If
40134             If (Original_EnrollmentNo Is Nothing) Then
40135                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object)
40136                 Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value
40137             Else
40138                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object)
40139                 Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_EnrollmentNo,String)
40140             End If
40141             If (Original_GRNo Is Nothing) Then
40142                 Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object)
40143                 Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value
40144             Else
40145                 Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object)
40146                 Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_GRNo,String)
40147             End If
40148             If (Original_UID Is Nothing) Then
40149                 Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object)
40150                 Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value
40151             Else
40152                 Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object)
40153                 Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_UID,String)
40154             End If
40155             If (Original_StudentName Is Nothing) Then
40156                 Throw New Global.System.ArgumentNullException("Original_StudentName")
40157             Else
40158                 Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_StudentName,String)
40159             End If
40160             If (Original_FatherName Is Nothing) Then
40161                 Throw New Global.System.ArgumentNullException("Original_FatherName")
40162             Else
40163                 Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_FatherName,String)
40164             End If
40165             If (Original_MotherName Is Nothing) Then
40166                 Throw New Global.System.ArgumentNullException("Original_MotherName")
40167             Else
40168                 Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_MotherName,String)
40169             End If
40170             If (Original_FatherCN Is Nothing) Then
40171                 Me.Adapter.DeleteCommand.Parameters(10).Value = CType(1,Object)
40172                 Me.Adapter.DeleteCommand.Parameters(11).Value = Global.System.DBNull.Value
40173             Else
40174                 Me.Adapter.DeleteCommand.Parameters(10).Value = CType(0,Object)
40175                 Me.Adapter.DeleteCommand.Parameters(11).Value = CType(Original_FatherCN,String)
40176             End If
40177             If (Original_PermanentAddress Is Nothing) Then
40178                 Throw New Global.System.ArgumentNullException("Original_PermanentAddress")
40179             Else
40180                 Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_PermanentAddress,String)
40181             End If
40182             If (Original_TemporaryAddress Is Nothing) Then
40183                 Throw New Global.System.ArgumentNullException("Original_TemporaryAddress")
40184             Else
40185                 Me.Adapter.DeleteCommand.Parameters(13).Value = CType(Original_TemporaryAddress,String)
40186             End If
40187             If (Original_ContactNo Is Nothing) Then
40188                 Throw New Global.System.ArgumentNullException("Original_ContactNo")
40189             Else
40190                 Me.Adapter.DeleteCommand.Parameters(14).Value = CType(Original_ContactNo,String)
40191             End If
40192             If (Original_EmailID Is Nothing) Then
40193                 Me.Adapter.DeleteCommand.Parameters(15).Value = CType(1,Object)
40194                 Me.Adapter.DeleteCommand.Parameters(16).Value = Global.System.DBNull.Value
40195             Else
40196                 Me.Adapter.DeleteCommand.Parameters(15).Value = CType(0,Object)
40197                 Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_EmailID,String)
40198             End If
40199             Me.Adapter.DeleteCommand.Parameters(17).Value = CType(Original_DOB,Date)
40200             If (Original_Gender Is Nothing) Then
40201                 Throw New Global.System.ArgumentNullException("Original_Gender")
40202             Else
40203                 Me.Adapter.DeleteCommand.Parameters(18).Value = CType(Original_Gender,String)
40204             End If
40205             Me.Adapter.DeleteCommand.Parameters(19).Value = CType(Original_AdmissionDate,Date)
40206             If (Original_Session Is Nothing) Then
40207                 Throw New Global.System.ArgumentNullException("Original_Session")
40208             Else
40209                 Me.Adapter.DeleteCommand.Parameters(20).Value = CType(Original_Session,String)
40210             End If
40211             If (Original_Caste Is Nothing) Then
40212                 Throw New Global.System.ArgumentNullException("Original_Caste")
40213             Else
40214                 Me.Adapter.DeleteCommand.Parameters(21).Value = CType(Original_Caste,String)
40215             End If
40216             If (Original_Religion Is Nothing) Then
40217                 Throw New Global.System.ArgumentNullException("Original_Religion")
40218             Else
40219                 Me.Adapter.DeleteCommand.Parameters(22).Value = CType(Original_Religion,String)
40220             End If
40221             Me.Adapter.DeleteCommand.Parameters(23).Value = CType(Original_SectionID,Integer)
40222             If (Original_Nationality Is Nothing) Then
40223                 Me.Adapter.DeleteCommand.Parameters(24).Value = CType(1,Object)
40224                 Me.Adapter.DeleteCommand.Parameters(25).Value = Global.System.DBNull.Value
40225             Else
40226                 Me.Adapter.DeleteCommand.Parameters(24).Value = CType(0,Object)
40227                 Me.Adapter.DeleteCommand.Parameters(25).Value = CType(Original_Nationality,String)
40228             End If
40229             Me.Adapter.DeleteCommand.Parameters(26).Value = CType(Original_SchoolID,Integer)
40230             If (Original_LastSchoolAttended Is Nothing) Then
40231                 Me.Adapter.DeleteCommand.Parameters(27).Value = CType(1,Object)
40232                 Me.Adapter.DeleteCommand.Parameters(28).Value = Global.System.DBNull.Value
40233             Else
40234                 Me.Adapter.DeleteCommand.Parameters(27).Value = CType(0,Object)
40235                 Me.Adapter.DeleteCommand.Parameters(28).Value = CType(Original_LastSchoolAttended,String)
40236             End If
40237             If (Original_Result Is Nothing) Then
40238                 Me.Adapter.DeleteCommand.Parameters(29).Value = CType(1,Object)
40239                 Me.Adapter.DeleteCommand.Parameters(30).Value = Global.System.DBNull.Value
40240             Else
40241                 Me.Adapter.DeleteCommand.Parameters(29).Value = CType(0,Object)
40242                 Me.Adapter.DeleteCommand.Parameters(30).Value = CType(Original_Result,String)
40243             End If
40244             If (Original_PassPercentage Is Nothing) Then
40245                 Me.Adapter.DeleteCommand.Parameters(31).Value = CType(1,Object)
40246                 Me.Adapter.DeleteCommand.Parameters(32).Value = Global.System.DBNull.Value
40247             Else
40248                 Me.Adapter.DeleteCommand.Parameters(31).Value = CType(0,Object)
40249                 Me.Adapter.DeleteCommand.Parameters(32).Value = CType(Original_PassPercentage,String)
40250             End If
40251             If (Original_Status Is Nothing) Then
40252                 Throw New Global.System.ArgumentNullException("Original_Status")
40253             Else
40254                 Me.Adapter.DeleteCommand.Parameters(33).Value = CType(Original_Status,String)
40255             End If
40256             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
40257             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
40258                         <> Global.System.Data.ConnectionState.Open) Then
40259                 Me.Adapter.DeleteCommand.Connection.Open
40260             End If
40261             Try
40262                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
40263                 Return returnValue
40264             Finally
40265                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
40266                     Me.Adapter.DeleteCommand.Connection.Close
40267                 End If
40268             End Try
40269         End Function
40270         
40271         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
40272          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
40273          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
40274          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
40275         Public Overloads Overridable Function Insert( _
40276                     ByVal AdmissionNo As String, _
40277                     ByVal EnrollmentNo As String, _
40278                     ByVal GRNo As String, _
40279                     ByVal UID As String, _
40280                     ByVal StudentName As String, _
40281                     ByVal FatherName As String, _
40282                     ByVal MotherName As String, _
40283                     ByVal FatherCN As String, _
40284                     ByVal PermanentAddress As String, _
40285                     ByVal TemporaryAddress As String, _
40286                     ByVal ContactNo As String, _
40287                     ByVal EmailID As String, _
40288                     ByVal DOB As Date, _
40289                     ByVal Gender As String, _
40290                     ByVal AdmissionDate As Date, _
40291                     ByVal Session As String, _
40292                     ByVal Caste As String, _
40293                     ByVal Religion As String, _
40294                     ByVal SectionID As Integer, _
40295                     ByVal Photo() As Byte, _
40296                     ByVal Nationality As String, _
40297                     ByVal SchoolID As Integer, _
40298                     ByVal LastSchoolAttended As String, _
40299                     ByVal Result As String, _
40300                     ByVal PassPercentage As String, _
40301                     ByVal Status As String) As Integer
40302             If (AdmissionNo Is Nothing) Then
40303                 Throw New Global.System.ArgumentNullException("AdmissionNo")
40304             Else
40305                 Me.Adapter.InsertCommand.Parameters(0).Value = CType(AdmissionNo,String)
40306             End If
40307             If (EnrollmentNo Is Nothing) Then
40308                 Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value
40309             Else
40310                 Me.Adapter.InsertCommand.Parameters(1).Value = CType(EnrollmentNo,String)
40311             End If
40312             If (GRNo Is Nothing) Then
40313                 Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value
40314             Else
40315                 Me.Adapter.InsertCommand.Parameters(2).Value = CType(GRNo,String)
40316             End If
40317             If (UID Is Nothing) Then
40318                 Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value
40319             Else
40320                 Me.Adapter.InsertCommand.Parameters(3).Value = CType(UID,String)
40321             End If
40322             If (StudentName Is Nothing) Then
40323                 Throw New Global.System.ArgumentNullException("StudentName")
40324             Else
40325                 Me.Adapter.InsertCommand.Parameters(4).Value = CType(StudentName,String)
40326             End If
40327             If (FatherName Is Nothing) Then
40328                 Throw New Global.System.ArgumentNullException("FatherName")
40329             Else
40330                 Me.Adapter.InsertCommand.Parameters(5).Value = CType(FatherName,String)
40331             End If
40332             If (MotherName Is Nothing) Then
40333                 Throw New Global.System.ArgumentNullException("MotherName")
40334             Else
40335                 Me.Adapter.InsertCommand.Parameters(6).Value = CType(MotherName,String)
40336             End If
40337             If (FatherCN Is Nothing) Then
40338                 Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value
40339             Else
40340                 Me.Adapter.InsertCommand.Parameters(7).Value = CType(FatherCN,String)
40341             End If
40342             If (PermanentAddress Is Nothing) Then
40343                 Throw New Global.System.ArgumentNullException("PermanentAddress")
40344             Else
40345                 Me.Adapter.InsertCommand.Parameters(8).Value = CType(PermanentAddress,String)
40346             End If
40347             If (TemporaryAddress Is Nothing) Then
40348                 Throw New Global.System.ArgumentNullException("TemporaryAddress")
40349             Else
40350                 Me.Adapter.InsertCommand.Parameters(9).Value = CType(TemporaryAddress,String)
40351             End If
40352             If (ContactNo Is Nothing) Then
40353                 Throw New Global.System.ArgumentNullException("ContactNo")
40354             Else
40355                 Me.Adapter.InsertCommand.Parameters(10).Value = CType(ContactNo,String)
40356             End If
40357             If (EmailID Is Nothing) Then
40358                 Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value
40359             Else
40360                 Me.Adapter.InsertCommand.Parameters(11).Value = CType(EmailID,String)
40361             End If
40362             Me.Adapter.InsertCommand.Parameters(12).Value = CType(DOB,Date)
40363             If (Gender Is Nothing) Then
40364                 Throw New Global.System.ArgumentNullException("Gender")
40365             Else
40366                 Me.Adapter.InsertCommand.Parameters(13).Value = CType(Gender,String)
40367             End If
40368             Me.Adapter.InsertCommand.Parameters(14).Value = CType(AdmissionDate,Date)
40369             If (Session Is Nothing) Then
40370                 Throw New Global.System.ArgumentNullException("Session")
40371             Else
40372                 Me.Adapter.InsertCommand.Parameters(15).Value = CType(Session,String)
40373             End If
40374             If (Caste Is Nothing) Then
40375                 Throw New Global.System.ArgumentNullException("Caste")
40376             Else
40377                 Me.Adapter.InsertCommand.Parameters(16).Value = CType(Caste,String)
40378             End If
40379             If (Religion Is Nothing) Then
40380                 Throw New Global.System.ArgumentNullException("Religion")
40381             Else
40382                 Me.Adapter.InsertCommand.Parameters(17).Value = CType(Religion,String)
40383             End If
40384             Me.Adapter.InsertCommand.Parameters(18).Value = CType(SectionID,Integer)
40385             If (Photo Is Nothing) Then
40386                 Throw New Global.System.ArgumentNullException("Photo")
40387             Else
40388                 Me.Adapter.InsertCommand.Parameters(19).Value = CType(Photo,Byte())
40389             End If
40390             If (Nationality Is Nothing) Then
40391                 Me.Adapter.InsertCommand.Parameters(20).Value = Global.System.DBNull.Value
40392             Else
40393                 Me.Adapter.InsertCommand.Parameters(20).Value = CType(Nationality,String)
40394             End If
40395             Me.Adapter.InsertCommand.Parameters(21).Value = CType(SchoolID,Integer)
40396             If (LastSchoolAttended Is Nothing) Then
40397                 Me.Adapter.InsertCommand.Parameters(22).Value = Global.System.DBNull.Value
40398             Else
40399                 Me.Adapter.InsertCommand.Parameters(22).Value = CType(LastSchoolAttended,String)
40400             End If
40401             If (Result Is Nothing) Then
40402                 Me.Adapter.InsertCommand.Parameters(23).Value = Global.System.DBNull.Value
40403             Else
40404                 Me.Adapter.InsertCommand.Parameters(23).Value = CType(Result,String)
40405             End If
40406             If (PassPercentage Is Nothing) Then
40407                 Me.Adapter.InsertCommand.Parameters(24).Value = Global.System.DBNull.Value
40408             Else
40409                 Me.Adapter.InsertCommand.Parameters(24).Value = CType(PassPercentage,String)
40410             End If
40411             If (Status Is Nothing) Then
40412                 Throw New Global.System.ArgumentNullException("Status")
40413             Else
40414                 Me.Adapter.InsertCommand.Parameters(25).Value = CType(Status,String)
40415             End If
40416             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
40417             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
40418                         <> Global.System.Data.ConnectionState.Open) Then
40419                 Me.Adapter.InsertCommand.Connection.Open
40420             End If
40421             Try
40422                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
40423                 Return returnValue
40424             Finally
40425                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
40426                     Me.Adapter.InsertCommand.Connection.Close
40427                 End If
40428             End Try
40429         End Function
40430         
40431         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
40432          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
40433          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
40434          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
40435         Public Overloads Overridable Function Update( _
40436                     ByVal AdmissionNo As String, _
40437                     ByVal EnrollmentNo As String, _
40438                     ByVal GRNo As String, _
40439                     ByVal UID As String, _
40440                     ByVal StudentName As String, _
40441                     ByVal FatherName As String, _
40442                     ByVal MotherName As String, _
40443                     ByVal FatherCN As String, _
40444                     ByVal PermanentAddress As String, _
40445                     ByVal TemporaryAddress As String, _
40446                     ByVal ContactNo As String, _
40447                     ByVal EmailID As String, _
40448                     ByVal DOB As Date, _
40449                     ByVal Gender As String, _
40450                     ByVal AdmissionDate As Date, _
40451                     ByVal Session As String, _
40452                     ByVal Caste As String, _
40453                     ByVal Religion As String, _
40454                     ByVal SectionID As Integer, _
40455                     ByVal Photo() As Byte, _
40456                     ByVal Nationality As String, _
40457                     ByVal SchoolID As Integer, _
40458                     ByVal LastSchoolAttended As String, _
40459                     ByVal Result As String, _
40460                     ByVal PassPercentage As String, _
40461                     ByVal Status As String, _
40462                     ByVal Original_AdmissionNo As String, _
40463                     ByVal Original_EnrollmentNo As String, _
40464                     ByVal Original_GRNo As String, _
40465                     ByVal Original_UID As String, _
40466                     ByVal Original_StudentName As String, _
40467                     ByVal Original_FatherName As String, _
40468                     ByVal Original_MotherName As String, _
40469                     ByVal Original_FatherCN As String, _
40470                     ByVal Original_PermanentAddress As String, _
40471                     ByVal Original_TemporaryAddress As String, _
40472                     ByVal Original_ContactNo As String, _
40473                     ByVal Original_EmailID As String, _
40474                     ByVal Original_DOB As Date, _
40475                     ByVal Original_Gender As String, _
40476                     ByVal Original_AdmissionDate As Date, _
40477                     ByVal Original_Session As String, _
40478                     ByVal Original_Caste As String, _
40479                     ByVal Original_Religion As String, _
40480                     ByVal Original_SectionID As Integer, _
40481                     ByVal Original_Nationality As String, _
40482                     ByVal Original_SchoolID As Integer, _
40483                     ByVal Original_LastSchoolAttended As String, _
40484                     ByVal Original_Result As String, _
40485                     ByVal Original_PassPercentage As String, _
40486                     ByVal Original_Status As String) As Integer
40487             If (AdmissionNo Is Nothing) Then
40488                 Throw New Global.System.ArgumentNullException("AdmissionNo")
40489             Else
40490                 Me.Adapter.UpdateCommand.Parameters(0).Value = CType(AdmissionNo,String)
40491             End If
40492             If (EnrollmentNo Is Nothing) Then
40493                 Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value
40494             Else
40495                 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(EnrollmentNo,String)
40496             End If
40497             If (GRNo Is Nothing) Then
40498                 Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value
40499             Else
40500                 Me.Adapter.UpdateCommand.Parameters(2).Value = CType(GRNo,String)
40501             End If
40502             If (UID Is Nothing) Then
40503                 Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value
40504             Else
40505                 Me.Adapter.UpdateCommand.Parameters(3).Value = CType(UID,String)
40506             End If
40507             If (StudentName Is Nothing) Then
40508                 Throw New Global.System.ArgumentNullException("StudentName")
40509             Else
40510                 Me.Adapter.UpdateCommand.Parameters(4).Value = CType(StudentName,String)
40511             End If
40512             If (FatherName Is Nothing) Then
40513                 Throw New Global.System.ArgumentNullException("FatherName")
40514             Else
40515                 Me.Adapter.UpdateCommand.Parameters(5).Value = CType(FatherName,String)
40516             End If
40517             If (MotherName Is Nothing) Then
40518                 Throw New Global.System.ArgumentNullException("MotherName")
40519             Else
40520                 Me.Adapter.UpdateCommand.Parameters(6).Value = CType(MotherName,String)
40521             End If
40522             If (FatherCN Is Nothing) Then
40523                 Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value
40524             Else
40525                 Me.Adapter.UpdateCommand.Parameters(7).Value = CType(FatherCN,String)
40526             End If
40527             If (PermanentAddress Is Nothing) Then
40528                 Throw New Global.System.ArgumentNullException("PermanentAddress")
40529             Else
40530                 Me.Adapter.UpdateCommand.Parameters(8).Value = CType(PermanentAddress,String)
40531             End If
40532             If (TemporaryAddress Is Nothing) Then
40533                 Throw New Global.System.ArgumentNullException("TemporaryAddress")
40534             Else
40535                 Me.Adapter.UpdateCommand.Parameters(9).Value = CType(TemporaryAddress,String)
40536             End If
40537             If (ContactNo Is Nothing) Then
40538                 Throw New Global.System.ArgumentNullException("ContactNo")
40539             Else
40540                 Me.Adapter.UpdateCommand.Parameters(10).Value = CType(ContactNo,String)
40541             End If
40542             If (EmailID Is Nothing) Then
40543                 Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value
40544             Else
40545                 Me.Adapter.UpdateCommand.Parameters(11).Value = CType(EmailID,String)
40546             End If
40547             Me.Adapter.UpdateCommand.Parameters(12).Value = CType(DOB,Date)
40548             If (Gender Is Nothing) Then
40549                 Throw New Global.System.ArgumentNullException("Gender")
40550             Else
40551                 Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Gender,String)
40552             End If
40553             Me.Adapter.UpdateCommand.Parameters(14).Value = CType(AdmissionDate,Date)
40554             If (Session Is Nothing) Then
40555                 Throw New Global.System.ArgumentNullException("Session")
40556             Else
40557                 Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Session,String)
40558             End If
40559             If (Caste Is Nothing) Then
40560                 Throw New Global.System.ArgumentNullException("Caste")
40561             Else
40562                 Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Caste,String)
40563             End If
40564             If (Religion Is Nothing) Then
40565                 Throw New Global.System.ArgumentNullException("Religion")
40566             Else
40567                 Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Religion,String)
40568             End If
40569             Me.Adapter.UpdateCommand.Parameters(18).Value = CType(SectionID,Integer)
40570             If (Photo Is Nothing) Then
40571                 Throw New Global.System.ArgumentNullException("Photo")
40572             Else
40573                 Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Photo,Byte())
40574             End If
40575             If (Nationality Is Nothing) Then
40576                 Me.Adapter.UpdateCommand.Parameters(20).Value = Global.System.DBNull.Value
40577             Else
40578                 Me.Adapter.UpdateCommand.Parameters(20).Value = CType(Nationality,String)
40579             End If
40580             Me.Adapter.UpdateCommand.Parameters(21).Value = CType(SchoolID,Integer)
40581             If (LastSchoolAttended Is Nothing) Then
40582                 Me.Adapter.UpdateCommand.Parameters(22).Value = Global.System.DBNull.Value
40583             Else
40584                 Me.Adapter.UpdateCommand.Parameters(22).Value = CType(LastSchoolAttended,String)
40585             End If
40586             If (Result Is Nothing) Then
40587                 Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value
40588             Else
40589                 Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Result,String)
40590             End If
40591             If (PassPercentage Is Nothing) Then
40592                 Me.Adapter.UpdateCommand.Parameters(24).Value = Global.System.DBNull.Value
40593             Else
40594                 Me.Adapter.UpdateCommand.Parameters(24).Value = CType(PassPercentage,String)
40595             End If
40596             If (Status Is Nothing) Then
40597                 Throw New Global.System.ArgumentNullException("Status")
40598             Else
40599                 Me.Adapter.UpdateCommand.Parameters(25).Value = CType(Status,String)
40600             End If
40601             If (Original_AdmissionNo Is Nothing) Then
40602                 Throw New Global.System.ArgumentNullException("Original_AdmissionNo")
40603             Else
40604                 Me.Adapter.UpdateCommand.Parameters(26).Value = CType(Original_AdmissionNo,String)
40605             End If
40606             If (Original_EnrollmentNo Is Nothing) Then
40607                 Me.Adapter.UpdateCommand.Parameters(27).Value = CType(1,Object)
40608                 Me.Adapter.UpdateCommand.Parameters(28).Value = Global.System.DBNull.Value
40609             Else
40610                 Me.Adapter.UpdateCommand.Parameters(27).Value = CType(0,Object)
40611                 Me.Adapter.UpdateCommand.Parameters(28).Value = CType(Original_EnrollmentNo,String)
40612             End If
40613             If (Original_GRNo Is Nothing) Then
40614                 Me.Adapter.UpdateCommand.Parameters(29).Value = CType(1,Object)
40615                 Me.Adapter.UpdateCommand.Parameters(30).Value = Global.System.DBNull.Value
40616             Else
40617                 Me.Adapter.UpdateCommand.Parameters(29).Value = CType(0,Object)
40618                 Me.Adapter.UpdateCommand.Parameters(30).Value = CType(Original_GRNo,String)
40619             End If
40620             If (Original_UID Is Nothing) Then
40621                 Me.Adapter.UpdateCommand.Parameters(31).Value = CType(1,Object)
40622                 Me.Adapter.UpdateCommand.Parameters(32).Value = Global.System.DBNull.Value
40623             Else
40624                 Me.Adapter.UpdateCommand.Parameters(31).Value = CType(0,Object)
40625                 Me.Adapter.UpdateCommand.Parameters(32).Value = CType(Original_UID,String)
40626             End If
40627             If (Original_StudentName Is Nothing) Then
40628                 Throw New Global.System.ArgumentNullException("Original_StudentName")
40629             Else
40630                 Me.Adapter.UpdateCommand.Parameters(33).Value = CType(Original_StudentName,String)
40631             End If
40632             If (Original_FatherName Is Nothing) Then
40633                 Throw New Global.System.ArgumentNullException("Original_FatherName")
40634             Else
40635                 Me.Adapter.UpdateCommand.Parameters(34).Value = CType(Original_FatherName,String)
40636             End If
40637             If (Original_MotherName Is Nothing) Then
40638                 Throw New Global.System.ArgumentNullException("Original_MotherName")
40639             Else
40640                 Me.Adapter.UpdateCommand.Parameters(35).Value = CType(Original_MotherName,String)
40641             End If
40642             If (Original_FatherCN Is Nothing) Then
40643                 Me.Adapter.UpdateCommand.Parameters(36).Value = CType(1,Object)
40644                 Me.Adapter.UpdateCommand.Parameters(37).Value = Global.System.DBNull.Value
40645             Else
40646                 Me.Adapter.UpdateCommand.Parameters(36).Value = CType(0,Object)
40647                 Me.Adapter.UpdateCommand.Parameters(37).Value = CType(Original_FatherCN,String)
40648             End If
40649             If (Original_PermanentAddress Is Nothing) Then
40650                 Throw New Global.System.ArgumentNullException("Original_PermanentAddress")
40651             Else
40652                 Me.Adapter.UpdateCommand.Parameters(38).Value = CType(Original_PermanentAddress,String)
40653             End If
40654             If (Original_TemporaryAddress Is Nothing) Then
40655                 Throw New Global.System.ArgumentNullException("Original_TemporaryAddress")
40656             Else
40657                 Me.Adapter.UpdateCommand.Parameters(39).Value = CType(Original_TemporaryAddress,String)
40658             End If
40659             If (Original_ContactNo Is Nothing) Then
40660                 Throw New Global.System.ArgumentNullException("Original_ContactNo")
40661             Else
40662                 Me.Adapter.UpdateCommand.Parameters(40).Value = CType(Original_ContactNo,String)
40663             End If
40664             If (Original_EmailID Is Nothing) Then
40665                 Me.Adapter.UpdateCommand.Parameters(41).Value = CType(1,Object)
40666                 Me.Adapter.UpdateCommand.Parameters(42).Value = Global.System.DBNull.Value
40667             Else
40668                 Me.Adapter.UpdateCommand.Parameters(41).Value = CType(0,Object)
40669                 Me.Adapter.UpdateCommand.Parameters(42).Value = CType(Original_EmailID,String)
40670             End If
40671             Me.Adapter.UpdateCommand.Parameters(43).Value = CType(Original_DOB,Date)
40672             If (Original_Gender Is Nothing) Then
40673                 Throw New Global.System.ArgumentNullException("Original_Gender")
40674             Else
40675                 Me.Adapter.UpdateCommand.Parameters(44).Value = CType(Original_Gender,String)
40676             End If
40677             Me.Adapter.UpdateCommand.Parameters(45).Value = CType(Original_AdmissionDate,Date)
40678             If (Original_Session Is Nothing) Then
40679                 Throw New Global.System.ArgumentNullException("Original_Session")
40680             Else
40681                 Me.Adapter.UpdateCommand.Parameters(46).Value = CType(Original_Session,String)
40682             End If
40683             If (Original_Caste Is Nothing) Then
40684                 Throw New Global.System.ArgumentNullException("Original_Caste")
40685             Else
40686                 Me.Adapter.UpdateCommand.Parameters(47).Value = CType(Original_Caste,String)
40687             End If
40688             If (Original_Religion Is Nothing) Then
40689                 Throw New Global.System.ArgumentNullException("Original_Religion")
40690             Else
40691                 Me.Adapter.UpdateCommand.Parameters(48).Value = CType(Original_Religion,String)
40692             End If
40693             Me.Adapter.UpdateCommand.Parameters(49).Value = CType(Original_SectionID,Integer)
40694             If (Original_Nationality Is Nothing) Then
40695                 Me.Adapter.UpdateCommand.Parameters(50).Value = CType(1,Object)
40696                 Me.Adapter.UpdateCommand.Parameters(51).Value = Global.System.DBNull.Value
40697             Else
40698                 Me.Adapter.UpdateCommand.Parameters(50).Value = CType(0,Object)
40699                 Me.Adapter.UpdateCommand.Parameters(51).Value = CType(Original_Nationality,String)
40700             End If
40701             Me.Adapter.UpdateCommand.Parameters(52).Value = CType(Original_SchoolID,Integer)
40702             If (Original_LastSchoolAttended Is Nothing) Then
40703                 Me.Adapter.UpdateCommand.Parameters(53).Value = CType(1,Object)
40704                 Me.Adapter.UpdateCommand.Parameters(54).Value = Global.System.DBNull.Value
40705             Else
40706                 Me.Adapter.UpdateCommand.Parameters(53).Value = CType(0,Object)
40707                 Me.Adapter.UpdateCommand.Parameters(54).Value = CType(Original_LastSchoolAttended,String)
40708             End If
40709             If (Original_Result Is Nothing) Then
40710                 Me.Adapter.UpdateCommand.Parameters(55).Value = CType(1,Object)
40711                 Me.Adapter.UpdateCommand.Parameters(56).Value = Global.System.DBNull.Value
40712             Else
40713                 Me.Adapter.UpdateCommand.Parameters(55).Value = CType(0,Object)
40714                 Me.Adapter.UpdateCommand.Parameters(56).Value = CType(Original_Result,String)
40715             End If
40716             If (Original_PassPercentage Is Nothing) Then
40717                 Me.Adapter.UpdateCommand.Parameters(57).Value = CType(1,Object)
40718                 Me.Adapter.UpdateCommand.Parameters(58).Value = Global.System.DBNull.Value
40719             Else
40720                 Me.Adapter.UpdateCommand.Parameters(57).Value = CType(0,Object)
40721                 Me.Adapter.UpdateCommand.Parameters(58).Value = CType(Original_PassPercentage,String)
40722             End If
40723             If (Original_Status Is Nothing) Then
40724                 Throw New Global.System.ArgumentNullException("Original_Status")
40725             Else
40726                 Me.Adapter.UpdateCommand.Parameters(59).Value = CType(Original_Status,String)
40727             End If
40728             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
40729             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
40730                         <> Global.System.Data.ConnectionState.Open) Then
40731                 Me.Adapter.UpdateCommand.Connection.Open
40732             End If
40733             Try
40734                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
40735                 Return returnValue
40736             Finally
40737                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
40738                     Me.Adapter.UpdateCommand.Connection.Close
40739                 End If
40740             End Try
40741         End Function
40742         
40743         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
40744          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
40745          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
40746          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
40747         Public Overloads Overridable Function Update( _
40748                     ByVal EnrollmentNo As String, _
40749                     ByVal GRNo As String, _
40750                     ByVal UID As String, _
40751                     ByVal StudentName As String, _
40752                     ByVal FatherName As String, _
40753                     ByVal MotherName As String, _
40754                     ByVal FatherCN As String, _
40755                     ByVal PermanentAddress As String, _
40756                     ByVal TemporaryAddress As String, _
40757                     ByVal ContactNo As String, _
40758                     ByVal EmailID As String, _
40759                     ByVal DOB As Date, _
40760                     ByVal Gender As String, _
40761                     ByVal AdmissionDate As Date, _
40762                     ByVal Session As String, _
40763                     ByVal Caste As String, _
40764                     ByVal Religion As String, _
40765                     ByVal SectionID As Integer, _
40766                     ByVal Photo() As Byte, _
40767                     ByVal Nationality As String, _
40768                     ByVal SchoolID As Integer, _
40769                     ByVal LastSchoolAttended As String, _
40770                     ByVal Result As String, _
40771                     ByVal PassPercentage As String, _
40772                     ByVal Status As String, _
40773                     ByVal Original_AdmissionNo As String, _
40774                     ByVal Original_EnrollmentNo As String, _
40775                     ByVal Original_GRNo As String, _
40776                     ByVal Original_UID As String, _
40777                     ByVal Original_StudentName As String, _
40778                     ByVal Original_FatherName As String, _
40779                     ByVal Original_MotherName As String, _
40780                     ByVal Original_FatherCN As String, _
40781                     ByVal Original_PermanentAddress As String, _
40782                     ByVal Original_TemporaryAddress As String, _
40783                     ByVal Original_ContactNo As String, _
40784                     ByVal Original_EmailID As String, _
40785                     ByVal Original_DOB As Date, _
40786                     ByVal Original_Gender As String, _
40787                     ByVal Original_AdmissionDate As Date, _
40788                     ByVal Original_Session As String, _
40789                     ByVal Original_Caste As String, _
40790                     ByVal Original_Religion As String, _
40791                     ByVal Original_SectionID As Integer, _
40792                     ByVal Original_Nationality As String, _
40793                     ByVal Original_SchoolID As Integer, _
40794                     ByVal Original_LastSchoolAttended As String, _
40795                     ByVal Original_Result As String, _
40796                     ByVal Original_PassPercentage As String, _
40797                     ByVal Original_Status As String) As Integer
40798             Return Me.Update(Original_AdmissionNo, EnrollmentNo, GRNo, UID, StudentName, FatherName, MotherName, FatherCN, PermanentAddress, TemporaryAddress, ContactNo, EmailID, DOB, Gender, AdmissionDate, Session, Caste, Religion, SectionID, Photo, Nationality, SchoolID, LastSchoolAttended, Result, PassPercentage, Status, Original_AdmissionNo, Original_EnrollmentNo, Original_GRNo, Original_UID, Original_StudentName, Original_FatherName, Original_MotherName, Original_FatherCN, Original_PermanentAddress, Original_TemporaryAddress, Original_ContactNo, Original_EmailID, Original_DOB, Original_Gender, Original_AdmissionDate, Original_Session, Original_Caste, Original_Religion, Original_SectionID, Original_Nationality, Original_SchoolID, Original_LastSchoolAttended, Original_Result, Original_PassPercentage, Original_Status)
40799         End Function
40800     End Class
40801     
40802     '''<summary>
40803     '''Represents the connection and commands used to retrieve and save data.
40804     '''</summary>
40805     <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
40806      Global.System.ComponentModel.ToolboxItem(true), _
40807      Global.System.ComponentModel.DataObjectAttribute(true), _
40808      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
40809         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
40810      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
40811     Partial Public Class StudentDocSubmittedTableAdapter
40812         Inherits Global.System.ComponentModel.Component
40813         
40814         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
40815         
40816         Private _connection As Global.System.Data.SqlClient.SqlConnection
40817         
40818         Private _transaction As Global.System.Data.SqlClient.SqlTransaction
40819         
40820         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
40821         
40822         Private _clearBeforeFill As Boolean
40823         
40824         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
40825          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
40826         Public Sub New()
40827             MyBase.New
40828             Me.ClearBeforeFill = true
40829         End Sub
40830         
40831         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
40832          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
40833         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
40834             Get
40835                 If (Me._adapter Is Nothing) Then
40836                     Me.InitAdapter
40837                 End If
40838                 Return Me._adapter
40839             End Get
40840         End Property
40841         
40842         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
40843          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
40844         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
40845             Get
40846                 If (Me._connection Is Nothing) Then
40847                     Me.InitConnection
40848                 End If
40849                 Return Me._connection
40850             End Get
40851             Set
40852                 Me._connection = value
40853                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
40854                     Me.Adapter.InsertCommand.Connection = value
40855                 End If
40856                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
40857                     Me.Adapter.DeleteCommand.Connection = value
40858                 End If
40859                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
40860                     Me.Adapter.UpdateCommand.Connection = value
40861                 End If
40862                 Dim i As Integer = 0
40863                 Do While (i < Me.CommandCollection.Length)
40864                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
40865                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
40866                     End If
40867                     i = (i + 1)
40868                 Loop
40869             End Set
40870         End Property
40871         
40872         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
40873          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
40874         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
40875             Get
40876                 Return Me._transaction
40877             End Get
40878             Set
40879                 Me._transaction = value
40880                 Dim i As Integer = 0
40881                 Do While (i < Me.CommandCollection.Length)
40882                     Me.CommandCollection(i).Transaction = Me._transaction
40883                     i = (i + 1)
40884                 Loop
40885                 If ((Not (Me.Adapter) Is Nothing) _
40886                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
40887                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
40888                 End If
40889                 If ((Not (Me.Adapter) Is Nothing) _
40890                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
40891                     Me.Adapter.InsertCommand.Transaction = Me._transaction
40892                 End If
40893                 If ((Not (Me.Adapter) Is Nothing) _
40894                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
40895                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
40896                 End If
40897             End Set
40898         End Property
40899         
40900         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
40901          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
40902         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
40903             Get
40904                 If (Me._commandCollection Is Nothing) Then
40905                     Me.InitCommandCollection
40906                 End If
40907                 Return Me._commandCollection
40908             End Get
40909         End Property
40910         
40911         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
40912          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
40913         Public Property ClearBeforeFill() As Boolean
40914             Get
40915                 Return Me._clearBeforeFill
40916             End Get
40917             Set
40918                 Me._clearBeforeFill = value
40919             End Set
40920         End Property
40921         
40922         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
40923          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
40924         Private Sub InitAdapter()
40925             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
40926             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
40927             tableMapping.SourceTable = "Table"
40928             tableMapping.DataSetTable = "StudentDocSubmitted"
40929             tableMapping.ColumnMappings.Add("SDS_id", "SDS_id")
40930             tableMapping.ColumnMappings.Add("AdmissionNo", "AdmissionNo")
40931             tableMapping.ColumnMappings.Add("DocId", "DocId")
40932             Me._adapter.TableMappings.Add(tableMapping)
40933             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
40934             Me._adapter.DeleteCommand.Connection = Me.Connection
40935             Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[StudentDocSubmitted] WHERE (([SDS_id] = @Original_SDS_id) AND "& _
40936                 "([AdmissionNo] = @Original_AdmissionNo) AND ([DocId] = @Original_DocId))"
40937             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
40938             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SDS_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SDS_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
40939             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_AdmissionNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AdmissionNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
40940             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DocId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
40941             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
40942             Me._adapter.InsertCommand.Connection = Me.Connection
40943             Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[StudentDocSubmitted] ([AdmissionNo], [DocId]) VALUES (@Admissi"& _
40944                 "onNo, @DocId);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT SDS_id, AdmissionNo, DocId FROM StudentDocSubmitted WHERE"& _
40945                 " (SDS_id = SCOPE_IDENTITY())"
40946             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
40947             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AdmissionNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AdmissionNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
40948             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DocId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
40949             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
40950             Me._adapter.UpdateCommand.Connection = Me.Connection
40951             Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[StudentDocSubmitted] SET [AdmissionNo] = @AdmissionNo, [DocId] = @D"& _
40952                 "ocId WHERE (([SDS_id] = @Original_SDS_id) AND ([AdmissionNo] = @Original_Admissi"& _
40953                 "onNo) AND ([DocId] = @Original_DocId));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT SDS_id, AdmissionNo, DocId FROM "& _
40954                 "StudentDocSubmitted WHERE (SDS_id = @SDS_id)"
40955             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
40956             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AdmissionNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AdmissionNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
40957             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DocId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocId", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
40958             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SDS_id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SDS_id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
40959             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_AdmissionNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AdmissionNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
40960             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DocId", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DocId", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
40961             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SDS_id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SDS_id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
40962         End Sub
40963         
40964         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
40965          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
40966         Private Sub InitConnection()
40967             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
40968             Me._connection.ConnectionString = Global.ERP_System.My.MySettings.Default.ERPS_DBConnectionString
40969         End Sub
40970         
40971         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
40972          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
40973         Private Sub InitCommandCollection()
40974             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
40975             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
40976             Me._commandCollection(0).Connection = Me.Connection
40977             Me._commandCollection(0).CommandText = "SELECT SDS_id, AdmissionNo, DocId FROM dbo.StudentDocSubmitted"
40978             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
40979         End Sub
40980         
40981         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
40982          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
40983          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
40984          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
40985         Public Overloads Overridable Function Fill(ByVal dataTable As ERPS_DBDataSet1.StudentDocSubmittedDataTable) As Integer
40986             Me.Adapter.SelectCommand = Me.CommandCollection(0)
40987             If (Me.ClearBeforeFill = true) Then
40988                 dataTable.Clear
40989             End If
40990             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
40991             Return returnValue
40992         End Function
40993         
40994         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
40995          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
40996          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
40997          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
40998         Public Overloads Overridable Function GetData() As ERPS_DBDataSet1.StudentDocSubmittedDataTable
40999             Me.Adapter.SelectCommand = Me.CommandCollection(0)
41000             Dim dataTable As ERPS_DBDataSet1.StudentDocSubmittedDataTable = New ERPS_DBDataSet1.StudentDocSubmittedDataTable()
41001             Me.Adapter.Fill(dataTable)
41002             Return dataTable
41003         End Function
41004         
41005         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
41006          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
41007          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
41008         Public Overloads Overridable Function Update(ByVal dataTable As ERPS_DBDataSet1.StudentDocSubmittedDataTable) As Integer
41009             Return Me.Adapter.Update(dataTable)
41010         End Function
41011         
41012         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
41013          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
41014          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
41015         Public Overloads Overridable Function Update(ByVal dataSet As ERPS_DBDataSet1) As Integer
41016             Return Me.Adapter.Update(dataSet, "StudentDocSubmitted")
41017         End Function
41018         
41019         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
41020          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
41021          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
41022         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
41023             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
41024         End Function
41025         
41026         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
41027          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
41028          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
41029         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
41030             Return Me.Adapter.Update(dataRows)
41031         End Function
41032         
41033         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
41034          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
41035          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
41036          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
41037         Public Overloads Overridable Function Delete(ByVal Original_SDS_id As Integer, ByVal Original_AdmissionNo As String, ByVal Original_DocId As Integer) As Integer
41038             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_SDS_id,Integer)
41039             If (Original_AdmissionNo Is Nothing) Then
41040                 Throw New Global.System.ArgumentNullException("Original_AdmissionNo")
41041             Else
41042                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_AdmissionNo,String)
41043             End If
41044             Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_DocId,Integer)
41045             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
41046             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
41047                         <> Global.System.Data.ConnectionState.Open) Then
41048                 Me.Adapter.DeleteCommand.Connection.Open
41049             End If
41050             Try
41051                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
41052                 Return returnValue
41053             Finally
41054                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
41055                     Me.Adapter.DeleteCommand.Connection.Close
41056                 End If
41057             End Try
41058         End Function
41059         
41060         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
41061          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
41062          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
41063          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
41064         Public Overloads Overridable Function Insert(ByVal AdmissionNo As String, ByVal DocId As Integer) As Integer
41065             If (AdmissionNo Is Nothing) Then
41066                 Throw New Global.System.ArgumentNullException("AdmissionNo")
41067             Else
41068                 Me.Adapter.InsertCommand.Parameters(0).Value = CType(AdmissionNo,String)
41069             End If
41070             Me.Adapter.InsertCommand.Parameters(1).Value = CType(DocId,Integer)
41071             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
41072             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
41073                         <> Global.System.Data.ConnectionState.Open) Then
41074                 Me.Adapter.InsertCommand.Connection.Open
41075             End If
41076             Try
41077                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
41078                 Return returnValue
41079             Finally
41080                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
41081                     Me.Adapter.InsertCommand.Connection.Close
41082                 End If
41083             End Try
41084         End Function
41085         
41086         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
41087          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
41088          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
41089          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
41090         Public Overloads Overridable Function Update(ByVal AdmissionNo As String, ByVal DocId As Integer, ByVal Original_SDS_id As Integer, ByVal Original_AdmissionNo As String, ByVal Original_DocId As Integer, ByVal SDS_id As Integer) As Integer
41091             If (AdmissionNo Is Nothing) Then
41092                 Throw New Global.System.ArgumentNullException("AdmissionNo")
41093             Else
41094                 Me.Adapter.UpdateCommand.Parameters(0).Value = CType(AdmissionNo,String)
41095             End If
41096             Me.Adapter.UpdateCommand.Parameters(1).Value = CType(DocId,Integer)
41097             Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Original_SDS_id,Integer)
41098             If (Original_AdmissionNo Is Nothing) Then
41099                 Throw New Global.System.ArgumentNullException("Original_AdmissionNo")
41100             Else
41101                 Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_AdmissionNo,String)
41102             End If
41103             Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_DocId,Integer)
41104             Me.Adapter.UpdateCommand.Parameters(5).Value = CType(SDS_id,Integer)
41105             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
41106             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
41107                         <> Global.System.Data.ConnectionState.Open) Then
41108                 Me.Adapter.UpdateCommand.Connection.Open
41109             End If
41110             Try
41111                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
41112                 Return returnValue
41113             Finally
41114                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
41115                     Me.Adapter.UpdateCommand.Connection.Close
41116                 End If
41117             End Try
41118         End Function
41119         
41120         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
41121          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
41122          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
41123          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
41124         Public Overloads Overridable Function Update(ByVal AdmissionNo As String, ByVal DocId As Integer, ByVal Original_SDS_id As Integer, ByVal Original_AdmissionNo As String, ByVal Original_DocId As Integer) As Integer
41125             Return Me.Update(AdmissionNo, DocId, Original_SDS_id, Original_AdmissionNo, Original_DocId, Original_SDS_id)
41126         End Function
41127     End Class
41128     
41129     '''<summary>
41130     '''Represents the connection and commands used to retrieve and save data.
41131     '''</summary>
41132     <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
41133      Global.System.ComponentModel.ToolboxItem(true), _
41134      Global.System.ComponentModel.DataObjectAttribute(true), _
41135      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
41136         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
41137      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
41138     Partial Public Class VoucherTableAdapter
41139         Inherits Global.System.ComponentModel.Component
41140         
41141         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
41142         
41143         Private _connection As Global.System.Data.SqlClient.SqlConnection
41144         
41145         Private _transaction As Global.System.Data.SqlClient.SqlTransaction
41146         
41147         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
41148         
41149         Private _clearBeforeFill As Boolean
41150         
41151         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
41152          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
41153         Public Sub New()
41154             MyBase.New
41155             Me.ClearBeforeFill = true
41156         End Sub
41157         
41158         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
41159          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
41160         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
41161             Get
41162                 If (Me._adapter Is Nothing) Then
41163                     Me.InitAdapter
41164                 End If
41165                 Return Me._adapter
41166             End Get
41167         End Property
41168         
41169         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
41170          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
41171         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
41172             Get
41173                 If (Me._connection Is Nothing) Then
41174                     Me.InitConnection
41175                 End If
41176                 Return Me._connection
41177             End Get
41178             Set
41179                 Me._connection = value
41180                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
41181                     Me.Adapter.InsertCommand.Connection = value
41182                 End If
41183                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
41184                     Me.Adapter.DeleteCommand.Connection = value
41185                 End If
41186                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
41187                     Me.Adapter.UpdateCommand.Connection = value
41188                 End If
41189                 Dim i As Integer = 0
41190                 Do While (i < Me.CommandCollection.Length)
41191                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
41192                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
41193                     End If
41194                     i = (i + 1)
41195                 Loop
41196             End Set
41197         End Property
41198         
41199         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
41200          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
41201         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
41202             Get
41203                 Return Me._transaction
41204             End Get
41205             Set
41206                 Me._transaction = value
41207                 Dim i As Integer = 0
41208                 Do While (i < Me.CommandCollection.Length)
41209                     Me.CommandCollection(i).Transaction = Me._transaction
41210                     i = (i + 1)
41211                 Loop
41212                 If ((Not (Me.Adapter) Is Nothing) _
41213                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
41214                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
41215                 End If
41216                 If ((Not (Me.Adapter) Is Nothing) _
41217                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
41218                     Me.Adapter.InsertCommand.Transaction = Me._transaction
41219                 End If
41220                 If ((Not (Me.Adapter) Is Nothing) _
41221                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
41222                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
41223                 End If
41224             End Set
41225         End Property
41226         
41227         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
41228          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
41229         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
41230             Get
41231                 If (Me._commandCollection Is Nothing) Then
41232                     Me.InitCommandCollection
41233                 End If
41234                 Return Me._commandCollection
41235             End Get
41236         End Property
41237         
41238         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
41239          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
41240         Public Property ClearBeforeFill() As Boolean
41241             Get
41242                 Return Me._clearBeforeFill
41243             End Get
41244             Set
41245                 Me._clearBeforeFill = value
41246             End Set
41247         End Property
41248         
41249         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
41250          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
41251         Private Sub InitAdapter()
41252             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
41253             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
41254             tableMapping.SourceTable = "Table"
41255             tableMapping.DataSetTable = "Voucher"
41256             tableMapping.ColumnMappings.Add("ID", "ID")
41257             tableMapping.ColumnMappings.Add("VoucherNo", "VoucherNo")
41258             tableMapping.ColumnMappings.Add("Date", "Date")
41259             tableMapping.ColumnMappings.Add("Name", "Name")
41260             tableMapping.ColumnMappings.Add("Details", "Details")
41261             tableMapping.ColumnMappings.Add("SchoolID", "SchoolID")
41262             tableMapping.ColumnMappings.Add("GrandTotal", "GrandTotal")
41263             Me._adapter.TableMappings.Add(tableMapping)
41264             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
41265             Me._adapter.DeleteCommand.Connection = Me.Connection
41266             Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[Voucher] WHERE (([ID] = @Original_ID) AND ([VoucherNo] = @Orig"& _
41267                 "inal_VoucherNo) AND ([Date] = @Original_Date) AND ([Name] = @Original_Name) AND "& _
41268                 "([Details] = @Original_Details) AND ([SchoolID] = @Original_SchoolID) AND ((@IsN"& _
41269                 "ull_GrandTotal = 1 AND [GrandTotal] IS NULL) OR ([GrandTotal] = @Original_GrandT"& _
41270                 "otal)))"
41271             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
41272             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
41273             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_VoucherNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VoucherNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
41274             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Date", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Date", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
41275             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Name", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
41276             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Details", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Details", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
41277             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SchoolID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SchoolID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
41278             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_GrandTotal", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GrandTotal", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
41279             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GrandTotal", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "GrandTotal", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
41280             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
41281             Me._adapter.InsertCommand.Connection = Me.Connection
41282             Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[Voucher] ([ID], [VoucherNo], [Date], [Name], [Details], [Schoo"& _
41283                 "lID], [GrandTotal]) VALUES (@ID, @VoucherNo, @Date, @Name, @Details, @SchoolID, "& _
41284                 "@GrandTotal);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ID, VoucherNo, Date, Name, Details, SchoolID, GrandTotal F"& _
41285                 "ROM Voucher WHERE (ID = @ID)"
41286             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
41287             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
41288             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VoucherNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VoucherNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
41289             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Date", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Date", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
41290             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Name", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
41291             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Details", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Details", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
41292             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SchoolID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SchoolID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
41293             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GrandTotal", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "GrandTotal", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
41294             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
41295             Me._adapter.UpdateCommand.Connection = Me.Connection
41296             Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[Voucher] SET [ID] = @ID, [VoucherNo] = @VoucherNo, [Date] = @Date, "& _
41297                 "[Name] = @Name, [Details] = @Details, [SchoolID] = @SchoolID, [GrandTotal] = @Gr"& _
41298                 "andTotal WHERE (([ID] = @Original_ID) AND ([VoucherNo] = @Original_VoucherNo) AN"& _
41299                 "D ([Date] = @Original_Date) AND ([Name] = @Original_Name) AND ([Details] = @Orig"& _
41300                 "inal_Details) AND ([SchoolID] = @Original_SchoolID) AND ((@IsNull_GrandTotal = 1"& _
41301                 " AND [GrandTotal] IS NULL) OR ([GrandTotal] = @Original_GrandTotal)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT I"& _
41302                 "D, VoucherNo, Date, Name, Details, SchoolID, GrandTotal FROM Voucher WHERE (ID ="& _
41303                 " @ID)"
41304             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
41305             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
41306             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VoucherNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VoucherNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
41307             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Date", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Date", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
41308             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Name", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
41309             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Details", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Details", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
41310             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SchoolID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SchoolID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
41311             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GrandTotal", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "GrandTotal", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
41312             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
41313             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_VoucherNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VoucherNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
41314             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Date", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Date", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
41315             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Name", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
41316             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Details", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Details", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
41317             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SchoolID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SchoolID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
41318             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_GrandTotal", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GrandTotal", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
41319             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GrandTotal", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "GrandTotal", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
41320         End Sub
41321         
41322         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
41323          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
41324         Private Sub InitConnection()
41325             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
41326             Me._connection.ConnectionString = Global.ERP_System.My.MySettings.Default.ERPS_DBConnectionString
41327         End Sub
41328         
41329         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
41330          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
41331         Private Sub InitCommandCollection()
41332             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
41333             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
41334             Me._commandCollection(0).Connection = Me.Connection
41335             Me._commandCollection(0).CommandText = "SELECT ID, VoucherNo, Date, Name, Details, SchoolID, GrandTotal FROM dbo.Voucher"
41336             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
41337         End Sub
41338         
41339         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
41340          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
41341          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
41342          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
41343         Public Overloads Overridable Function Fill(ByVal dataTable As ERPS_DBDataSet1.VoucherDataTable) As Integer
41344             Me.Adapter.SelectCommand = Me.CommandCollection(0)
41345             If (Me.ClearBeforeFill = true) Then
41346                 dataTable.Clear
41347             End If
41348             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
41349             Return returnValue
41350         End Function
41351         
41352         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
41353          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
41354          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
41355          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
41356         Public Overloads Overridable Function GetData() As ERPS_DBDataSet1.VoucherDataTable
41357             Me.Adapter.SelectCommand = Me.CommandCollection(0)
41358             Dim dataTable As ERPS_DBDataSet1.VoucherDataTable = New ERPS_DBDataSet1.VoucherDataTable()
41359             Me.Adapter.Fill(dataTable)
41360             Return dataTable
41361         End Function
41362         
41363         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
41364          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
41365          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
41366         Public Overloads Overridable Function Update(ByVal dataTable As ERPS_DBDataSet1.VoucherDataTable) As Integer
41367             Return Me.Adapter.Update(dataTable)
41368         End Function
41369         
41370         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
41371          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
41372          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
41373         Public Overloads Overridable Function Update(ByVal dataSet As ERPS_DBDataSet1) As Integer
41374             Return Me.Adapter.Update(dataSet, "Voucher")
41375         End Function
41376         
41377         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
41378          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
41379          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
41380         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
41381             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
41382         End Function
41383         
41384         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
41385          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
41386          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
41387         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
41388             Return Me.Adapter.Update(dataRows)
41389         End Function
41390         
41391         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
41392          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
41393          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
41394          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
41395         Public Overloads Overridable Function Delete(ByVal Original_ID As Integer, ByVal Original_VoucherNo As String, ByVal Original_Date As Date, ByVal Original_Name As String, ByVal Original_Details As String, ByVal Original_SchoolID As Integer, ByVal Original_GrandTotal As Global.System.Nullable(Of Decimal)) As Integer
41396             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_ID,Integer)
41397             If (Original_VoucherNo Is Nothing) Then
41398                 Throw New Global.System.ArgumentNullException("Original_VoucherNo")
41399             Else
41400                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_VoucherNo,String)
41401             End If
41402             Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_Date,Date)
41403             If (Original_Name Is Nothing) Then
41404                 Throw New Global.System.ArgumentNullException("Original_Name")
41405             Else
41406                 Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_Name,String)
41407             End If
41408             If (Original_Details Is Nothing) Then
41409                 Throw New Global.System.ArgumentNullException("Original_Details")
41410             Else
41411                 Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_Details,String)
41412             End If
41413             Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_SchoolID,Integer)
41414             If (Original_GrandTotal.HasValue = true) Then
41415                 Me.Adapter.DeleteCommand.Parameters(6).Value = CType(0,Object)
41416                 Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_GrandTotal.Value,Decimal)
41417             Else
41418                 Me.Adapter.DeleteCommand.Parameters(6).Value = CType(1,Object)
41419                 Me.Adapter.DeleteCommand.Parameters(7).Value = Global.System.DBNull.Value
41420             End If
41421             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
41422             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
41423                         <> Global.System.Data.ConnectionState.Open) Then
41424                 Me.Adapter.DeleteCommand.Connection.Open
41425             End If
41426             Try
41427                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
41428                 Return returnValue
41429             Finally
41430                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
41431                     Me.Adapter.DeleteCommand.Connection.Close
41432                 End If
41433             End Try
41434         End Function
41435         
41436         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
41437          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
41438          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
41439          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
41440         Public Overloads Overridable Function Insert(ByVal ID As Integer, ByVal VoucherNo As String, ByVal _Date As Date, ByVal Name As String, ByVal Details As String, ByVal SchoolID As Integer, ByVal GrandTotal As Global.System.Nullable(Of Decimal)) As Integer
41441             Me.Adapter.InsertCommand.Parameters(0).Value = CType(ID,Integer)
41442             If (VoucherNo Is Nothing) Then
41443                 Throw New Global.System.ArgumentNullException("VoucherNo")
41444             Else
41445                 Me.Adapter.InsertCommand.Parameters(1).Value = CType(VoucherNo,String)
41446             End If
41447             Me.Adapter.InsertCommand.Parameters(2).Value = CType(_Date,Date)
41448             If (Name Is Nothing) Then
41449                 Throw New Global.System.ArgumentNullException("Name")
41450             Else
41451                 Me.Adapter.InsertCommand.Parameters(3).Value = CType(Name,String)
41452             End If
41453             If (Details Is Nothing) Then
41454                 Throw New Global.System.ArgumentNullException("Details")
41455             Else
41456                 Me.Adapter.InsertCommand.Parameters(4).Value = CType(Details,String)
41457             End If
41458             Me.Adapter.InsertCommand.Parameters(5).Value = CType(SchoolID,Integer)
41459             If (GrandTotal.HasValue = true) Then
41460                 Me.Adapter.InsertCommand.Parameters(6).Value = CType(GrandTotal.Value,Decimal)
41461             Else
41462                 Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value
41463             End If
41464             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
41465             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
41466                         <> Global.System.Data.ConnectionState.Open) Then
41467                 Me.Adapter.InsertCommand.Connection.Open
41468             End If
41469             Try
41470                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
41471                 Return returnValue
41472             Finally
41473                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
41474                     Me.Adapter.InsertCommand.Connection.Close
41475                 End If
41476             End Try
41477         End Function
41478         
41479         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
41480          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
41481          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
41482          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
41483         Public Overloads Overridable Function Update(ByVal ID As Integer, ByVal VoucherNo As String, ByVal _Date As Date, ByVal Name As String, ByVal Details As String, ByVal SchoolID As Integer, ByVal GrandTotal As Global.System.Nullable(Of Decimal), ByVal Original_ID As Integer, ByVal Original_VoucherNo As String, ByVal Original_Date As Date, ByVal Original_Name As String, ByVal Original_Details As String, ByVal Original_SchoolID As Integer, ByVal Original_GrandTotal As Global.System.Nullable(Of Decimal)) As Integer
41484             Me.Adapter.UpdateCommand.Parameters(0).Value = CType(ID,Integer)
41485             If (VoucherNo Is Nothing) Then
41486                 Throw New Global.System.ArgumentNullException("VoucherNo")
41487             Else
41488                 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(VoucherNo,String)
41489             End If
41490             Me.Adapter.UpdateCommand.Parameters(2).Value = CType(_Date,Date)
41491             If (Name Is Nothing) Then
41492                 Throw New Global.System.ArgumentNullException("Name")
41493             Else
41494                 Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Name,String)
41495             End If
41496             If (Details Is Nothing) Then
41497                 Throw New Global.System.ArgumentNullException("Details")
41498             Else
41499                 Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Details,String)
41500             End If
41501             Me.Adapter.UpdateCommand.Parameters(5).Value = CType(SchoolID,Integer)
41502             If (GrandTotal.HasValue = true) Then
41503                 Me.Adapter.UpdateCommand.Parameters(6).Value = CType(GrandTotal.Value,Decimal)
41504             Else
41505                 Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value
41506             End If
41507             Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_ID,Integer)
41508             If (Original_VoucherNo Is Nothing) Then
41509                 Throw New Global.System.ArgumentNullException("Original_VoucherNo")
41510             Else
41511                 Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_VoucherNo,String)
41512             End If
41513             Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_Date,Date)
41514             If (Original_Name Is Nothing) Then
41515                 Throw New Global.System.ArgumentNullException("Original_Name")
41516             Else
41517                 Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_Name,String)
41518             End If
41519             If (Original_Details Is Nothing) Then
41520                 Throw New Global.System.ArgumentNullException("Original_Details")
41521             Else
41522                 Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_Details,String)
41523             End If
41524             Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_SchoolID,Integer)
41525             If (Original_GrandTotal.HasValue = true) Then
41526                 Me.Adapter.UpdateCommand.Parameters(13).Value = CType(0,Object)
41527                 Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_GrandTotal.Value,Decimal)
41528             Else
41529                 Me.Adapter.UpdateCommand.Parameters(13).Value = CType(1,Object)
41530                 Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value
41531             End If
41532             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
41533             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
41534                         <> Global.System.Data.ConnectionState.Open) Then
41535                 Me.Adapter.UpdateCommand.Connection.Open
41536             End If
41537             Try
41538                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
41539                 Return returnValue
41540             Finally
41541                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
41542                     Me.Adapter.UpdateCommand.Connection.Close
41543                 End If
41544             End Try
41545         End Function
41546         
41547         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
41548          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
41549          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
41550          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
41551         Public Overloads Overridable Function Update(ByVal VoucherNo As String, ByVal _Date As Date, ByVal Name As String, ByVal Details As String, ByVal SchoolID As Integer, ByVal GrandTotal As Global.System.Nullable(Of Decimal), ByVal Original_ID As Integer, ByVal Original_VoucherNo As String, ByVal Original_Date As Date, ByVal Original_Name As String, ByVal Original_Details As String, ByVal Original_SchoolID As Integer, ByVal Original_GrandTotal As Global.System.Nullable(Of Decimal)) As Integer
41552             Return Me.Update(Original_ID, VoucherNo, _Date, Name, Details, SchoolID, GrandTotal, Original_ID, Original_VoucherNo, Original_Date, Original_Name, Original_Details, Original_SchoolID, Original_GrandTotal)
41553         End Function
41554     End Class
41555     
41556     '''<summary>
41557     '''Represents the connection and commands used to retrieve and save data.
41558     '''</summary>
41559     <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
41560      Global.System.ComponentModel.ToolboxItem(true), _
41561      Global.System.ComponentModel.DataObjectAttribute(true), _
41562      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
41563         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
41564      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
41565     Partial Public Class Voucher_OtherDetailsTableAdapter
41566         Inherits Global.System.ComponentModel.Component
41567         
41568         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
41569         
41570         Private _connection As Global.System.Data.SqlClient.SqlConnection
41571         
41572         Private _transaction As Global.System.Data.SqlClient.SqlTransaction
41573         
41574         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
41575         
41576         Private _clearBeforeFill As Boolean
41577         
41578         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
41579          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
41580         Public Sub New()
41581             MyBase.New
41582             Me.ClearBeforeFill = true
41583         End Sub
41584         
41585         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
41586          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
41587         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
41588             Get
41589                 If (Me._adapter Is Nothing) Then
41590                     Me.InitAdapter
41591                 End If
41592                 Return Me._adapter
41593             End Get
41594         End Property
41595         
41596         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
41597          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
41598         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
41599             Get
41600                 If (Me._connection Is Nothing) Then
41601                     Me.InitConnection
41602                 End If
41603                 Return Me._connection
41604             End Get
41605             Set
41606                 Me._connection = value
41607                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
41608                     Me.Adapter.InsertCommand.Connection = value
41609                 End If
41610                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
41611                     Me.Adapter.DeleteCommand.Connection = value
41612                 End If
41613                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
41614                     Me.Adapter.UpdateCommand.Connection = value
41615                 End If
41616                 Dim i As Integer = 0
41617                 Do While (i < Me.CommandCollection.Length)
41618                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
41619                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
41620                     End If
41621                     i = (i + 1)
41622                 Loop
41623             End Set
41624         End Property
41625         
41626         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
41627          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
41628         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
41629             Get
41630                 Return Me._transaction
41631             End Get
41632             Set
41633                 Me._transaction = value
41634                 Dim i As Integer = 0
41635                 Do While (i < Me.CommandCollection.Length)
41636                     Me.CommandCollection(i).Transaction = Me._transaction
41637                     i = (i + 1)
41638                 Loop
41639                 If ((Not (Me.Adapter) Is Nothing) _
41640                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
41641                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
41642                 End If
41643                 If ((Not (Me.Adapter) Is Nothing) _
41644                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
41645                     Me.Adapter.InsertCommand.Transaction = Me._transaction
41646                 End If
41647                 If ((Not (Me.Adapter) Is Nothing) _
41648                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
41649                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
41650                 End If
41651             End Set
41652         End Property
41653         
41654         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
41655          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
41656         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
41657             Get
41658                 If (Me._commandCollection Is Nothing) Then
41659                     Me.InitCommandCollection
41660                 End If
41661                 Return Me._commandCollection
41662             End Get
41663         End Property
41664         
41665         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
41666          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
41667         Public Property ClearBeforeFill() As Boolean
41668             Get
41669                 Return Me._clearBeforeFill
41670             End Get
41671             Set
41672                 Me._clearBeforeFill = value
41673             End Set
41674         End Property
41675         
41676         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
41677          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
41678         Private Sub InitAdapter()
41679             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
41680             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
41681             tableMapping.SourceTable = "Table"
41682             tableMapping.DataSetTable = "Voucher_OtherDetails"
41683             tableMapping.ColumnMappings.Add("VD_ID", "VD_ID")
41684             tableMapping.ColumnMappings.Add("VoucherID", "VoucherID")
41685             tableMapping.ColumnMappings.Add("Particulars", "Particulars")
41686             tableMapping.ColumnMappings.Add("Amount", "Amount")
41687             tableMapping.ColumnMappings.Add("Note", "Note")
41688             Me._adapter.TableMappings.Add(tableMapping)
41689             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
41690             Me._adapter.DeleteCommand.Connection = Me.Connection
41691             Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[Voucher_OtherDetails] WHERE (([VD_ID] = @Original_VD_ID) AND ("& _
41692                 "[VoucherID] = @Original_VoucherID) AND ([Particulars] = @Original_Particulars) A"& _
41693                 "ND ([Amount] = @Original_Amount) AND ([Note] = @Original_Note))"
41694             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
41695             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_VD_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VD_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
41696             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_VoucherID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VoucherID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
41697             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Particulars", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Particulars", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
41698             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Amount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Amount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
41699             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Note", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Note", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
41700             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
41701             Me._adapter.InsertCommand.Connection = Me.Connection
41702             Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[Voucher_OtherDetails] ([VoucherID], [Particulars], [Amount], ["& _
41703                 "Note]) VALUES (@VoucherID, @Particulars, @Amount, @Note);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT VD_ID, Voucher"& _
41704                 "ID, Particulars, Amount, Note FROM Voucher_OtherDetails WHERE (VD_ID = SCOPE_IDE"& _
41705                 "NTITY())"
41706             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
41707             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VoucherID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VoucherID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
41708             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Particulars", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Particulars", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
41709             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Amount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Amount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
41710             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Note", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Note", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
41711             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
41712             Me._adapter.UpdateCommand.Connection = Me.Connection
41713             Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[Voucher_OtherDetails] SET [VoucherID] = @VoucherID, [Particulars] ="& _
41714                 " @Particulars, [Amount] = @Amount, [Note] = @Note WHERE (([VD_ID] = @Original_VD"& _
41715                 "_ID) AND ([VoucherID] = @Original_VoucherID) AND ([Particulars] = @Original_Part"& _
41716                 "iculars) AND ([Amount] = @Original_Amount) AND ([Note] = @Original_Note));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELE"& _
41717                 "CT VD_ID, VoucherID, Particulars, Amount, Note FROM Voucher_OtherDetails WHERE ("& _
41718                 "VD_ID = @VD_ID)"
41719             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
41720             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VoucherID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VoucherID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
41721             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Particulars", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Particulars", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
41722             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Amount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Amount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
41723             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Note", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Note", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
41724             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_VD_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VD_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
41725             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_VoucherID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VoucherID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
41726             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Particulars", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Particulars", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
41727             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Amount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Amount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
41728             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Note", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Note", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
41729             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VD_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "VD_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
41730         End Sub
41731         
41732         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
41733          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
41734         Private Sub InitConnection()
41735             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
41736             Me._connection.ConnectionString = Global.ERP_System.My.MySettings.Default.ERPS_DBConnectionString
41737         End Sub
41738         
41739         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
41740          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
41741         Private Sub InitCommandCollection()
41742             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
41743             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
41744             Me._commandCollection(0).Connection = Me.Connection
41745             Me._commandCollection(0).CommandText = "SELECT VD_ID, VoucherID, Particulars, Amount, Note FROM dbo.Voucher_OtherDetails"
41746             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
41747         End Sub
41748         
41749         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
41750          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
41751          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
41752          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
41753         Public Overloads Overridable Function Fill(ByVal dataTable As ERPS_DBDataSet1.Voucher_OtherDetailsDataTable) As Integer
41754             Me.Adapter.SelectCommand = Me.CommandCollection(0)
41755             If (Me.ClearBeforeFill = true) Then
41756                 dataTable.Clear
41757             End If
41758             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
41759             Return returnValue
41760         End Function
41761         
41762         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
41763          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
41764          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
41765          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
41766         Public Overloads Overridable Function GetData() As ERPS_DBDataSet1.Voucher_OtherDetailsDataTable
41767             Me.Adapter.SelectCommand = Me.CommandCollection(0)
41768             Dim dataTable As ERPS_DBDataSet1.Voucher_OtherDetailsDataTable = New ERPS_DBDataSet1.Voucher_OtherDetailsDataTable()
41769             Me.Adapter.Fill(dataTable)
41770             Return dataTable
41771         End Function
41772         
41773         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
41774          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
41775          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
41776         Public Overloads Overridable Function Update(ByVal dataTable As ERPS_DBDataSet1.Voucher_OtherDetailsDataTable) As Integer
41777             Return Me.Adapter.Update(dataTable)
41778         End Function
41779         
41780         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
41781          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
41782          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
41783         Public Overloads Overridable Function Update(ByVal dataSet As ERPS_DBDataSet1) As Integer
41784             Return Me.Adapter.Update(dataSet, "Voucher_OtherDetails")
41785         End Function
41786         
41787         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
41788          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
41789          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
41790         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
41791             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
41792         End Function
41793         
41794         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
41795          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
41796          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
41797         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
41798             Return Me.Adapter.Update(dataRows)
41799         End Function
41800         
41801         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
41802          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
41803          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
41804          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
41805         Public Overloads Overridable Function Delete(ByVal Original_VD_ID As Integer, ByVal Original_VoucherID As Integer, ByVal Original_Particulars As String, ByVal Original_Amount As Decimal, ByVal Original_Note As String) As Integer
41806             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_VD_ID,Integer)
41807             Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_VoucherID,Integer)
41808             If (Original_Particulars Is Nothing) Then
41809                 Throw New Global.System.ArgumentNullException("Original_Particulars")
41810             Else
41811                 Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_Particulars,String)
41812             End If
41813             Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_Amount,Decimal)
41814             If (Original_Note Is Nothing) Then
41815                 Throw New Global.System.ArgumentNullException("Original_Note")
41816             Else
41817                 Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_Note,String)
41818             End If
41819             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
41820             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
41821                         <> Global.System.Data.ConnectionState.Open) Then
41822                 Me.Adapter.DeleteCommand.Connection.Open
41823             End If
41824             Try
41825                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
41826                 Return returnValue
41827             Finally
41828                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
41829                     Me.Adapter.DeleteCommand.Connection.Close
41830                 End If
41831             End Try
41832         End Function
41833         
41834         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
41835          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
41836          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
41837          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
41838         Public Overloads Overridable Function Insert(ByVal VoucherID As Integer, ByVal Particulars As String, ByVal Amount As Decimal, ByVal Note As String) As Integer
41839             Me.Adapter.InsertCommand.Parameters(0).Value = CType(VoucherID,Integer)
41840             If (Particulars Is Nothing) Then
41841                 Throw New Global.System.ArgumentNullException("Particulars")
41842             Else
41843                 Me.Adapter.InsertCommand.Parameters(1).Value = CType(Particulars,String)
41844             End If
41845             Me.Adapter.InsertCommand.Parameters(2).Value = CType(Amount,Decimal)
41846             If (Note Is Nothing) Then
41847                 Throw New Global.System.ArgumentNullException("Note")
41848             Else
41849                 Me.Adapter.InsertCommand.Parameters(3).Value = CType(Note,String)
41850             End If
41851             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
41852             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
41853                         <> Global.System.Data.ConnectionState.Open) Then
41854                 Me.Adapter.InsertCommand.Connection.Open
41855             End If
41856             Try
41857                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
41858                 Return returnValue
41859             Finally
41860                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
41861                     Me.Adapter.InsertCommand.Connection.Close
41862                 End If
41863             End Try
41864         End Function
41865         
41866         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
41867          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
41868          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
41869          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
41870         Public Overloads Overridable Function Update(ByVal VoucherID As Integer, ByVal Particulars As String, ByVal Amount As Decimal, ByVal Note As String, ByVal Original_VD_ID As Integer, ByVal Original_VoucherID As Integer, ByVal Original_Particulars As String, ByVal Original_Amount As Decimal, ByVal Original_Note As String, ByVal VD_ID As Integer) As Integer
41871             Me.Adapter.UpdateCommand.Parameters(0).Value = CType(VoucherID,Integer)
41872             If (Particulars Is Nothing) Then
41873                 Throw New Global.System.ArgumentNullException("Particulars")
41874             Else
41875                 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Particulars,String)
41876             End If
41877             Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Amount,Decimal)
41878             If (Note Is Nothing) Then
41879                 Throw New Global.System.ArgumentNullException("Note")
41880             Else
41881                 Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Note,String)
41882             End If
41883             Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_VD_ID,Integer)
41884             Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_VoucherID,Integer)
41885             If (Original_Particulars Is Nothing) Then
41886                 Throw New Global.System.ArgumentNullException("Original_Particulars")
41887             Else
41888                 Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_Particulars,String)
41889             End If
41890             Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_Amount,Decimal)
41891             If (Original_Note Is Nothing) Then
41892                 Throw New Global.System.ArgumentNullException("Original_Note")
41893             Else
41894                 Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_Note,String)
41895             End If
41896             Me.Adapter.UpdateCommand.Parameters(9).Value = CType(VD_ID,Integer)
41897             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
41898             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
41899                         <> Global.System.Data.ConnectionState.Open) Then
41900                 Me.Adapter.UpdateCommand.Connection.Open
41901             End If
41902             Try
41903                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
41904                 Return returnValue
41905             Finally
41906                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
41907                     Me.Adapter.UpdateCommand.Connection.Close
41908                 End If
41909             End Try
41910         End Function
41911         
41912         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
41913          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
41914          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
41915          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
41916         Public Overloads Overridable Function Update(ByVal VoucherID As Integer, ByVal Particulars As String, ByVal Amount As Decimal, ByVal Note As String, ByVal Original_VD_ID As Integer, ByVal Original_VoucherID As Integer, ByVal Original_Particulars As String, ByVal Original_Amount As Decimal, ByVal Original_Note As String) As Integer
41917             Return Me.Update(VoucherID, Particulars, Amount, Note, Original_VD_ID, Original_VoucherID, Original_Particulars, Original_Amount, Original_Note, Original_VD_ID)
41918         End Function
41919     End Class
41920     
41921     '''<summary>
41922     '''TableAdapterManager is used to coordinate TableAdapters in the dataset to enable Hierarchical Update scenarios
41923     '''</summary>
41924     <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
41925      Global.System.ComponentModel.ToolboxItem(true), _
41926      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerDesigner, Microsoft.VSD"& _
41927         "esigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
41928      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapterManager")> _
41929     Partial Public Class TableAdapterManager
41930         Inherits Global.System.ComponentModel.Component
41931         
41932         Private _updateOrder As UpdateOrderOption
41933         
41934         Private _activationTableAdapter As ActivationTableAdapter
41935         
41936         Private _advanceEntryTableAdapter As AdvanceEntryTableAdapter
41937         
41938         Private _busCardHolder_StaffTableAdapter As BusCardHolder_StaffTableAdapter
41939         
41940         Private _busCardHolder_StudentTableAdapter As BusCardHolder_StudentTableAdapter
41941         
41942         Private _busFeePayment_StaffTableAdapter As BusFeePayment_StaffTableAdapter
41943         
41944         Private _busFeePayment_StudentTableAdapter As BusFeePayment_StudentTableAdapter
41945         
41946         Private _busInfoTableAdapter As BusInfoTableAdapter
41947         
41948         Private _cards_StaffTableAdapter As Cards_StaffTableAdapter
41949         
41950         Private _cards_StudentTableAdapter As Cards_StudentTableAdapter
41951         
41952         Private _classTableAdapter As ClassTableAdapter
41953         
41954         Private _classTypeTableAdapter As ClassTypeTableAdapter
41955         
41956         Private _courseFeeTableAdapter As CourseFeeTableAdapter
41957         
41958         Private _courseFeePaymentTableAdapter As CourseFeePaymentTableAdapter
41959         
41960         Private _courseFeePayment_JoinTableAdapter As CourseFeePayment_JoinTableAdapter
41961         
41962         Private _departmentTableAdapter As DepartmentTableAdapter
41963         
41964         Private _designationTableAdapter As DesignationTableAdapter
41965         
41966         Private _discountTableAdapter As DiscountTableAdapter
41967         
41968         Private _discount_StaffTableAdapter As Discount_StaffTableAdapter
41969         
41970         Private _documentTableAdapter As DocumentTableAdapter
41971         
41972         Private _feeTableAdapter As FeeTableAdapter
41973         
41974         Private _hostelerTableAdapter As HostelerTableAdapter
41975         
41976         Private _hostelFeePaymentTableAdapter As HostelFeePaymentTableAdapter
41977         
41978         Private _hostelInfoTableAdapter As HostelInfoTableAdapter
41979         
41980         Private _installment_BusTableAdapter As Installment_BusTableAdapter
41981         
41982         Private _installment_HostelTableAdapter As Installment_HostelTableAdapter
41983         
41984         Private _locationTableAdapter As LocationTableAdapter
41985         
41986         Private _logsTableAdapter As LogsTableAdapter
41987         
41988         Private _noDues_StaffTableAdapter As NoDues_StaffTableAdapter
41989         
41990         Private _noDues_StudentTableAdapter As NoDues_StudentTableAdapter
41991         
41992         Private _registrationTableAdapter As RegistrationTableAdapter
41993         
41994         Private _schoolInfoTableAdapter As SchoolInfoTableAdapter
41995         
41996         Private _schoolTypeTableAdapter As SchoolTypeTableAdapter
41997         
41998         Private _sectionTableAdapter As SectionTableAdapter
41999         
42000         Private _session_MasterTableAdapter As Session_MasterTableAdapter
42001         
42002         Private _staffTableAdapter As StaffTableAdapter
42003         
42004         Private _staff_DepartmentTableAdapter As Staff_DepartmentTableAdapter
42005         
42006         Private _staffAttendanceTableAdapter As StaffAttendanceTableAdapter
42007         
42008         Private _staffPaymentTableAdapter As StaffPaymentTableAdapter
42009         
42010         Private _studentTableAdapter As StudentTableAdapter
42011         
42012         Private _studentDocSubmittedTableAdapter As StudentDocSubmittedTableAdapter
42013         
42014         Private _voucherTableAdapter As VoucherTableAdapter
42015         
42016         Private _voucher_OtherDetailsTableAdapter As Voucher_OtherDetailsTableAdapter
42017         
42018         Private _backupDataSetBeforeUpdate As Boolean
42019         
42020         Private _connection As Global.System.Data.IDbConnection
42021         
42022         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
42023          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
42024         Public Property UpdateOrder() As UpdateOrderOption
42025             Get
42026                 Return Me._updateOrder
42027             End Get
42028             Set
42029                 Me._updateOrder = value
42030             End Set
42031         End Property
42032         
42033         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
42034          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
42035          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
42036             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
42037             "a", "System.Drawing.Design.UITypeEditor")> _
42038         Public Property ActivationTableAdapter() As ActivationTableAdapter
42039             Get
42040                 Return Me._activationTableAdapter
42041             End Get
42042             Set
42043                 Me._activationTableAdapter = value
42044             End Set
42045         End Property
42046         
42047         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
42048          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
42049          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
42050             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
42051             "a", "System.Drawing.Design.UITypeEditor")> _
42052         Public Property AdvanceEntryTableAdapter() As AdvanceEntryTableAdapter
42053             Get
42054                 Return Me._advanceEntryTableAdapter
42055             End Get
42056             Set
42057                 Me._advanceEntryTableAdapter = value
42058             End Set
42059         End Property
42060         
42061         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
42062          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
42063          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
42064             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
42065             "a", "System.Drawing.Design.UITypeEditor")> _
42066         Public Property BusCardHolder_StaffTableAdapter() As BusCardHolder_StaffTableAdapter
42067             Get
42068                 Return Me._busCardHolder_StaffTableAdapter
42069             End Get
42070             Set
42071                 Me._busCardHolder_StaffTableAdapter = value
42072             End Set
42073         End Property
42074         
42075         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
42076          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
42077          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
42078             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
42079             "a", "System.Drawing.Design.UITypeEditor")> _
42080         Public Property BusCardHolder_StudentTableAdapter() As BusCardHolder_StudentTableAdapter
42081             Get
42082                 Return Me._busCardHolder_StudentTableAdapter
42083             End Get
42084             Set
42085                 Me._busCardHolder_StudentTableAdapter = value
42086             End Set
42087         End Property
42088         
42089         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
42090          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
42091          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
42092             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
42093             "a", "System.Drawing.Design.UITypeEditor")> _
42094         Public Property BusFeePayment_StaffTableAdapter() As BusFeePayment_StaffTableAdapter
42095             Get
42096                 Return Me._busFeePayment_StaffTableAdapter
42097             End Get
42098             Set
42099                 Me._busFeePayment_StaffTableAdapter = value
42100             End Set
42101         End Property
42102         
42103         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
42104          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
42105          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
42106             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
42107             "a", "System.Drawing.Design.UITypeEditor")> _
42108         Public Property BusFeePayment_StudentTableAdapter() As BusFeePayment_StudentTableAdapter
42109             Get
42110                 Return Me._busFeePayment_StudentTableAdapter
42111             End Get
42112             Set
42113                 Me._busFeePayment_StudentTableAdapter = value
42114             End Set
42115         End Property
42116         
42117         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
42118          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
42119          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
42120             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
42121             "a", "System.Drawing.Design.UITypeEditor")> _
42122         Public Property BusInfoTableAdapter() As BusInfoTableAdapter
42123             Get
42124                 Return Me._busInfoTableAdapter
42125             End Get
42126             Set
42127                 Me._busInfoTableAdapter = value
42128             End Set
42129         End Property
42130         
42131         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
42132          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
42133          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
42134             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
42135             "a", "System.Drawing.Design.UITypeEditor")> _
42136         Public Property Cards_StaffTableAdapter() As Cards_StaffTableAdapter
42137             Get
42138                 Return Me._cards_StaffTableAdapter
42139             End Get
42140             Set
42141                 Me._cards_StaffTableAdapter = value
42142             End Set
42143         End Property
42144         
42145         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
42146          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
42147          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
42148             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
42149             "a", "System.Drawing.Design.UITypeEditor")> _
42150         Public Property Cards_StudentTableAdapter() As Cards_StudentTableAdapter
42151             Get
42152                 Return Me._cards_StudentTableAdapter
42153             End Get
42154             Set
42155                 Me._cards_StudentTableAdapter = value
42156             End Set
42157         End Property
42158         
42159         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
42160          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
42161          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
42162             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
42163             "a", "System.Drawing.Design.UITypeEditor")> _
42164         Public Property ClassTableAdapter() As ClassTableAdapter
42165             Get
42166                 Return Me._classTableAdapter
42167             End Get
42168             Set
42169                 Me._classTableAdapter = value
42170             End Set
42171         End Property
42172         
42173         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
42174          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
42175          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
42176             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
42177             "a", "System.Drawing.Design.UITypeEditor")> _
42178         Public Property ClassTypeTableAdapter() As ClassTypeTableAdapter
42179             Get
42180                 Return Me._classTypeTableAdapter
42181             End Get
42182             Set
42183                 Me._classTypeTableAdapter = value
42184             End Set
42185         End Property
42186         
42187         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
42188          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
42189          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
42190             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
42191             "a", "System.Drawing.Design.UITypeEditor")> _
42192         Public Property CourseFeeTableAdapter() As CourseFeeTableAdapter
42193             Get
42194                 Return Me._courseFeeTableAdapter
42195             End Get
42196             Set
42197                 Me._courseFeeTableAdapter = value
42198             End Set
42199         End Property
42200         
42201         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
42202          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
42203          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
42204             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
42205             "a", "System.Drawing.Design.UITypeEditor")> _
42206         Public Property CourseFeePaymentTableAdapter() As CourseFeePaymentTableAdapter
42207             Get
42208                 Return Me._courseFeePaymentTableAdapter
42209             End Get
42210             Set
42211                 Me._courseFeePaymentTableAdapter = value
42212             End Set
42213         End Property
42214         
42215         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
42216          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
42217          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
42218             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
42219             "a", "System.Drawing.Design.UITypeEditor")> _
42220         Public Property CourseFeePayment_JoinTableAdapter() As CourseFeePayment_JoinTableAdapter
42221             Get
42222                 Return Me._courseFeePayment_JoinTableAdapter
42223             End Get
42224             Set
42225                 Me._courseFeePayment_JoinTableAdapter = value
42226             End Set
42227         End Property
42228         
42229         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
42230          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
42231          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
42232             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
42233             "a", "System.Drawing.Design.UITypeEditor")> _
42234         Public Property DepartmentTableAdapter() As DepartmentTableAdapter
42235             Get
42236                 Return Me._departmentTableAdapter
42237             End Get
42238             Set
42239                 Me._departmentTableAdapter = value
42240             End Set
42241         End Property
42242         
42243         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
42244          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
42245          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
42246             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
42247             "a", "System.Drawing.Design.UITypeEditor")> _
42248         Public Property DesignationTableAdapter() As DesignationTableAdapter
42249             Get
42250                 Return Me._designationTableAdapter
42251             End Get
42252             Set
42253                 Me._designationTableAdapter = value
42254             End Set
42255         End Property
42256         
42257         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
42258          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
42259          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
42260             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
42261             "a", "System.Drawing.Design.UITypeEditor")> _
42262         Public Property DiscountTableAdapter() As DiscountTableAdapter
42263             Get
42264                 Return Me._discountTableAdapter
42265             End Get
42266             Set
42267                 Me._discountTableAdapter = value
42268             End Set
42269         End Property
42270         
42271         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
42272          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
42273          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
42274             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
42275             "a", "System.Drawing.Design.UITypeEditor")> _
42276         Public Property Discount_StaffTableAdapter() As Discount_StaffTableAdapter
42277             Get
42278                 Return Me._discount_StaffTableAdapter
42279             End Get
42280             Set
42281                 Me._discount_StaffTableAdapter = value
42282             End Set
42283         End Property
42284         
42285         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
42286          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
42287          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
42288             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
42289             "a", "System.Drawing.Design.UITypeEditor")> _
42290         Public Property DocumentTableAdapter() As DocumentTableAdapter
42291             Get
42292                 Return Me._documentTableAdapter
42293             End Get
42294             Set
42295                 Me._documentTableAdapter = value
42296             End Set
42297         End Property
42298         
42299         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
42300          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
42301          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
42302             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
42303             "a", "System.Drawing.Design.UITypeEditor")> _
42304         Public Property FeeTableAdapter() As FeeTableAdapter
42305             Get
42306                 Return Me._feeTableAdapter
42307             End Get
42308             Set
42309                 Me._feeTableAdapter = value
42310             End Set
42311         End Property
42312         
42313         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
42314          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
42315          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
42316             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
42317             "a", "System.Drawing.Design.UITypeEditor")> _
42318         Public Property HostelerTableAdapter() As HostelerTableAdapter
42319             Get
42320                 Return Me._hostelerTableAdapter
42321             End Get
42322             Set
42323                 Me._hostelerTableAdapter = value
42324             End Set
42325         End Property
42326         
42327         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
42328          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
42329          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
42330             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
42331             "a", "System.Drawing.Design.UITypeEditor")> _
42332         Public Property HostelFeePaymentTableAdapter() As HostelFeePaymentTableAdapter
42333             Get
42334                 Return Me._hostelFeePaymentTableAdapter
42335             End Get
42336             Set
42337                 Me._hostelFeePaymentTableAdapter = value
42338             End Set
42339         End Property
42340         
42341         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
42342          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
42343          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
42344             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
42345             "a", "System.Drawing.Design.UITypeEditor")> _
42346         Public Property HostelInfoTableAdapter() As HostelInfoTableAdapter
42347             Get
42348                 Return Me._hostelInfoTableAdapter
42349             End Get
42350             Set
42351                 Me._hostelInfoTableAdapter = value
42352             End Set
42353         End Property
42354         
42355         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
42356          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
42357          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
42358             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
42359             "a", "System.Drawing.Design.UITypeEditor")> _
42360         Public Property Installment_BusTableAdapter() As Installment_BusTableAdapter
42361             Get
42362                 Return Me._installment_BusTableAdapter
42363             End Get
42364             Set
42365                 Me._installment_BusTableAdapter = value
42366             End Set
42367         End Property
42368         
42369         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
42370          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
42371          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
42372             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
42373             "a", "System.Drawing.Design.UITypeEditor")> _
42374         Public Property Installment_HostelTableAdapter() As Installment_HostelTableAdapter
42375             Get
42376                 Return Me._installment_HostelTableAdapter
42377             End Get
42378             Set
42379                 Me._installment_HostelTableAdapter = value
42380             End Set
42381         End Property
42382         
42383         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
42384          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
42385          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
42386             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
42387             "a", "System.Drawing.Design.UITypeEditor")> _
42388         Public Property LocationTableAdapter() As LocationTableAdapter
42389             Get
42390                 Return Me._locationTableAdapter
42391             End Get
42392             Set
42393                 Me._locationTableAdapter = value
42394             End Set
42395         End Property
42396         
42397         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
42398          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
42399          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
42400             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
42401             "a", "System.Drawing.Design.UITypeEditor")> _
42402         Public Property LogsTableAdapter() As LogsTableAdapter
42403             Get
42404                 Return Me._logsTableAdapter
42405             End Get
42406             Set
42407                 Me._logsTableAdapter = value
42408             End Set
42409         End Property
42410         
42411         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
42412          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
42413          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
42414             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
42415             "a", "System.Drawing.Design.UITypeEditor")> _
42416         Public Property NoDues_StaffTableAdapter() As NoDues_StaffTableAdapter
42417             Get
42418                 Return Me._noDues_StaffTableAdapter
42419             End Get
42420             Set
42421                 Me._noDues_StaffTableAdapter = value
42422             End Set
42423         End Property
42424         
42425         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
42426          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
42427          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
42428             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
42429             "a", "System.Drawing.Design.UITypeEditor")> _
42430         Public Property NoDues_StudentTableAdapter() As NoDues_StudentTableAdapter
42431             Get
42432                 Return Me._noDues_StudentTableAdapter
42433             End Get
42434             Set
42435                 Me._noDues_StudentTableAdapter = value
42436             End Set
42437         End Property
42438         
42439         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
42440          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
42441          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
42442             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
42443             "a", "System.Drawing.Design.UITypeEditor")> _
42444         Public Property RegistrationTableAdapter() As RegistrationTableAdapter
42445             Get
42446                 Return Me._registrationTableAdapter
42447             End Get
42448             Set
42449                 Me._registrationTableAdapter = value
42450             End Set
42451         End Property
42452         
42453         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
42454          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
42455          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
42456             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
42457             "a", "System.Drawing.Design.UITypeEditor")> _
42458         Public Property SchoolInfoTableAdapter() As SchoolInfoTableAdapter
42459             Get
42460                 Return Me._schoolInfoTableAdapter
42461             End Get
42462             Set
42463                 Me._schoolInfoTableAdapter = value
42464             End Set
42465         End Property
42466         
42467         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
42468          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
42469          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
42470             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
42471             "a", "System.Drawing.Design.UITypeEditor")> _
42472         Public Property SchoolTypeTableAdapter() As SchoolTypeTableAdapter
42473             Get
42474                 Return Me._schoolTypeTableAdapter
42475             End Get
42476             Set
42477                 Me._schoolTypeTableAdapter = value
42478             End Set
42479         End Property
42480         
42481         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
42482          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
42483          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
42484             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
42485             "a", "System.Drawing.Design.UITypeEditor")> _
42486         Public Property SectionTableAdapter() As SectionTableAdapter
42487             Get
42488                 Return Me._sectionTableAdapter
42489             End Get
42490             Set
42491                 Me._sectionTableAdapter = value
42492             End Set
42493         End Property
42494         
42495         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
42496          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
42497          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
42498             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
42499             "a", "System.Drawing.Design.UITypeEditor")> _
42500         Public Property Session_MasterTableAdapter() As Session_MasterTableAdapter
42501             Get
42502                 Return Me._session_MasterTableAdapter
42503             End Get
42504             Set
42505                 Me._session_MasterTableAdapter = value
42506             End Set
42507         End Property
42508         
42509         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
42510          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
42511          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
42512             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
42513             "a", "System.Drawing.Design.UITypeEditor")> _
42514         Public Property StaffTableAdapter() As StaffTableAdapter
42515             Get
42516                 Return Me._staffTableAdapter
42517             End Get
42518             Set
42519                 Me._staffTableAdapter = value
42520             End Set
42521         End Property
42522         
42523         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
42524          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
42525          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
42526             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
42527             "a", "System.Drawing.Design.UITypeEditor")> _
42528         Public Property Staff_DepartmentTableAdapter() As Staff_DepartmentTableAdapter
42529             Get
42530                 Return Me._staff_DepartmentTableAdapter
42531             End Get
42532             Set
42533                 Me._staff_DepartmentTableAdapter = value
42534             End Set
42535         End Property
42536         
42537         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
42538          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
42539          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
42540             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
42541             "a", "System.Drawing.Design.UITypeEditor")> _
42542         Public Property StaffAttendanceTableAdapter() As StaffAttendanceTableAdapter
42543             Get
42544                 Return Me._staffAttendanceTableAdapter
42545             End Get
42546             Set
42547                 Me._staffAttendanceTableAdapter = value
42548             End Set
42549         End Property
42550         
42551         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
42552          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
42553          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
42554             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
42555             "a", "System.Drawing.Design.UITypeEditor")> _
42556         Public Property StaffPaymentTableAdapter() As StaffPaymentTableAdapter
42557             Get
42558                 Return Me._staffPaymentTableAdapter
42559             End Get
42560             Set
42561                 Me._staffPaymentTableAdapter = value
42562             End Set
42563         End Property
42564         
42565         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
42566          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
42567          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
42568             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
42569             "a", "System.Drawing.Design.UITypeEditor")> _
42570         Public Property StudentTableAdapter() As StudentTableAdapter
42571             Get
42572                 Return Me._studentTableAdapter
42573             End Get
42574             Set
42575                 Me._studentTableAdapter = value
42576             End Set
42577         End Property
42578         
42579         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
42580          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
42581          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
42582             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
42583             "a", "System.Drawing.Design.UITypeEditor")> _
42584         Public Property StudentDocSubmittedTableAdapter() As StudentDocSubmittedTableAdapter
42585             Get
42586                 Return Me._studentDocSubmittedTableAdapter
42587             End Get
42588             Set
42589                 Me._studentDocSubmittedTableAdapter = value
42590             End Set
42591         End Property
42592         
42593         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
42594          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
42595          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
42596             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
42597             "a", "System.Drawing.Design.UITypeEditor")> _
42598         Public Property VoucherTableAdapter() As VoucherTableAdapter
42599             Get
42600                 Return Me._voucherTableAdapter
42601             End Get
42602             Set
42603                 Me._voucherTableAdapter = value
42604             End Set
42605         End Property
42606         
42607         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
42608          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
42609          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
42610             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
42611             "a", "System.Drawing.Design.UITypeEditor")> _
42612         Public Property Voucher_OtherDetailsTableAdapter() As Voucher_OtherDetailsTableAdapter
42613             Get
42614                 Return Me._voucher_OtherDetailsTableAdapter
42615             End Get
42616             Set
42617                 Me._voucher_OtherDetailsTableAdapter = value
42618             End Set
42619         End Property
42620         
42621         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
42622          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
42623         Public Property BackupDataSetBeforeUpdate() As Boolean
42624             Get
42625                 Return Me._backupDataSetBeforeUpdate
42626             End Get
42627             Set
42628                 Me._backupDataSetBeforeUpdate = value
42629             End Set
42630         End Property
42631         
42632         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
42633          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
42634          Global.System.ComponentModel.Browsable(false)> _
42635         Public Property Connection() As Global.System.Data.IDbConnection
42636             Get
42637                 If (Not (Me._connection) Is Nothing) Then
42638                     Return Me._connection
42639                 End If
42640                 If ((Not (Me._activationTableAdapter) Is Nothing) _
42641                             AndAlso (Not (Me._activationTableAdapter.Connection) Is Nothing)) Then
42642                     Return Me._activationTableAdapter.Connection
42643                 End If
42644                 If ((Not (Me._advanceEntryTableAdapter) Is Nothing) _
42645                             AndAlso (Not (Me._advanceEntryTableAdapter.Connection) Is Nothing)) Then
42646                     Return Me._advanceEntryTableAdapter.Connection
42647                 End If
42648                 If ((Not (Me._busCardHolder_StaffTableAdapter) Is Nothing) _
42649                             AndAlso (Not (Me._busCardHolder_StaffTableAdapter.Connection) Is Nothing)) Then
42650                     Return Me._busCardHolder_StaffTableAdapter.Connection
42651                 End If
42652                 If ((Not (Me._busCardHolder_StudentTableAdapter) Is Nothing) _
42653                             AndAlso (Not (Me._busCardHolder_StudentTableAdapter.Connection) Is Nothing)) Then
42654                     Return Me._busCardHolder_StudentTableAdapter.Connection
42655                 End If
42656                 If ((Not (Me._busFeePayment_StaffTableAdapter) Is Nothing) _
42657                             AndAlso (Not (Me._busFeePayment_StaffTableAdapter.Connection) Is Nothing)) Then
42658                     Return Me._busFeePayment_StaffTableAdapter.Connection
42659                 End If
42660                 If ((Not (Me._busFeePayment_StudentTableAdapter) Is Nothing) _
42661                             AndAlso (Not (Me._busFeePayment_StudentTableAdapter.Connection) Is Nothing)) Then
42662                     Return Me._busFeePayment_StudentTableAdapter.Connection
42663                 End If
42664                 If ((Not (Me._busInfoTableAdapter) Is Nothing) _
42665                             AndAlso (Not (Me._busInfoTableAdapter.Connection) Is Nothing)) Then
42666                     Return Me._busInfoTableAdapter.Connection
42667                 End If
42668                 If ((Not (Me._cards_StaffTableAdapter) Is Nothing) _
42669                             AndAlso (Not (Me._cards_StaffTableAdapter.Connection) Is Nothing)) Then
42670                     Return Me._cards_StaffTableAdapter.Connection
42671                 End If
42672                 If ((Not (Me._cards_StudentTableAdapter) Is Nothing) _
42673                             AndAlso (Not (Me._cards_StudentTableAdapter.Connection) Is Nothing)) Then
42674                     Return Me._cards_StudentTableAdapter.Connection
42675                 End If
42676                 If ((Not (Me._classTableAdapter) Is Nothing) _
42677                             AndAlso (Not (Me._classTableAdapter.Connection) Is Nothing)) Then
42678                     Return Me._classTableAdapter.Connection
42679                 End If
42680                 If ((Not (Me._classTypeTableAdapter) Is Nothing) _
42681                             AndAlso (Not (Me._classTypeTableAdapter.Connection) Is Nothing)) Then
42682                     Return Me._classTypeTableAdapter.Connection
42683                 End If
42684                 If ((Not (Me._courseFeeTableAdapter) Is Nothing) _
42685                             AndAlso (Not (Me._courseFeeTableAdapter.Connection) Is Nothing)) Then
42686                     Return Me._courseFeeTableAdapter.Connection
42687                 End If
42688                 If ((Not (Me._courseFeePaymentTableAdapter) Is Nothing) _
42689                             AndAlso (Not (Me._courseFeePaymentTableAdapter.Connection) Is Nothing)) Then
42690                     Return Me._courseFeePaymentTableAdapter.Connection
42691                 End If
42692                 If ((Not (Me._courseFeePayment_JoinTableAdapter) Is Nothing) _
42693                             AndAlso (Not (Me._courseFeePayment_JoinTableAdapter.Connection) Is Nothing)) Then
42694                     Return Me._courseFeePayment_JoinTableAdapter.Connection
42695                 End If
42696                 If ((Not (Me._departmentTableAdapter) Is Nothing) _
42697                             AndAlso (Not (Me._departmentTableAdapter.Connection) Is Nothing)) Then
42698                     Return Me._departmentTableAdapter.Connection
42699                 End If
42700                 If ((Not (Me._designationTableAdapter) Is Nothing) _
42701                             AndAlso (Not (Me._designationTableAdapter.Connection) Is Nothing)) Then
42702                     Return Me._designationTableAdapter.Connection
42703                 End If
42704                 If ((Not (Me._discountTableAdapter) Is Nothing) _
42705                             AndAlso (Not (Me._discountTableAdapter.Connection) Is Nothing)) Then
42706                     Return Me._discountTableAdapter.Connection
42707                 End If
42708                 If ((Not (Me._discount_StaffTableAdapter) Is Nothing) _
42709                             AndAlso (Not (Me._discount_StaffTableAdapter.Connection) Is Nothing)) Then
42710                     Return Me._discount_StaffTableAdapter.Connection
42711                 End If
42712                 If ((Not (Me._documentTableAdapter) Is Nothing) _
42713                             AndAlso (Not (Me._documentTableAdapter.Connection) Is Nothing)) Then
42714                     Return Me._documentTableAdapter.Connection
42715                 End If
42716                 If ((Not (Me._feeTableAdapter) Is Nothing) _
42717                             AndAlso (Not (Me._feeTableAdapter.Connection) Is Nothing)) Then
42718                     Return Me._feeTableAdapter.Connection
42719                 End If
42720                 If ((Not (Me._hostelerTableAdapter) Is Nothing) _
42721                             AndAlso (Not (Me._hostelerTableAdapter.Connection) Is Nothing)) Then
42722                     Return Me._hostelerTableAdapter.Connection
42723                 End If
42724                 If ((Not (Me._hostelFeePaymentTableAdapter) Is Nothing) _
42725                             AndAlso (Not (Me._hostelFeePaymentTableAdapter.Connection) Is Nothing)) Then
42726                     Return Me._hostelFeePaymentTableAdapter.Connection
42727                 End If
42728                 If ((Not (Me._hostelInfoTableAdapter) Is Nothing) _
42729                             AndAlso (Not (Me._hostelInfoTableAdapter.Connection) Is Nothing)) Then
42730                     Return Me._hostelInfoTableAdapter.Connection
42731                 End If
42732                 If ((Not (Me._installment_BusTableAdapter) Is Nothing) _
42733                             AndAlso (Not (Me._installment_BusTableAdapter.Connection) Is Nothing)) Then
42734                     Return Me._installment_BusTableAdapter.Connection
42735                 End If
42736                 If ((Not (Me._installment_HostelTableAdapter) Is Nothing) _
42737                             AndAlso (Not (Me._installment_HostelTableAdapter.Connection) Is Nothing)) Then
42738                     Return Me._installment_HostelTableAdapter.Connection
42739                 End If
42740                 If ((Not (Me._locationTableAdapter) Is Nothing) _
42741                             AndAlso (Not (Me._locationTableAdapter.Connection) Is Nothing)) Then
42742                     Return Me._locationTableAdapter.Connection
42743                 End If
42744                 If ((Not (Me._logsTableAdapter) Is Nothing) _
42745                             AndAlso (Not (Me._logsTableAdapter.Connection) Is Nothing)) Then
42746                     Return Me._logsTableAdapter.Connection
42747                 End If
42748                 If ((Not (Me._noDues_StaffTableAdapter) Is Nothing) _
42749                             AndAlso (Not (Me._noDues_StaffTableAdapter.Connection) Is Nothing)) Then
42750                     Return Me._noDues_StaffTableAdapter.Connection
42751                 End If
42752                 If ((Not (Me._noDues_StudentTableAdapter) Is Nothing) _
42753                             AndAlso (Not (Me._noDues_StudentTableAdapter.Connection) Is Nothing)) Then
42754                     Return Me._noDues_StudentTableAdapter.Connection
42755                 End If
42756                 If ((Not (Me._registrationTableAdapter) Is Nothing) _
42757                             AndAlso (Not (Me._registrationTableAdapter.Connection) Is Nothing)) Then
42758                     Return Me._registrationTableAdapter.Connection
42759                 End If
42760                 If ((Not (Me._schoolInfoTableAdapter) Is Nothing) _
42761                             AndAlso (Not (Me._schoolInfoTableAdapter.Connection) Is Nothing)) Then
42762                     Return Me._schoolInfoTableAdapter.Connection
42763                 End If
42764                 If ((Not (Me._schoolTypeTableAdapter) Is Nothing) _
42765                             AndAlso (Not (Me._schoolTypeTableAdapter.Connection) Is Nothing)) Then
42766                     Return Me._schoolTypeTableAdapter.Connection
42767                 End If
42768                 If ((Not (Me._sectionTableAdapter) Is Nothing) _
42769                             AndAlso (Not (Me._sectionTableAdapter.Connection) Is Nothing)) Then
42770                     Return Me._sectionTableAdapter.Connection
42771                 End If
42772                 If ((Not (Me._session_MasterTableAdapter) Is Nothing) _
42773                             AndAlso (Not (Me._session_MasterTableAdapter.Connection) Is Nothing)) Then
42774                     Return Me._session_MasterTableAdapter.Connection
42775                 End If
42776                 If ((Not (Me._staffTableAdapter) Is Nothing) _
42777                             AndAlso (Not (Me._staffTableAdapter.Connection) Is Nothing)) Then
42778                     Return Me._staffTableAdapter.Connection
42779                 End If
42780                 If ((Not (Me._staff_DepartmentTableAdapter) Is Nothing) _
42781                             AndAlso (Not (Me._staff_DepartmentTableAdapter.Connection) Is Nothing)) Then
42782                     Return Me._staff_DepartmentTableAdapter.Connection
42783                 End If
42784                 If ((Not (Me._staffAttendanceTableAdapter) Is Nothing) _
42785                             AndAlso (Not (Me._staffAttendanceTableAdapter.Connection) Is Nothing)) Then
42786                     Return Me._staffAttendanceTableAdapter.Connection
42787                 End If
42788                 If ((Not (Me._staffPaymentTableAdapter) Is Nothing) _
42789                             AndAlso (Not (Me._staffPaymentTableAdapter.Connection) Is Nothing)) Then
42790                     Return Me._staffPaymentTableAdapter.Connection
42791                 End If
42792                 If ((Not (Me._studentTableAdapter) Is Nothing) _
42793                             AndAlso (Not (Me._studentTableAdapter.Connection) Is Nothing)) Then
42794                     Return Me._studentTableAdapter.Connection
42795                 End If
42796                 If ((Not (Me._studentDocSubmittedTableAdapter) Is Nothing) _
42797                             AndAlso (Not (Me._studentDocSubmittedTableAdapter.Connection) Is Nothing)) Then
42798                     Return Me._studentDocSubmittedTableAdapter.Connection
42799                 End If
42800                 If ((Not (Me._voucherTableAdapter) Is Nothing) _
42801                             AndAlso (Not (Me._voucherTableAdapter.Connection) Is Nothing)) Then
42802                     Return Me._voucherTableAdapter.Connection
42803                 End If
42804                 If ((Not (Me._voucher_OtherDetailsTableAdapter) Is Nothing) _
42805                             AndAlso (Not (Me._voucher_OtherDetailsTableAdapter.Connection) Is Nothing)) Then
42806                     Return Me._voucher_OtherDetailsTableAdapter.Connection
42807                 End If
42808                 Return Nothing
42809             End Get
42810             Set
42811                 Me._connection = value
42812             End Set
42813         End Property
42814         
42815         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
42816          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
42817          Global.System.ComponentModel.Browsable(false)> _
42818         Public ReadOnly Property TableAdapterInstanceCount() As Integer
42819             Get
42820                 Dim count As Integer = 0
42821                 If (Not (Me._activationTableAdapter) Is Nothing) Then
42822                     count = (count + 1)
42823                 End If
42824                 If (Not (Me._advanceEntryTableAdapter) Is Nothing) Then
42825                     count = (count + 1)
42826                 End If
42827                 If (Not (Me._busCardHolder_StaffTableAdapter) Is Nothing) Then
42828                     count = (count + 1)
42829                 End If
42830                 If (Not (Me._busCardHolder_StudentTableAdapter) Is Nothing) Then
42831                     count = (count + 1)
42832                 End If
42833                 If (Not (Me._busFeePayment_StaffTableAdapter) Is Nothing) Then
42834                     count = (count + 1)
42835                 End If
42836                 If (Not (Me._busFeePayment_StudentTableAdapter) Is Nothing) Then
42837                     count = (count + 1)
42838                 End If
42839                 If (Not (Me._busInfoTableAdapter) Is Nothing) Then
42840                     count = (count + 1)
42841                 End If
42842                 If (Not (Me._cards_StaffTableAdapter) Is Nothing) Then
42843                     count = (count + 1)
42844                 End If
42845                 If (Not (Me._cards_StudentTableAdapter) Is Nothing) Then
42846                     count = (count + 1)
42847                 End If
42848                 If (Not (Me._classTableAdapter) Is Nothing) Then
42849                     count = (count + 1)
42850                 End If
42851                 If (Not (Me._classTypeTableAdapter) Is Nothing) Then
42852                     count = (count + 1)
42853                 End If
42854                 If (Not (Me._courseFeeTableAdapter) Is Nothing) Then
42855                     count = (count + 1)
42856                 End If
42857                 If (Not (Me._courseFeePaymentTableAdapter) Is Nothing) Then
42858                     count = (count + 1)
42859                 End If
42860                 If (Not (Me._courseFeePayment_JoinTableAdapter) Is Nothing) Then
42861                     count = (count + 1)
42862                 End If
42863                 If (Not (Me._departmentTableAdapter) Is Nothing) Then
42864                     count = (count + 1)
42865                 End If
42866                 If (Not (Me._designationTableAdapter) Is Nothing) Then
42867                     count = (count + 1)
42868                 End If
42869                 If (Not (Me._discountTableAdapter) Is Nothing) Then
42870                     count = (count + 1)
42871                 End If
42872                 If (Not (Me._discount_StaffTableAdapter) Is Nothing) Then
42873                     count = (count + 1)
42874                 End If
42875                 If (Not (Me._documentTableAdapter) Is Nothing) Then
42876                     count = (count + 1)
42877                 End If
42878                 If (Not (Me._feeTableAdapter) Is Nothing) Then
42879                     count = (count + 1)
42880                 End If
42881                 If (Not (Me._hostelerTableAdapter) Is Nothing) Then
42882                     count = (count + 1)
42883                 End If
42884                 If (Not (Me._hostelFeePaymentTableAdapter) Is Nothing) Then
42885                     count = (count + 1)
42886                 End If
42887                 If (Not (Me._hostelInfoTableAdapter) Is Nothing) Then
42888                     count = (count + 1)
42889                 End If
42890                 If (Not (Me._installment_BusTableAdapter) Is Nothing) Then
42891                     count = (count + 1)
42892                 End If
42893                 If (Not (Me._installment_HostelTableAdapter) Is Nothing) Then
42894                     count = (count + 1)
42895                 End If
42896                 If (Not (Me._locationTableAdapter) Is Nothing) Then
42897                     count = (count + 1)
42898                 End If
42899                 If (Not (Me._logsTableAdapter) Is Nothing) Then
42900                     count = (count + 1)
42901                 End If
42902                 If (Not (Me._noDues_StaffTableAdapter) Is Nothing) Then
42903                     count = (count + 1)
42904                 End If
42905                 If (Not (Me._noDues_StudentTableAdapter) Is Nothing) Then
42906                     count = (count + 1)
42907                 End If
42908                 If (Not (Me._registrationTableAdapter) Is Nothing) Then
42909                     count = (count + 1)
42910                 End If
42911                 If (Not (Me._schoolInfoTableAdapter) Is Nothing) Then
42912                     count = (count + 1)
42913                 End If
42914                 If (Not (Me._schoolTypeTableAdapter) Is Nothing) Then
42915                     count = (count + 1)
42916                 End If
42917                 If (Not (Me._sectionTableAdapter) Is Nothing) Then
42918                     count = (count + 1)
42919                 End If
42920                 If (Not (Me._session_MasterTableAdapter) Is Nothing) Then
42921                     count = (count + 1)
42922                 End If
42923                 If (Not (Me._staffTableAdapter) Is Nothing) Then
42924                     count = (count + 1)
42925                 End If
42926                 If (Not (Me._staff_DepartmentTableAdapter) Is Nothing) Then
42927                     count = (count + 1)
42928                 End If
42929                 If (Not (Me._staffAttendanceTableAdapter) Is Nothing) Then
42930                     count = (count + 1)
42931                 End If
42932                 If (Not (Me._staffPaymentTableAdapter) Is Nothing) Then
42933                     count = (count + 1)
42934                 End If
42935                 If (Not (Me._studentTableAdapter) Is Nothing) Then
42936                     count = (count + 1)
42937                 End If
42938                 If (Not (Me._studentDocSubmittedTableAdapter) Is Nothing) Then
42939                     count = (count + 1)
42940                 End If
42941                 If (Not (Me._voucherTableAdapter) Is Nothing) Then
42942                     count = (count + 1)
42943                 End If
42944                 If (Not (Me._voucher_OtherDetailsTableAdapter) Is Nothing) Then
42945                     count = (count + 1)
42946                 End If
42947                 Return count
42948             End Get
42949         End Property
42950         
42951         '''<summary>
42952         '''Update rows in top-down order.
42953         '''</summary>
42954         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
42955          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
42956         Private Function UpdateUpdatedRows(ByVal dataSet As ERPS_DBDataSet1, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow), ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer
42957             Dim result As Integer = 0
42958             If (Not (Me._classTypeTableAdapter) Is Nothing) Then
42959                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.ClassType.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
42960                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
42961                 If ((Not (updatedRows) Is Nothing) _
42962                             AndAlso (0 < updatedRows.Length)) Then
42963                     result = (result + Me._classTypeTableAdapter.Update(updatedRows))
42964                     allChangedRows.AddRange(updatedRows)
42965                 End If
42966             End If
42967             If (Not (Me._classTableAdapter) Is Nothing) Then
42968                 Dim updatedRows() As Global.System.Data.DataRow = dataSet._Class.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
42969                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
42970                 If ((Not (updatedRows) Is Nothing) _
42971                             AndAlso (0 < updatedRows.Length)) Then
42972                     result = (result + Me._classTableAdapter.Update(updatedRows))
42973                     allChangedRows.AddRange(updatedRows)
42974                 End If
42975             End If
42976             If (Not (Me._schoolTypeTableAdapter) Is Nothing) Then
42977                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.SchoolType.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
42978                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
42979                 If ((Not (updatedRows) Is Nothing) _
42980                             AndAlso (0 < updatedRows.Length)) Then
42981                     result = (result + Me._schoolTypeTableAdapter.Update(updatedRows))
42982                     allChangedRows.AddRange(updatedRows)
42983                 End If
42984             End If
42985             If (Not (Me._session_MasterTableAdapter) Is Nothing) Then
42986                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.Session_Master.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
42987                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
42988                 If ((Not (updatedRows) Is Nothing) _
42989                             AndAlso (0 < updatedRows.Length)) Then
42990                     result = (result + Me._session_MasterTableAdapter.Update(updatedRows))
42991                     allChangedRows.AddRange(updatedRows)
42992                 End If
42993             End If
42994             If (Not (Me._schoolInfoTableAdapter) Is Nothing) Then
42995                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.SchoolInfo.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
42996                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
42997                 If ((Not (updatedRows) Is Nothing) _
42998                             AndAlso (0 < updatedRows.Length)) Then
42999                     result = (result + Me._schoolInfoTableAdapter.Update(updatedRows))
43000                     allChangedRows.AddRange(updatedRows)
43001                 End If
43002             End If
43003             If (Not (Me._designationTableAdapter) Is Nothing) Then
43004                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.Designation.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
43005                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
43006                 If ((Not (updatedRows) Is Nothing) _
43007                             AndAlso (0 < updatedRows.Length)) Then
43008                     result = (result + Me._designationTableAdapter.Update(updatedRows))
43009                     allChangedRows.AddRange(updatedRows)
43010                 End If
43011             End If
43012             If (Not (Me._sectionTableAdapter) Is Nothing) Then
43013                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.Section.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
43014                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
43015                 If ((Not (updatedRows) Is Nothing) _
43016                             AndAlso (0 < updatedRows.Length)) Then
43017                     result = (result + Me._sectionTableAdapter.Update(updatedRows))
43018                     allChangedRows.AddRange(updatedRows)
43019                 End If
43020             End If
43021             If (Not (Me._hostelInfoTableAdapter) Is Nothing) Then
43022                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.HostelInfo.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
43023                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
43024                 If ((Not (updatedRows) Is Nothing) _
43025                             AndAlso (0 < updatedRows.Length)) Then
43026                     result = (result + Me._hostelInfoTableAdapter.Update(updatedRows))
43027                     allChangedRows.AddRange(updatedRows)
43028                 End If
43029             End If
43030             If (Not (Me._staffTableAdapter) Is Nothing) Then
43031                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.Staff.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
43032                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
43033                 If ((Not (updatedRows) Is Nothing) _
43034                             AndAlso (0 < updatedRows.Length)) Then
43035                     result = (result + Me._staffTableAdapter.Update(updatedRows))
43036                     allChangedRows.AddRange(updatedRows)
43037                 End If
43038             End If
43039             If (Not (Me._busInfoTableAdapter) Is Nothing) Then
43040                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.BusInfo.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
43041                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
43042                 If ((Not (updatedRows) Is Nothing) _
43043                             AndAlso (0 < updatedRows.Length)) Then
43044                     result = (result + Me._busInfoTableAdapter.Update(updatedRows))
43045                     allChangedRows.AddRange(updatedRows)
43046                 End If
43047             End If
43048             If (Not (Me._locationTableAdapter) Is Nothing) Then
43049                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.Location.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
43050                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
43051                 If ((Not (updatedRows) Is Nothing) _
43052                             AndAlso (0 < updatedRows.Length)) Then
43053                     result = (result + Me._locationTableAdapter.Update(updatedRows))
43054                     allChangedRows.AddRange(updatedRows)
43055                 End If
43056             End If
43057             If (Not (Me._studentTableAdapter) Is Nothing) Then
43058                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.Student.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
43059                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
43060                 If ((Not (updatedRows) Is Nothing) _
43061                             AndAlso (0 < updatedRows.Length)) Then
43062                     result = (result + Me._studentTableAdapter.Update(updatedRows))
43063                     allChangedRows.AddRange(updatedRows)
43064                 End If
43065             End If
43066             If (Not (Me._hostelerTableAdapter) Is Nothing) Then
43067                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.Hosteler.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
43068                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
43069                 If ((Not (updatedRows) Is Nothing) _
43070                             AndAlso (0 < updatedRows.Length)) Then
43071                     result = (result + Me._hostelerTableAdapter.Update(updatedRows))
43072                     allChangedRows.AddRange(updatedRows)
43073                 End If
43074             End If
43075             If (Not (Me._feeTableAdapter) Is Nothing) Then
43076                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.Fee.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
43077                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
43078                 If ((Not (updatedRows) Is Nothing) _
43079                             AndAlso (0 < updatedRows.Length)) Then
43080                     result = (result + Me._feeTableAdapter.Update(updatedRows))
43081                     allChangedRows.AddRange(updatedRows)
43082                 End If
43083             End If
43084             If (Not (Me._documentTableAdapter) Is Nothing) Then
43085                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.Document.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
43086                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
43087                 If ((Not (updatedRows) Is Nothing) _
43088                             AndAlso (0 < updatedRows.Length)) Then
43089                     result = (result + Me._documentTableAdapter.Update(updatedRows))
43090                     allChangedRows.AddRange(updatedRows)
43091                 End If
43092             End If
43093             If (Not (Me._registrationTableAdapter) Is Nothing) Then
43094                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.Registration.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
43095                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
43096                 If ((Not (updatedRows) Is Nothing) _
43097                             AndAlso (0 < updatedRows.Length)) Then
43098                     result = (result + Me._registrationTableAdapter.Update(updatedRows))
43099                     allChangedRows.AddRange(updatedRows)
43100                 End If
43101             End If
43102             If (Not (Me._voucherTableAdapter) Is Nothing) Then
43103                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.Voucher.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
43104                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
43105                 If ((Not (updatedRows) Is Nothing) _
43106                             AndAlso (0 < updatedRows.Length)) Then
43107                     result = (result + Me._voucherTableAdapter.Update(updatedRows))
43108                     allChangedRows.AddRange(updatedRows)
43109                 End If
43110             End If
43111             If (Not (Me._busCardHolder_StudentTableAdapter) Is Nothing) Then
43112                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.BusCardHolder_Student.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
43113                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
43114                 If ((Not (updatedRows) Is Nothing) _
43115                             AndAlso (0 < updatedRows.Length)) Then
43116                     result = (result + Me._busCardHolder_StudentTableAdapter.Update(updatedRows))
43117                     allChangedRows.AddRange(updatedRows)
43118                 End If
43119             End If
43120             If (Not (Me._busCardHolder_StaffTableAdapter) Is Nothing) Then
43121                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.BusCardHolder_Staff.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
43122                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
43123                 If ((Not (updatedRows) Is Nothing) _
43124                             AndAlso (0 < updatedRows.Length)) Then
43125                     result = (result + Me._busCardHolder_StaffTableAdapter.Update(updatedRows))
43126                     allChangedRows.AddRange(updatedRows)
43127                 End If
43128             End If
43129             If (Not (Me._departmentTableAdapter) Is Nothing) Then
43130                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.Department.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
43131                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
43132                 If ((Not (updatedRows) Is Nothing) _
43133                             AndAlso (0 < updatedRows.Length)) Then
43134                     result = (result + Me._departmentTableAdapter.Update(updatedRows))
43135                     allChangedRows.AddRange(updatedRows)
43136                 End If
43137             End If
43138             If (Not (Me._courseFeePaymentTableAdapter) Is Nothing) Then
43139                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.CourseFeePayment.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
43140                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
43141                 If ((Not (updatedRows) Is Nothing) _
43142                             AndAlso (0 < updatedRows.Length)) Then
43143                     result = (result + Me._courseFeePaymentTableAdapter.Update(updatedRows))
43144                     allChangedRows.AddRange(updatedRows)
43145                 End If
43146             End If
43147             If (Not (Me._noDues_StudentTableAdapter) Is Nothing) Then
43148                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.NoDues_Student.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
43149                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
43150                 If ((Not (updatedRows) Is Nothing) _
43151                             AndAlso (0 < updatedRows.Length)) Then
43152                     result = (result + Me._noDues_StudentTableAdapter.Update(updatedRows))
43153                     allChangedRows.AddRange(updatedRows)
43154                 End If
43155             End If
43156             If (Not (Me._studentDocSubmittedTableAdapter) Is Nothing) Then
43157                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.StudentDocSubmitted.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
43158                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
43159                 If ((Not (updatedRows) Is Nothing) _
43160                             AndAlso (0 < updatedRows.Length)) Then
43161                     result = (result + Me._studentDocSubmittedTableAdapter.Update(updatedRows))
43162                     allChangedRows.AddRange(updatedRows)
43163                 End If
43164             End If
43165             If (Not (Me._voucher_OtherDetailsTableAdapter) Is Nothing) Then
43166                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.Voucher_OtherDetails.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
43167                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
43168                 If ((Not (updatedRows) Is Nothing) _
43169                             AndAlso (0 < updatedRows.Length)) Then
43170                     result = (result + Me._voucher_OtherDetailsTableAdapter.Update(updatedRows))
43171                     allChangedRows.AddRange(updatedRows)
43172                 End If
43173             End If
43174             If (Not (Me._staffPaymentTableAdapter) Is Nothing) Then
43175                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.StaffPayment.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
43176                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
43177                 If ((Not (updatedRows) Is Nothing) _
43178                             AndAlso (0 < updatedRows.Length)) Then
43179                     result = (result + Me._staffPaymentTableAdapter.Update(updatedRows))
43180                     allChangedRows.AddRange(updatedRows)
43181                 End If
43182             End If
43183             If (Not (Me._staff_DepartmentTableAdapter) Is Nothing) Then
43184                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.Staff_Department.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
43185                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
43186                 If ((Not (updatedRows) Is Nothing) _
43187                             AndAlso (0 < updatedRows.Length)) Then
43188                     result = (result + Me._staff_DepartmentTableAdapter.Update(updatedRows))
43189                     allChangedRows.AddRange(updatedRows)
43190                 End If
43191             End If
43192             If (Not (Me._staffAttendanceTableAdapter) Is Nothing) Then
43193                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.StaffAttendance.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
43194                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
43195                 If ((Not (updatedRows) Is Nothing) _
43196                             AndAlso (0 < updatedRows.Length)) Then
43197                     result = (result + Me._staffAttendanceTableAdapter.Update(updatedRows))
43198                     allChangedRows.AddRange(updatedRows)
43199                 End If
43200             End If
43201             If (Not (Me._noDues_StaffTableAdapter) Is Nothing) Then
43202                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.NoDues_Staff.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
43203                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
43204                 If ((Not (updatedRows) Is Nothing) _
43205                             AndAlso (0 < updatedRows.Length)) Then
43206                     result = (result + Me._noDues_StaffTableAdapter.Update(updatedRows))
43207                     allChangedRows.AddRange(updatedRows)
43208                 End If
43209             End If
43210             If (Not (Me._cards_StudentTableAdapter) Is Nothing) Then
43211                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.Cards_Student.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
43212                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
43213                 If ((Not (updatedRows) Is Nothing) _
43214                             AndAlso (0 < updatedRows.Length)) Then
43215                     result = (result + Me._cards_StudentTableAdapter.Update(updatedRows))
43216                     allChangedRows.AddRange(updatedRows)
43217                 End If
43218             End If
43219             If (Not (Me._courseFeeTableAdapter) Is Nothing) Then
43220                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.CourseFee.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
43221                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
43222                 If ((Not (updatedRows) Is Nothing) _
43223                             AndAlso (0 < updatedRows.Length)) Then
43224                     result = (result + Me._courseFeeTableAdapter.Update(updatedRows))
43225                     allChangedRows.AddRange(updatedRows)
43226                 End If
43227             End If
43228             If (Not (Me._courseFeePayment_JoinTableAdapter) Is Nothing) Then
43229                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.CourseFeePayment_Join.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
43230                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
43231                 If ((Not (updatedRows) Is Nothing) _
43232                             AndAlso (0 < updatedRows.Length)) Then
43233                     result = (result + Me._courseFeePayment_JoinTableAdapter.Update(updatedRows))
43234                     allChangedRows.AddRange(updatedRows)
43235                 End If
43236             End If
43237             If (Not (Me._cards_StaffTableAdapter) Is Nothing) Then
43238                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.Cards_Staff.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
43239                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
43240                 If ((Not (updatedRows) Is Nothing) _
43241                             AndAlso (0 < updatedRows.Length)) Then
43242                     result = (result + Me._cards_StaffTableAdapter.Update(updatedRows))
43243                     allChangedRows.AddRange(updatedRows)
43244                 End If
43245             End If
43246             If (Not (Me._advanceEntryTableAdapter) Is Nothing) Then
43247                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.AdvanceEntry.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
43248                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
43249                 If ((Not (updatedRows) Is Nothing) _
43250                             AndAlso (0 < updatedRows.Length)) Then
43251                     result = (result + Me._advanceEntryTableAdapter.Update(updatedRows))
43252                     allChangedRows.AddRange(updatedRows)
43253                 End If
43254             End If
43255             If (Not (Me._busFeePayment_StaffTableAdapter) Is Nothing) Then
43256                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.BusFeePayment_Staff.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
43257                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
43258                 If ((Not (updatedRows) Is Nothing) _
43259                             AndAlso (0 < updatedRows.Length)) Then
43260                     result = (result + Me._busFeePayment_StaffTableAdapter.Update(updatedRows))
43261                     allChangedRows.AddRange(updatedRows)
43262                 End If
43263             End If
43264             If (Not (Me._busFeePayment_StudentTableAdapter) Is Nothing) Then
43265                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.BusFeePayment_Student.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
43266                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
43267                 If ((Not (updatedRows) Is Nothing) _
43268                             AndAlso (0 < updatedRows.Length)) Then
43269                     result = (result + Me._busFeePayment_StudentTableAdapter.Update(updatedRows))
43270                     allChangedRows.AddRange(updatedRows)
43271                 End If
43272             End If
43273             If (Not (Me._installment_BusTableAdapter) Is Nothing) Then
43274                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.Installment_Bus.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
43275                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
43276                 If ((Not (updatedRows) Is Nothing) _
43277                             AndAlso (0 < updatedRows.Length)) Then
43278                     result = (result + Me._installment_BusTableAdapter.Update(updatedRows))
43279                     allChangedRows.AddRange(updatedRows)
43280                 End If
43281             End If
43282             If (Not (Me._installment_HostelTableAdapter) Is Nothing) Then
43283                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.Installment_Hostel.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
43284                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
43285                 If ((Not (updatedRows) Is Nothing) _
43286                             AndAlso (0 < updatedRows.Length)) Then
43287                     result = (result + Me._installment_HostelTableAdapter.Update(updatedRows))
43288                     allChangedRows.AddRange(updatedRows)
43289                 End If
43290             End If
43291             If (Not (Me._logsTableAdapter) Is Nothing) Then
43292                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.Logs.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
43293                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
43294                 If ((Not (updatedRows) Is Nothing) _
43295                             AndAlso (0 < updatedRows.Length)) Then
43296                     result = (result + Me._logsTableAdapter.Update(updatedRows))
43297                     allChangedRows.AddRange(updatedRows)
43298                 End If
43299             End If
43300             If (Not (Me._hostelFeePaymentTableAdapter) Is Nothing) Then
43301                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.HostelFeePayment.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
43302                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
43303                 If ((Not (updatedRows) Is Nothing) _
43304                             AndAlso (0 < updatedRows.Length)) Then
43305                     result = (result + Me._hostelFeePaymentTableAdapter.Update(updatedRows))
43306                     allChangedRows.AddRange(updatedRows)
43307                 End If
43308             End If
43309             If (Not (Me._discountTableAdapter) Is Nothing) Then
43310                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.Discount.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
43311                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
43312                 If ((Not (updatedRows) Is Nothing) _
43313                             AndAlso (0 < updatedRows.Length)) Then
43314                     result = (result + Me._discountTableAdapter.Update(updatedRows))
43315                     allChangedRows.AddRange(updatedRows)
43316                 End If
43317             End If
43318             If (Not (Me._discount_StaffTableAdapter) Is Nothing) Then
43319                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.Discount_Staff.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
43320                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
43321                 If ((Not (updatedRows) Is Nothing) _
43322                             AndAlso (0 < updatedRows.Length)) Then
43323                     result = (result + Me._discount_StaffTableAdapter.Update(updatedRows))
43324                     allChangedRows.AddRange(updatedRows)
43325                 End If
43326             End If
43327             If (Not (Me._activationTableAdapter) Is Nothing) Then
43328                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.Activation.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
43329                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
43330                 If ((Not (updatedRows) Is Nothing) _
43331                             AndAlso (0 < updatedRows.Length)) Then
43332                     result = (result + Me._activationTableAdapter.Update(updatedRows))
43333                     allChangedRows.AddRange(updatedRows)
43334                 End If
43335             End If
43336             Return result
43337         End Function
43338         
43339         '''<summary>
43340         '''Insert rows in top-down order.
43341         '''</summary>
43342         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
43343          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
43344         Private Function UpdateInsertedRows(ByVal dataSet As ERPS_DBDataSet1, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer
43345             Dim result As Integer = 0
43346             If (Not (Me._classTypeTableAdapter) Is Nothing) Then
43347                 Dim addedRows() As Global.System.Data.DataRow = dataSet.ClassType.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
43348                 If ((Not (addedRows) Is Nothing) _
43349                             AndAlso (0 < addedRows.Length)) Then
43350                     result = (result + Me._classTypeTableAdapter.Update(addedRows))
43351                     allAddedRows.AddRange(addedRows)
43352                 End If
43353             End If
43354             If (Not (Me._classTableAdapter) Is Nothing) Then
43355                 Dim addedRows() As Global.System.Data.DataRow = dataSet._Class.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
43356                 If ((Not (addedRows) Is Nothing) _
43357                             AndAlso (0 < addedRows.Length)) Then
43358                     result = (result + Me._classTableAdapter.Update(addedRows))
43359                     allAddedRows.AddRange(addedRows)
43360                 End If
43361             End If
43362             If (Not (Me._schoolTypeTableAdapter) Is Nothing) Then
43363                 Dim addedRows() As Global.System.Data.DataRow = dataSet.SchoolType.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
43364                 If ((Not (addedRows) Is Nothing) _
43365                             AndAlso (0 < addedRows.Length)) Then
43366                     result = (result + Me._schoolTypeTableAdapter.Update(addedRows))
43367                     allAddedRows.AddRange(addedRows)
43368                 End If
43369             End If
43370             If (Not (Me._session_MasterTableAdapter) Is Nothing) Then
43371                 Dim addedRows() As Global.System.Data.DataRow = dataSet.Session_Master.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
43372                 If ((Not (addedRows) Is Nothing) _
43373                             AndAlso (0 < addedRows.Length)) Then
43374                     result = (result + Me._session_MasterTableAdapter.Update(addedRows))
43375                     allAddedRows.AddRange(addedRows)
43376                 End If
43377             End If
43378             If (Not (Me._schoolInfoTableAdapter) Is Nothing) Then
43379                 Dim addedRows() As Global.System.Data.DataRow = dataSet.SchoolInfo.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
43380                 If ((Not (addedRows) Is Nothing) _
43381                             AndAlso (0 < addedRows.Length)) Then
43382                     result = (result + Me._schoolInfoTableAdapter.Update(addedRows))
43383                     allAddedRows.AddRange(addedRows)
43384                 End If
43385             End If
43386             If (Not (Me._designationTableAdapter) Is Nothing) Then
43387                 Dim addedRows() As Global.System.Data.DataRow = dataSet.Designation.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
43388                 If ((Not (addedRows) Is Nothing) _
43389                             AndAlso (0 < addedRows.Length)) Then
43390                     result = (result + Me._designationTableAdapter.Update(addedRows))
43391                     allAddedRows.AddRange(addedRows)
43392                 End If
43393             End If
43394             If (Not (Me._sectionTableAdapter) Is Nothing) Then
43395                 Dim addedRows() As Global.System.Data.DataRow = dataSet.Section.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
43396                 If ((Not (addedRows) Is Nothing) _
43397                             AndAlso (0 < addedRows.Length)) Then
43398                     result = (result + Me._sectionTableAdapter.Update(addedRows))
43399                     allAddedRows.AddRange(addedRows)
43400                 End If
43401             End If
43402             If (Not (Me._hostelInfoTableAdapter) Is Nothing) Then
43403                 Dim addedRows() As Global.System.Data.DataRow = dataSet.HostelInfo.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
43404                 If ((Not (addedRows) Is Nothing) _
43405                             AndAlso (0 < addedRows.Length)) Then
43406                     result = (result + Me._hostelInfoTableAdapter.Update(addedRows))
43407                     allAddedRows.AddRange(addedRows)
43408                 End If
43409             End If
43410             If (Not (Me._staffTableAdapter) Is Nothing) Then
43411                 Dim addedRows() As Global.System.Data.DataRow = dataSet.Staff.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
43412                 If ((Not (addedRows) Is Nothing) _
43413                             AndAlso (0 < addedRows.Length)) Then
43414                     result = (result + Me._staffTableAdapter.Update(addedRows))
43415                     allAddedRows.AddRange(addedRows)
43416                 End If
43417             End If
43418             If (Not (Me._busInfoTableAdapter) Is Nothing) Then
43419                 Dim addedRows() As Global.System.Data.DataRow = dataSet.BusInfo.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
43420                 If ((Not (addedRows) Is Nothing) _
43421                             AndAlso (0 < addedRows.Length)) Then
43422                     result = (result + Me._busInfoTableAdapter.Update(addedRows))
43423                     allAddedRows.AddRange(addedRows)
43424                 End If
43425             End If
43426             If (Not (Me._locationTableAdapter) Is Nothing) Then
43427                 Dim addedRows() As Global.System.Data.DataRow = dataSet.Location.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
43428                 If ((Not (addedRows) Is Nothing) _
43429                             AndAlso (0 < addedRows.Length)) Then
43430                     result = (result + Me._locationTableAdapter.Update(addedRows))
43431                     allAddedRows.AddRange(addedRows)
43432                 End If
43433             End If
43434             If (Not (Me._studentTableAdapter) Is Nothing) Then
43435                 Dim addedRows() As Global.System.Data.DataRow = dataSet.Student.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
43436                 If ((Not (addedRows) Is Nothing) _
43437                             AndAlso (0 < addedRows.Length)) Then
43438                     result = (result + Me._studentTableAdapter.Update(addedRows))
43439                     allAddedRows.AddRange(addedRows)
43440                 End If
43441             End If
43442             If (Not (Me._hostelerTableAdapter) Is Nothing) Then
43443                 Dim addedRows() As Global.System.Data.DataRow = dataSet.Hosteler.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
43444                 If ((Not (addedRows) Is Nothing) _
43445                             AndAlso (0 < addedRows.Length)) Then
43446                     result = (result + Me._hostelerTableAdapter.Update(addedRows))
43447                     allAddedRows.AddRange(addedRows)
43448                 End If
43449             End If
43450             If (Not (Me._feeTableAdapter) Is Nothing) Then
43451                 Dim addedRows() As Global.System.Data.DataRow = dataSet.Fee.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
43452                 If ((Not (addedRows) Is Nothing) _
43453                             AndAlso (0 < addedRows.Length)) Then
43454                     result = (result + Me._feeTableAdapter.Update(addedRows))
43455                     allAddedRows.AddRange(addedRows)
43456                 End If
43457             End If
43458             If (Not (Me._documentTableAdapter) Is Nothing) Then
43459                 Dim addedRows() As Global.System.Data.DataRow = dataSet.Document.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
43460                 If ((Not (addedRows) Is Nothing) _
43461                             AndAlso (0 < addedRows.Length)) Then
43462                     result = (result + Me._documentTableAdapter.Update(addedRows))
43463                     allAddedRows.AddRange(addedRows)
43464                 End If
43465             End If
43466             If (Not (Me._registrationTableAdapter) Is Nothing) Then
43467                 Dim addedRows() As Global.System.Data.DataRow = dataSet.Registration.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
43468                 If ((Not (addedRows) Is Nothing) _
43469                             AndAlso (0 < addedRows.Length)) Then
43470                     result = (result + Me._registrationTableAdapter.Update(addedRows))
43471                     allAddedRows.AddRange(addedRows)
43472                 End If
43473             End If
43474             If (Not (Me._voucherTableAdapter) Is Nothing) Then
43475                 Dim addedRows() As Global.System.Data.DataRow = dataSet.Voucher.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
43476                 If ((Not (addedRows) Is Nothing) _
43477                             AndAlso (0 < addedRows.Length)) Then
43478                     result = (result + Me._voucherTableAdapter.Update(addedRows))
43479                     allAddedRows.AddRange(addedRows)
43480                 End If
43481             End If
43482             If (Not (Me._busCardHolder_StudentTableAdapter) Is Nothing) Then
43483                 Dim addedRows() As Global.System.Data.DataRow = dataSet.BusCardHolder_Student.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
43484                 If ((Not (addedRows) Is Nothing) _
43485                             AndAlso (0 < addedRows.Length)) Then
43486                     result = (result + Me._busCardHolder_StudentTableAdapter.Update(addedRows))
43487                     allAddedRows.AddRange(addedRows)
43488                 End If
43489             End If
43490             If (Not (Me._busCardHolder_StaffTableAdapter) Is Nothing) Then
43491                 Dim addedRows() As Global.System.Data.DataRow = dataSet.BusCardHolder_Staff.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
43492                 If ((Not (addedRows) Is Nothing) _
43493                             AndAlso (0 < addedRows.Length)) Then
43494                     result = (result + Me._busCardHolder_StaffTableAdapter.Update(addedRows))
43495                     allAddedRows.AddRange(addedRows)
43496                 End If
43497             End If
43498             If (Not (Me._departmentTableAdapter) Is Nothing) Then
43499                 Dim addedRows() As Global.System.Data.DataRow = dataSet.Department.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
43500                 If ((Not (addedRows) Is Nothing) _
43501                             AndAlso (0 < addedRows.Length)) Then
43502                     result = (result + Me._departmentTableAdapter.Update(addedRows))
43503                     allAddedRows.AddRange(addedRows)
43504                 End If
43505             End If
43506             If (Not (Me._courseFeePaymentTableAdapter) Is Nothing) Then
43507                 Dim addedRows() As Global.System.Data.DataRow = dataSet.CourseFeePayment.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
43508                 If ((Not (addedRows) Is Nothing) _
43509                             AndAlso (0 < addedRows.Length)) Then
43510                     result = (result + Me._courseFeePaymentTableAdapter.Update(addedRows))
43511                     allAddedRows.AddRange(addedRows)
43512                 End If
43513             End If
43514             If (Not (Me._noDues_StudentTableAdapter) Is Nothing) Then
43515                 Dim addedRows() As Global.System.Data.DataRow = dataSet.NoDues_Student.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
43516                 If ((Not (addedRows) Is Nothing) _
43517                             AndAlso (0 < addedRows.Length)) Then
43518                     result = (result + Me._noDues_StudentTableAdapter.Update(addedRows))
43519                     allAddedRows.AddRange(addedRows)
43520                 End If
43521             End If
43522             If (Not (Me._studentDocSubmittedTableAdapter) Is Nothing) Then
43523                 Dim addedRows() As Global.System.Data.DataRow = dataSet.StudentDocSubmitted.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
43524                 If ((Not (addedRows) Is Nothing) _
43525                             AndAlso (0 < addedRows.Length)) Then
43526                     result = (result + Me._studentDocSubmittedTableAdapter.Update(addedRows))
43527                     allAddedRows.AddRange(addedRows)
43528                 End If
43529             End If
43530             If (Not (Me._voucher_OtherDetailsTableAdapter) Is Nothing) Then
43531                 Dim addedRows() As Global.System.Data.DataRow = dataSet.Voucher_OtherDetails.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
43532                 If ((Not (addedRows) Is Nothing) _
43533                             AndAlso (0 < addedRows.Length)) Then
43534                     result = (result + Me._voucher_OtherDetailsTableAdapter.Update(addedRows))
43535                     allAddedRows.AddRange(addedRows)
43536                 End If
43537             End If
43538             If (Not (Me._staffPaymentTableAdapter) Is Nothing) Then
43539                 Dim addedRows() As Global.System.Data.DataRow = dataSet.StaffPayment.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
43540                 If ((Not (addedRows) Is Nothing) _
43541                             AndAlso (0 < addedRows.Length)) Then
43542                     result = (result + Me._staffPaymentTableAdapter.Update(addedRows))
43543                     allAddedRows.AddRange(addedRows)
43544                 End If
43545             End If
43546             If (Not (Me._staff_DepartmentTableAdapter) Is Nothing) Then
43547                 Dim addedRows() As Global.System.Data.DataRow = dataSet.Staff_Department.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
43548                 If ((Not (addedRows) Is Nothing) _
43549                             AndAlso (0 < addedRows.Length)) Then
43550                     result = (result + Me._staff_DepartmentTableAdapter.Update(addedRows))
43551                     allAddedRows.AddRange(addedRows)
43552                 End If
43553             End If
43554             If (Not (Me._staffAttendanceTableAdapter) Is Nothing) Then
43555                 Dim addedRows() As Global.System.Data.DataRow = dataSet.StaffAttendance.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
43556                 If ((Not (addedRows) Is Nothing) _
43557                             AndAlso (0 < addedRows.Length)) Then
43558                     result = (result + Me._staffAttendanceTableAdapter.Update(addedRows))
43559                     allAddedRows.AddRange(addedRows)
43560                 End If
43561             End If
43562             If (Not (Me._noDues_StaffTableAdapter) Is Nothing) Then
43563                 Dim addedRows() As Global.System.Data.DataRow = dataSet.NoDues_Staff.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
43564                 If ((Not (addedRows) Is Nothing) _
43565                             AndAlso (0 < addedRows.Length)) Then
43566                     result = (result + Me._noDues_StaffTableAdapter.Update(addedRows))
43567                     allAddedRows.AddRange(addedRows)
43568                 End If
43569             End If
43570             If (Not (Me._cards_StudentTableAdapter) Is Nothing) Then
43571                 Dim addedRows() As Global.System.Data.DataRow = dataSet.Cards_Student.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
43572                 If ((Not (addedRows) Is Nothing) _
43573                             AndAlso (0 < addedRows.Length)) Then
43574                     result = (result + Me._cards_StudentTableAdapter.Update(addedRows))
43575                     allAddedRows.AddRange(addedRows)
43576                 End If
43577             End If
43578             If (Not (Me._courseFeeTableAdapter) Is Nothing) Then
43579                 Dim addedRows() As Global.System.Data.DataRow = dataSet.CourseFee.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
43580                 If ((Not (addedRows) Is Nothing) _
43581                             AndAlso (0 < addedRows.Length)) Then
43582                     result = (result + Me._courseFeeTableAdapter.Update(addedRows))
43583                     allAddedRows.AddRange(addedRows)
43584                 End If
43585             End If
43586             If (Not (Me._courseFeePayment_JoinTableAdapter) Is Nothing) Then
43587                 Dim addedRows() As Global.System.Data.DataRow = dataSet.CourseFeePayment_Join.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
43588                 If ((Not (addedRows) Is Nothing) _
43589                             AndAlso (0 < addedRows.Length)) Then
43590                     result = (result + Me._courseFeePayment_JoinTableAdapter.Update(addedRows))
43591                     allAddedRows.AddRange(addedRows)
43592                 End If
43593             End If
43594             If (Not (Me._cards_StaffTableAdapter) Is Nothing) Then
43595                 Dim addedRows() As Global.System.Data.DataRow = dataSet.Cards_Staff.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
43596                 If ((Not (addedRows) Is Nothing) _
43597                             AndAlso (0 < addedRows.Length)) Then
43598                     result = (result + Me._cards_StaffTableAdapter.Update(addedRows))
43599                     allAddedRows.AddRange(addedRows)
43600                 End If
43601             End If
43602             If (Not (Me._advanceEntryTableAdapter) Is Nothing) Then
43603                 Dim addedRows() As Global.System.Data.DataRow = dataSet.AdvanceEntry.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
43604                 If ((Not (addedRows) Is Nothing) _
43605                             AndAlso (0 < addedRows.Length)) Then
43606                     result = (result + Me._advanceEntryTableAdapter.Update(addedRows))
43607                     allAddedRows.AddRange(addedRows)
43608                 End If
43609             End If
43610             If (Not (Me._busFeePayment_StaffTableAdapter) Is Nothing) Then
43611                 Dim addedRows() As Global.System.Data.DataRow = dataSet.BusFeePayment_Staff.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
43612                 If ((Not (addedRows) Is Nothing) _
43613                             AndAlso (0 < addedRows.Length)) Then
43614                     result = (result + Me._busFeePayment_StaffTableAdapter.Update(addedRows))
43615                     allAddedRows.AddRange(addedRows)
43616                 End If
43617             End If
43618             If (Not (Me._busFeePayment_StudentTableAdapter) Is Nothing) Then
43619                 Dim addedRows() As Global.System.Data.DataRow = dataSet.BusFeePayment_Student.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
43620                 If ((Not (addedRows) Is Nothing) _
43621                             AndAlso (0 < addedRows.Length)) Then
43622                     result = (result + Me._busFeePayment_StudentTableAdapter.Update(addedRows))
43623                     allAddedRows.AddRange(addedRows)
43624                 End If
43625             End If
43626             If (Not (Me._installment_BusTableAdapter) Is Nothing) Then
43627                 Dim addedRows() As Global.System.Data.DataRow = dataSet.Installment_Bus.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
43628                 If ((Not (addedRows) Is Nothing) _
43629                             AndAlso (0 < addedRows.Length)) Then
43630                     result = (result + Me._installment_BusTableAdapter.Update(addedRows))
43631                     allAddedRows.AddRange(addedRows)
43632                 End If
43633             End If
43634             If (Not (Me._installment_HostelTableAdapter) Is Nothing) Then
43635                 Dim addedRows() As Global.System.Data.DataRow = dataSet.Installment_Hostel.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
43636                 If ((Not (addedRows) Is Nothing) _
43637                             AndAlso (0 < addedRows.Length)) Then
43638                     result = (result + Me._installment_HostelTableAdapter.Update(addedRows))
43639                     allAddedRows.AddRange(addedRows)
43640                 End If
43641             End If
43642             If (Not (Me._logsTableAdapter) Is Nothing) Then
43643                 Dim addedRows() As Global.System.Data.DataRow = dataSet.Logs.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
43644                 If ((Not (addedRows) Is Nothing) _
43645                             AndAlso (0 < addedRows.Length)) Then
43646                     result = (result + Me._logsTableAdapter.Update(addedRows))
43647                     allAddedRows.AddRange(addedRows)
43648                 End If
43649             End If
43650             If (Not (Me._hostelFeePaymentTableAdapter) Is Nothing) Then
43651                 Dim addedRows() As Global.System.Data.DataRow = dataSet.HostelFeePayment.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
43652                 If ((Not (addedRows) Is Nothing) _
43653                             AndAlso (0 < addedRows.Length)) Then
43654                     result = (result + Me._hostelFeePaymentTableAdapter.Update(addedRows))
43655                     allAddedRows.AddRange(addedRows)
43656                 End If
43657             End If
43658             If (Not (Me._discountTableAdapter) Is Nothing) Then
43659                 Dim addedRows() As Global.System.Data.DataRow = dataSet.Discount.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
43660                 If ((Not (addedRows) Is Nothing) _
43661                             AndAlso (0 < addedRows.Length)) Then
43662                     result = (result + Me._discountTableAdapter.Update(addedRows))
43663                     allAddedRows.AddRange(addedRows)
43664                 End If
43665             End If
43666             If (Not (Me._discount_StaffTableAdapter) Is Nothing) Then
43667                 Dim addedRows() As Global.System.Data.DataRow = dataSet.Discount_Staff.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
43668                 If ((Not (addedRows) Is Nothing) _
43669                             AndAlso (0 < addedRows.Length)) Then
43670                     result = (result + Me._discount_StaffTableAdapter.Update(addedRows))
43671                     allAddedRows.AddRange(addedRows)
43672                 End If
43673             End If
43674             If (Not (Me._activationTableAdapter) Is Nothing) Then
43675                 Dim addedRows() As Global.System.Data.DataRow = dataSet.Activation.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
43676                 If ((Not (addedRows) Is Nothing) _
43677                             AndAlso (0 < addedRows.Length)) Then
43678                     result = (result + Me._activationTableAdapter.Update(addedRows))
43679                     allAddedRows.AddRange(addedRows)
43680                 End If
43681             End If
43682             Return result
43683         End Function
43684         
43685         '''<summary>
43686         '''Delete rows in bottom-up order.
43687         '''</summary>
43688         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
43689          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
43690         Private Function UpdateDeletedRows(ByVal dataSet As ERPS_DBDataSet1, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer
43691             Dim result As Integer = 0
43692             If (Not (Me._activationTableAdapter) Is Nothing) Then
43693                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.Activation.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
43694                 If ((Not (deletedRows) Is Nothing) _
43695                             AndAlso (0 < deletedRows.Length)) Then
43696                     result = (result + Me._activationTableAdapter.Update(deletedRows))
43697                     allChangedRows.AddRange(deletedRows)
43698                 End If
43699             End If
43700             If (Not (Me._discount_StaffTableAdapter) Is Nothing) Then
43701                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.Discount_Staff.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
43702                 If ((Not (deletedRows) Is Nothing) _
43703                             AndAlso (0 < deletedRows.Length)) Then
43704                     result = (result + Me._discount_StaffTableAdapter.Update(deletedRows))
43705                     allChangedRows.AddRange(deletedRows)
43706                 End If
43707             End If
43708             If (Not (Me._discountTableAdapter) Is Nothing) Then
43709                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.Discount.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
43710                 If ((Not (deletedRows) Is Nothing) _
43711                             AndAlso (0 < deletedRows.Length)) Then
43712                     result = (result + Me._discountTableAdapter.Update(deletedRows))
43713                     allChangedRows.AddRange(deletedRows)
43714                 End If
43715             End If
43716             If (Not (Me._hostelFeePaymentTableAdapter) Is Nothing) Then
43717                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.HostelFeePayment.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
43718                 If ((Not (deletedRows) Is Nothing) _
43719                             AndAlso (0 < deletedRows.Length)) Then
43720                     result = (result + Me._hostelFeePaymentTableAdapter.Update(deletedRows))
43721                     allChangedRows.AddRange(deletedRows)
43722                 End If
43723             End If
43724             If (Not (Me._logsTableAdapter) Is Nothing) Then
43725                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.Logs.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
43726                 If ((Not (deletedRows) Is Nothing) _
43727                             AndAlso (0 < deletedRows.Length)) Then
43728                     result = (result + Me._logsTableAdapter.Update(deletedRows))
43729                     allChangedRows.AddRange(deletedRows)
43730                 End If
43731             End If
43732             If (Not (Me._installment_HostelTableAdapter) Is Nothing) Then
43733                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.Installment_Hostel.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
43734                 If ((Not (deletedRows) Is Nothing) _
43735                             AndAlso (0 < deletedRows.Length)) Then
43736                     result = (result + Me._installment_HostelTableAdapter.Update(deletedRows))
43737                     allChangedRows.AddRange(deletedRows)
43738                 End If
43739             End If
43740             If (Not (Me._installment_BusTableAdapter) Is Nothing) Then
43741                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.Installment_Bus.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
43742                 If ((Not (deletedRows) Is Nothing) _
43743                             AndAlso (0 < deletedRows.Length)) Then
43744                     result = (result + Me._installment_BusTableAdapter.Update(deletedRows))
43745                     allChangedRows.AddRange(deletedRows)
43746                 End If
43747             End If
43748             If (Not (Me._busFeePayment_StudentTableAdapter) Is Nothing) Then
43749                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.BusFeePayment_Student.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
43750                 If ((Not (deletedRows) Is Nothing) _
43751                             AndAlso (0 < deletedRows.Length)) Then
43752                     result = (result + Me._busFeePayment_StudentTableAdapter.Update(deletedRows))
43753                     allChangedRows.AddRange(deletedRows)
43754                 End If
43755             End If
43756             If (Not (Me._busFeePayment_StaffTableAdapter) Is Nothing) Then
43757                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.BusFeePayment_Staff.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
43758                 If ((Not (deletedRows) Is Nothing) _
43759                             AndAlso (0 < deletedRows.Length)) Then
43760                     result = (result + Me._busFeePayment_StaffTableAdapter.Update(deletedRows))
43761                     allChangedRows.AddRange(deletedRows)
43762                 End If
43763             End If
43764             If (Not (Me._advanceEntryTableAdapter) Is Nothing) Then
43765                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.AdvanceEntry.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
43766                 If ((Not (deletedRows) Is Nothing) _
43767                             AndAlso (0 < deletedRows.Length)) Then
43768                     result = (result + Me._advanceEntryTableAdapter.Update(deletedRows))
43769                     allChangedRows.AddRange(deletedRows)
43770                 End If
43771             End If
43772             If (Not (Me._cards_StaffTableAdapter) Is Nothing) Then
43773                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.Cards_Staff.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
43774                 If ((Not (deletedRows) Is Nothing) _
43775                             AndAlso (0 < deletedRows.Length)) Then
43776                     result = (result + Me._cards_StaffTableAdapter.Update(deletedRows))
43777                     allChangedRows.AddRange(deletedRows)
43778                 End If
43779             End If
43780             If (Not (Me._courseFeePayment_JoinTableAdapter) Is Nothing) Then
43781                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.CourseFeePayment_Join.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
43782                 If ((Not (deletedRows) Is Nothing) _
43783                             AndAlso (0 < deletedRows.Length)) Then
43784                     result = (result + Me._courseFeePayment_JoinTableAdapter.Update(deletedRows))
43785                     allChangedRows.AddRange(deletedRows)
43786                 End If
43787             End If
43788             If (Not (Me._courseFeeTableAdapter) Is Nothing) Then
43789                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.CourseFee.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
43790                 If ((Not (deletedRows) Is Nothing) _
43791                             AndAlso (0 < deletedRows.Length)) Then
43792                     result = (result + Me._courseFeeTableAdapter.Update(deletedRows))
43793                     allChangedRows.AddRange(deletedRows)
43794                 End If
43795             End If
43796             If (Not (Me._cards_StudentTableAdapter) Is Nothing) Then
43797                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.Cards_Student.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
43798                 If ((Not (deletedRows) Is Nothing) _
43799                             AndAlso (0 < deletedRows.Length)) Then
43800                     result = (result + Me._cards_StudentTableAdapter.Update(deletedRows))
43801                     allChangedRows.AddRange(deletedRows)
43802                 End If
43803             End If
43804             If (Not (Me._noDues_StaffTableAdapter) Is Nothing) Then
43805                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.NoDues_Staff.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
43806                 If ((Not (deletedRows) Is Nothing) _
43807                             AndAlso (0 < deletedRows.Length)) Then
43808                     result = (result + Me._noDues_StaffTableAdapter.Update(deletedRows))
43809                     allChangedRows.AddRange(deletedRows)
43810                 End If
43811             End If
43812             If (Not (Me._staffAttendanceTableAdapter) Is Nothing) Then
43813                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.StaffAttendance.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
43814                 If ((Not (deletedRows) Is Nothing) _
43815                             AndAlso (0 < deletedRows.Length)) Then
43816                     result = (result + Me._staffAttendanceTableAdapter.Update(deletedRows))
43817                     allChangedRows.AddRange(deletedRows)
43818                 End If
43819             End If
43820             If (Not (Me._staff_DepartmentTableAdapter) Is Nothing) Then
43821                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.Staff_Department.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
43822                 If ((Not (deletedRows) Is Nothing) _
43823                             AndAlso (0 < deletedRows.Length)) Then
43824                     result = (result + Me._staff_DepartmentTableAdapter.Update(deletedRows))
43825                     allChangedRows.AddRange(deletedRows)
43826                 End If
43827             End If
43828             If (Not (Me._staffPaymentTableAdapter) Is Nothing) Then
43829                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.StaffPayment.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
43830                 If ((Not (deletedRows) Is Nothing) _
43831                             AndAlso (0 < deletedRows.Length)) Then
43832                     result = (result + Me._staffPaymentTableAdapter.Update(deletedRows))
43833                     allChangedRows.AddRange(deletedRows)
43834                 End If
43835             End If
43836             If (Not (Me._voucher_OtherDetailsTableAdapter) Is Nothing) Then
43837                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.Voucher_OtherDetails.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
43838                 If ((Not (deletedRows) Is Nothing) _
43839                             AndAlso (0 < deletedRows.Length)) Then
43840                     result = (result + Me._voucher_OtherDetailsTableAdapter.Update(deletedRows))
43841                     allChangedRows.AddRange(deletedRows)
43842                 End If
43843             End If
43844             If (Not (Me._studentDocSubmittedTableAdapter) Is Nothing) Then
43845                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.StudentDocSubmitted.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
43846                 If ((Not (deletedRows) Is Nothing) _
43847                             AndAlso (0 < deletedRows.Length)) Then
43848                     result = (result + Me._studentDocSubmittedTableAdapter.Update(deletedRows))
43849                     allChangedRows.AddRange(deletedRows)
43850                 End If
43851             End If
43852             If (Not (Me._noDues_StudentTableAdapter) Is Nothing) Then
43853                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.NoDues_Student.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
43854                 If ((Not (deletedRows) Is Nothing) _
43855                             AndAlso (0 < deletedRows.Length)) Then
43856                     result = (result + Me._noDues_StudentTableAdapter.Update(deletedRows))
43857                     allChangedRows.AddRange(deletedRows)
43858                 End If
43859             End If
43860             If (Not (Me._courseFeePaymentTableAdapter) Is Nothing) Then
43861                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.CourseFeePayment.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
43862                 If ((Not (deletedRows) Is Nothing) _
43863                             AndAlso (0 < deletedRows.Length)) Then
43864                     result = (result + Me._courseFeePaymentTableAdapter.Update(deletedRows))
43865                     allChangedRows.AddRange(deletedRows)
43866                 End If
43867             End If
43868             If (Not (Me._departmentTableAdapter) Is Nothing) Then
43869                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.Department.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
43870                 If ((Not (deletedRows) Is Nothing) _
43871                             AndAlso (0 < deletedRows.Length)) Then
43872                     result = (result + Me._departmentTableAdapter.Update(deletedRows))
43873                     allChangedRows.AddRange(deletedRows)
43874                 End If
43875             End If
43876             If (Not (Me._busCardHolder_StaffTableAdapter) Is Nothing) Then
43877                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.BusCardHolder_Staff.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
43878                 If ((Not (deletedRows) Is Nothing) _
43879                             AndAlso (0 < deletedRows.Length)) Then
43880                     result = (result + Me._busCardHolder_StaffTableAdapter.Update(deletedRows))
43881                     allChangedRows.AddRange(deletedRows)
43882                 End If
43883             End If
43884             If (Not (Me._busCardHolder_StudentTableAdapter) Is Nothing) Then
43885                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.BusCardHolder_Student.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
43886                 If ((Not (deletedRows) Is Nothing) _
43887                             AndAlso (0 < deletedRows.Length)) Then
43888                     result = (result + Me._busCardHolder_StudentTableAdapter.Update(deletedRows))
43889                     allChangedRows.AddRange(deletedRows)
43890                 End If
43891             End If
43892             If (Not (Me._voucherTableAdapter) Is Nothing) Then
43893                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.Voucher.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
43894                 If ((Not (deletedRows) Is Nothing) _
43895                             AndAlso (0 < deletedRows.Length)) Then
43896                     result = (result + Me._voucherTableAdapter.Update(deletedRows))
43897                     allChangedRows.AddRange(deletedRows)
43898                 End If
43899             End If
43900             If (Not (Me._registrationTableAdapter) Is Nothing) Then
43901                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.Registration.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
43902                 If ((Not (deletedRows) Is Nothing) _
43903                             AndAlso (0 < deletedRows.Length)) Then
43904                     result = (result + Me._registrationTableAdapter.Update(deletedRows))
43905                     allChangedRows.AddRange(deletedRows)
43906                 End If
43907             End If
43908             If (Not (Me._documentTableAdapter) Is Nothing) Then
43909                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.Document.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
43910                 If ((Not (deletedRows) Is Nothing) _
43911                             AndAlso (0 < deletedRows.Length)) Then
43912                     result = (result + Me._documentTableAdapter.Update(deletedRows))
43913                     allChangedRows.AddRange(deletedRows)
43914                 End If
43915             End If
43916             If (Not (Me._feeTableAdapter) Is Nothing) Then
43917                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.Fee.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
43918                 If ((Not (deletedRows) Is Nothing) _
43919                             AndAlso (0 < deletedRows.Length)) Then
43920                     result = (result + Me._feeTableAdapter.Update(deletedRows))
43921                     allChangedRows.AddRange(deletedRows)
43922                 End If
43923             End If
43924             If (Not (Me._hostelerTableAdapter) Is Nothing) Then
43925                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.Hosteler.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
43926                 If ((Not (deletedRows) Is Nothing) _
43927                             AndAlso (0 < deletedRows.Length)) Then
43928                     result = (result + Me._hostelerTableAdapter.Update(deletedRows))
43929                     allChangedRows.AddRange(deletedRows)
43930                 End If
43931             End If
43932             If (Not (Me._studentTableAdapter) Is Nothing) Then
43933                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.Student.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
43934                 If ((Not (deletedRows) Is Nothing) _
43935                             AndAlso (0 < deletedRows.Length)) Then
43936                     result = (result + Me._studentTableAdapter.Update(deletedRows))
43937                     allChangedRows.AddRange(deletedRows)
43938                 End If
43939             End If
43940             If (Not (Me._locationTableAdapter) Is Nothing) Then
43941                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.Location.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
43942                 If ((Not (deletedRows) Is Nothing) _
43943                             AndAlso (0 < deletedRows.Length)) Then
43944                     result = (result + Me._locationTableAdapter.Update(deletedRows))
43945                     allChangedRows.AddRange(deletedRows)
43946                 End If
43947             End If
43948             If (Not (Me._busInfoTableAdapter) Is Nothing) Then
43949                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.BusInfo.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
43950                 If ((Not (deletedRows) Is Nothing) _
43951                             AndAlso (0 < deletedRows.Length)) Then
43952                     result = (result + Me._busInfoTableAdapter.Update(deletedRows))
43953                     allChangedRows.AddRange(deletedRows)
43954                 End If
43955             End If
43956             If (Not (Me._staffTableAdapter) Is Nothing) Then
43957                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.Staff.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
43958                 If ((Not (deletedRows) Is Nothing) _
43959                             AndAlso (0 < deletedRows.Length)) Then
43960                     result = (result + Me._staffTableAdapter.Update(deletedRows))
43961                     allChangedRows.AddRange(deletedRows)
43962                 End If
43963             End If
43964             If (Not (Me._hostelInfoTableAdapter) Is Nothing) Then
43965                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.HostelInfo.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
43966                 If ((Not (deletedRows) Is Nothing) _
43967                             AndAlso (0 < deletedRows.Length)) Then
43968                     result = (result + Me._hostelInfoTableAdapter.Update(deletedRows))
43969                     allChangedRows.AddRange(deletedRows)
43970                 End If
43971             End If
43972             If (Not (Me._sectionTableAdapter) Is Nothing) Then
43973                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.Section.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
43974                 If ((Not (deletedRows) Is Nothing) _
43975                             AndAlso (0 < deletedRows.Length)) Then
43976                     result = (result + Me._sectionTableAdapter.Update(deletedRows))
43977                     allChangedRows.AddRange(deletedRows)
43978                 End If
43979             End If
43980             If (Not (Me._designationTableAdapter) Is Nothing) Then
43981                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.Designation.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
43982                 If ((Not (deletedRows) Is Nothing) _
43983                             AndAlso (0 < deletedRows.Length)) Then
43984                     result = (result + Me._designationTableAdapter.Update(deletedRows))
43985                     allChangedRows.AddRange(deletedRows)
43986                 End If
43987             End If
43988             If (Not (Me._schoolInfoTableAdapter) Is Nothing) Then
43989                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.SchoolInfo.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
43990                 If ((Not (deletedRows) Is Nothing) _
43991                             AndAlso (0 < deletedRows.Length)) Then
43992                     result = (result + Me._schoolInfoTableAdapter.Update(deletedRows))
43993                     allChangedRows.AddRange(deletedRows)
43994                 End If
43995             End If
43996             If (Not (Me._session_MasterTableAdapter) Is Nothing) Then
43997                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.Session_Master.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
43998                 If ((Not (deletedRows) Is Nothing) _
43999                             AndAlso (0 < deletedRows.Length)) Then
44000                     result = (result + Me._session_MasterTableAdapter.Update(deletedRows))
44001                     allChangedRows.AddRange(deletedRows)
44002                 End If
44003             End If
44004             If (Not (Me._schoolTypeTableAdapter) Is Nothing) Then
44005                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.SchoolType.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
44006                 If ((Not (deletedRows) Is Nothing) _
44007                             AndAlso (0 < deletedRows.Length)) Then
44008                     result = (result + Me._schoolTypeTableAdapter.Update(deletedRows))
44009                     allChangedRows.AddRange(deletedRows)
44010                 End If
44011             End If
44012             If (Not (Me._classTableAdapter) Is Nothing) Then
44013                 Dim deletedRows() As Global.System.Data.DataRow = dataSet._Class.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
44014                 If ((Not (deletedRows) Is Nothing) _
44015                             AndAlso (0 < deletedRows.Length)) Then
44016                     result = (result + Me._classTableAdapter.Update(deletedRows))
44017                     allChangedRows.AddRange(deletedRows)
44018                 End If
44019             End If
44020             If (Not (Me._classTypeTableAdapter) Is Nothing) Then
44021                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.ClassType.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
44022                 If ((Not (deletedRows) Is Nothing) _
44023                             AndAlso (0 < deletedRows.Length)) Then
44024                     result = (result + Me._classTypeTableAdapter.Update(deletedRows))
44025                     allChangedRows.AddRange(deletedRows)
44026                 End If
44027             End If
44028             Return result
44029         End Function
44030         
44031         '''<summary>
44032         '''Remove inserted rows that become updated rows after calling TableAdapter.Update(inserted rows) first
44033         '''</summary>
44034         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
44035          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
44036         Private Function GetRealUpdatedRows(ByVal updatedRows() As Global.System.Data.DataRow, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Global.System.Data.DataRow()
44037             If ((updatedRows Is Nothing) _
44038                         OrElse (updatedRows.Length < 1)) Then
44039                 Return updatedRows
44040             End If
44041             If ((allAddedRows Is Nothing) _
44042                         OrElse (allAddedRows.Count < 1)) Then
44043                 Return updatedRows
44044             End If
44045             Dim realUpdatedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)()
44046             Dim i As Integer = 0
44047             Do While (i < updatedRows.Length)
44048                 Dim row As Global.System.Data.DataRow = updatedRows(i)
44049                 If (allAddedRows.Contains(row) = false) Then
44050                     realUpdatedRows.Add(row)
44051                 End If
44052                 i = (i + 1)
44053             Loop
44054             Return realUpdatedRows.ToArray
44055         End Function
44056         
44057         '''<summary>
44058         '''Update all changes to the dataset.
44059         '''</summary>
44060         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
44061          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
44062         Public Overridable Function UpdateAll(ByVal dataSet As ERPS_DBDataSet1) As Integer
44063             If (dataSet Is Nothing) Then
44064                 Throw New Global.System.ArgumentNullException("dataSet")
44065             End If
44066             If (dataSet.HasChanges = false) Then
44067                 Return 0
44068             End If
44069             If ((Not (Me._activationTableAdapter) Is Nothing) _
44070                         AndAlso (Me.MatchTableAdapterConnection(Me._activationTableAdapter.Connection) = false)) Then
44071                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
44072                         "tring.")
44073             End If
44074             If ((Not (Me._advanceEntryTableAdapter) Is Nothing) _
44075                         AndAlso (Me.MatchTableAdapterConnection(Me._advanceEntryTableAdapter.Connection) = false)) Then
44076                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
44077                         "tring.")
44078             End If
44079             If ((Not (Me._busCardHolder_StaffTableAdapter) Is Nothing) _
44080                         AndAlso (Me.MatchTableAdapterConnection(Me._busCardHolder_StaffTableAdapter.Connection) = false)) Then
44081                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
44082                         "tring.")
44083             End If
44084             If ((Not (Me._busCardHolder_StudentTableAdapter) Is Nothing) _
44085                         AndAlso (Me.MatchTableAdapterConnection(Me._busCardHolder_StudentTableAdapter.Connection) = false)) Then
44086                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
44087                         "tring.")
44088             End If
44089             If ((Not (Me._busFeePayment_StaffTableAdapter) Is Nothing) _
44090                         AndAlso (Me.MatchTableAdapterConnection(Me._busFeePayment_StaffTableAdapter.Connection) = false)) Then
44091                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
44092                         "tring.")
44093             End If
44094             If ((Not (Me._busFeePayment_StudentTableAdapter) Is Nothing) _
44095                         AndAlso (Me.MatchTableAdapterConnection(Me._busFeePayment_StudentTableAdapter.Connection) = false)) Then
44096                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
44097                         "tring.")
44098             End If
44099             If ((Not (Me._busInfoTableAdapter) Is Nothing) _
44100                         AndAlso (Me.MatchTableAdapterConnection(Me._busInfoTableAdapter.Connection) = false)) Then
44101                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
44102                         "tring.")
44103             End If
44104             If ((Not (Me._cards_StaffTableAdapter) Is Nothing) _
44105                         AndAlso (Me.MatchTableAdapterConnection(Me._cards_StaffTableAdapter.Connection) = false)) Then
44106                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
44107                         "tring.")
44108             End If
44109             If ((Not (Me._cards_StudentTableAdapter) Is Nothing) _
44110                         AndAlso (Me.MatchTableAdapterConnection(Me._cards_StudentTableAdapter.Connection) = false)) Then
44111                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
44112                         "tring.")
44113             End If
44114             If ((Not (Me._classTableAdapter) Is Nothing) _
44115                         AndAlso (Me.MatchTableAdapterConnection(Me._classTableAdapter.Connection) = false)) Then
44116                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
44117                         "tring.")
44118             End If
44119             If ((Not (Me._classTypeTableAdapter) Is Nothing) _
44120                         AndAlso (Me.MatchTableAdapterConnection(Me._classTypeTableAdapter.Connection) = false)) Then
44121                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
44122                         "tring.")
44123             End If
44124             If ((Not (Me._courseFeeTableAdapter) Is Nothing) _
44125                         AndAlso (Me.MatchTableAdapterConnection(Me._courseFeeTableAdapter.Connection) = false)) Then
44126                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
44127                         "tring.")
44128             End If
44129             If ((Not (Me._courseFeePaymentTableAdapter) Is Nothing) _
44130                         AndAlso (Me.MatchTableAdapterConnection(Me._courseFeePaymentTableAdapter.Connection) = false)) Then
44131                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
44132                         "tring.")
44133             End If
44134             If ((Not (Me._courseFeePayment_JoinTableAdapter) Is Nothing) _
44135                         AndAlso (Me.MatchTableAdapterConnection(Me._courseFeePayment_JoinTableAdapter.Connection) = false)) Then
44136                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
44137                         "tring.")
44138             End If
44139             If ((Not (Me._departmentTableAdapter) Is Nothing) _
44140                         AndAlso (Me.MatchTableAdapterConnection(Me._departmentTableAdapter.Connection) = false)) Then
44141                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
44142                         "tring.")
44143             End If
44144             If ((Not (Me._designationTableAdapter) Is Nothing) _
44145                         AndAlso (Me.MatchTableAdapterConnection(Me._designationTableAdapter.Connection) = false)) Then
44146                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
44147                         "tring.")
44148             End If
44149             If ((Not (Me._discountTableAdapter) Is Nothing) _
44150                         AndAlso (Me.MatchTableAdapterConnection(Me._discountTableAdapter.Connection) = false)) Then
44151                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
44152                         "tring.")
44153             End If
44154             If ((Not (Me._discount_StaffTableAdapter) Is Nothing) _
44155                         AndAlso (Me.MatchTableAdapterConnection(Me._discount_StaffTableAdapter.Connection) = false)) Then
44156                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
44157                         "tring.")
44158             End If
44159             If ((Not (Me._documentTableAdapter) Is Nothing) _
44160                         AndAlso (Me.MatchTableAdapterConnection(Me._documentTableAdapter.Connection) = false)) Then
44161                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
44162                         "tring.")
44163             End If
44164             If ((Not (Me._feeTableAdapter) Is Nothing) _
44165                         AndAlso (Me.MatchTableAdapterConnection(Me._feeTableAdapter.Connection) = false)) Then
44166                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
44167                         "tring.")
44168             End If
44169             If ((Not (Me._hostelerTableAdapter) Is Nothing) _
44170                         AndAlso (Me.MatchTableAdapterConnection(Me._hostelerTableAdapter.Connection) = false)) Then
44171                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
44172                         "tring.")
44173             End If
44174             If ((Not (Me._hostelFeePaymentTableAdapter) Is Nothing) _
44175                         AndAlso (Me.MatchTableAdapterConnection(Me._hostelFeePaymentTableAdapter.Connection) = false)) Then
44176                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
44177                         "tring.")
44178             End If
44179             If ((Not (Me._hostelInfoTableAdapter) Is Nothing) _
44180                         AndAlso (Me.MatchTableAdapterConnection(Me._hostelInfoTableAdapter.Connection) = false)) Then
44181                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
44182                         "tring.")
44183             End If
44184             If ((Not (Me._installment_BusTableAdapter) Is Nothing) _
44185                         AndAlso (Me.MatchTableAdapterConnection(Me._installment_BusTableAdapter.Connection) = false)) Then
44186                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
44187                         "tring.")
44188             End If
44189             If ((Not (Me._installment_HostelTableAdapter) Is Nothing) _
44190                         AndAlso (Me.MatchTableAdapterConnection(Me._installment_HostelTableAdapter.Connection) = false)) Then
44191                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
44192                         "tring.")
44193             End If
44194             If ((Not (Me._locationTableAdapter) Is Nothing) _
44195                         AndAlso (Me.MatchTableAdapterConnection(Me._locationTableAdapter.Connection) = false)) Then
44196                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
44197                         "tring.")
44198             End If
44199             If ((Not (Me._logsTableAdapter) Is Nothing) _
44200                         AndAlso (Me.MatchTableAdapterConnection(Me._logsTableAdapter.Connection) = false)) Then
44201                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
44202                         "tring.")
44203             End If
44204             If ((Not (Me._noDues_StaffTableAdapter) Is Nothing) _
44205                         AndAlso (Me.MatchTableAdapterConnection(Me._noDues_StaffTableAdapter.Connection) = false)) Then
44206                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
44207                         "tring.")
44208             End If
44209             If ((Not (Me._noDues_StudentTableAdapter) Is Nothing) _
44210                         AndAlso (Me.MatchTableAdapterConnection(Me._noDues_StudentTableAdapter.Connection) = false)) Then
44211                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
44212                         "tring.")
44213             End If
44214             If ((Not (Me._registrationTableAdapter) Is Nothing) _
44215                         AndAlso (Me.MatchTableAdapterConnection(Me._registrationTableAdapter.Connection) = false)) Then
44216                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
44217                         "tring.")
44218             End If
44219             If ((Not (Me._schoolInfoTableAdapter) Is Nothing) _
44220                         AndAlso (Me.MatchTableAdapterConnection(Me._schoolInfoTableAdapter.Connection) = false)) Then
44221                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
44222                         "tring.")
44223             End If
44224             If ((Not (Me._schoolTypeTableAdapter) Is Nothing) _
44225                         AndAlso (Me.MatchTableAdapterConnection(Me._schoolTypeTableAdapter.Connection) = false)) Then
44226                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
44227                         "tring.")
44228             End If
44229             If ((Not (Me._sectionTableAdapter) Is Nothing) _
44230                         AndAlso (Me.MatchTableAdapterConnection(Me._sectionTableAdapter.Connection) = false)) Then
44231                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
44232                         "tring.")
44233             End If
44234             If ((Not (Me._session_MasterTableAdapter) Is Nothing) _
44235                         AndAlso (Me.MatchTableAdapterConnection(Me._session_MasterTableAdapter.Connection) = false)) Then
44236                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
44237                         "tring.")
44238             End If
44239             If ((Not (Me._staffTableAdapter) Is Nothing) _
44240                         AndAlso (Me.MatchTableAdapterConnection(Me._staffTableAdapter.Connection) = false)) Then
44241                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
44242                         "tring.")
44243             End If
44244             If ((Not (Me._staff_DepartmentTableAdapter) Is Nothing) _
44245                         AndAlso (Me.MatchTableAdapterConnection(Me._staff_DepartmentTableAdapter.Connection) = false)) Then
44246                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
44247                         "tring.")
44248             End If
44249             If ((Not (Me._staffAttendanceTableAdapter) Is Nothing) _
44250                         AndAlso (Me.MatchTableAdapterConnection(Me._staffAttendanceTableAdapter.Connection) = false)) Then
44251                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
44252                         "tring.")
44253             End If
44254             If ((Not (Me._staffPaymentTableAdapter) Is Nothing) _
44255                         AndAlso (Me.MatchTableAdapterConnection(Me._staffPaymentTableAdapter.Connection) = false)) Then
44256                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
44257                         "tring.")
44258             End If
44259             If ((Not (Me._studentTableAdapter) Is Nothing) _
44260                         AndAlso (Me.MatchTableAdapterConnection(Me._studentTableAdapter.Connection) = false)) Then
44261                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
44262                         "tring.")
44263             End If
44264             If ((Not (Me._studentDocSubmittedTableAdapter) Is Nothing) _
44265                         AndAlso (Me.MatchTableAdapterConnection(Me._studentDocSubmittedTableAdapter.Connection) = false)) Then
44266                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
44267                         "tring.")
44268             End If
44269             If ((Not (Me._voucherTableAdapter) Is Nothing) _
44270                         AndAlso (Me.MatchTableAdapterConnection(Me._voucherTableAdapter.Connection) = false)) Then
44271                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
44272                         "tring.")
44273             End If
44274             If ((Not (Me._voucher_OtherDetailsTableAdapter) Is Nothing) _
44275                         AndAlso (Me.MatchTableAdapterConnection(Me._voucher_OtherDetailsTableAdapter.Connection) = false)) Then
44276                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
44277                         "tring.")
44278             End If
44279             Dim workConnection As Global.System.Data.IDbConnection = Me.Connection
44280             If (workConnection Is Nothing) Then
44281                 Throw New Global.System.ApplicationException("TableAdapterManager contains no connection information. Set each TableAdapterMana"& _
44282                         "ger TableAdapter property to a valid TableAdapter instance.")
44283             End If
44284             Dim workConnOpened As Boolean = false
44285             If ((workConnection.State And Global.System.Data.ConnectionState.Broken) _
44286                         = Global.System.Data.ConnectionState.Broken) Then
44287                 workConnection.Close
44288             End If
44289             If (workConnection.State = Global.System.Data.ConnectionState.Closed) Then
44290                 workConnection.Open
44291                 workConnOpened = true
44292             End If
44293             Dim workTransaction As Global.System.Data.IDbTransaction = workConnection.BeginTransaction
44294             If (workTransaction Is Nothing) Then
44295                 Throw New Global.System.ApplicationException("The transaction cannot begin. The current data connection does not support transa"& _
44296                         "ctions or the current state is not allowing the transaction to begin.")
44297             End If
44298             Dim allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)()
44299             Dim allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)()
44300             Dim adaptersWithAcceptChangesDuringUpdate As Global.System.Collections.Generic.List(Of Global.System.Data.Common.DataAdapter) = New Global.System.Collections.Generic.List(Of Global.System.Data.Common.DataAdapter)()
44301             Dim revertConnections As Global.System.Collections.Generic.Dictionary(Of Object, Global.System.Data.IDbConnection) = New Global.System.Collections.Generic.Dictionary(Of Object, Global.System.Data.IDbConnection)()
44302             Dim result As Integer = 0
44303             Dim backupDataSet As Global.System.Data.DataSet = Nothing
44304             If Me.BackupDataSetBeforeUpdate Then
44305                 backupDataSet = New Global.System.Data.DataSet()
44306                 backupDataSet.Merge(dataSet)
44307             End If
44308             Try
44309                 '---- Prepare for update -----------
44310                 '
44311                 If (Not (Me._activationTableAdapter) Is Nothing) Then
44312                     revertConnections.Add(Me._activationTableAdapter, Me._activationTableAdapter.Connection)
44313                     Me._activationTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
44314                     Me._activationTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
44315                     If Me._activationTableAdapter.Adapter.AcceptChangesDuringUpdate Then
44316                         Me._activationTableAdapter.Adapter.AcceptChangesDuringUpdate = false
44317                         adaptersWithAcceptChangesDuringUpdate.Add(Me._activationTableAdapter.Adapter)
44318                     End If
44319                 End If
44320                 If (Not (Me._advanceEntryTableAdapter) Is Nothing) Then
44321                     revertConnections.Add(Me._advanceEntryTableAdapter, Me._advanceEntryTableAdapter.Connection)
44322                     Me._advanceEntryTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
44323                     Me._advanceEntryTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
44324                     If Me._advanceEntryTableAdapter.Adapter.AcceptChangesDuringUpdate Then
44325                         Me._advanceEntryTableAdapter.Adapter.AcceptChangesDuringUpdate = false
44326                         adaptersWithAcceptChangesDuringUpdate.Add(Me._advanceEntryTableAdapter.Adapter)
44327                     End If
44328                 End If
44329                 If (Not (Me._busCardHolder_StaffTableAdapter) Is Nothing) Then
44330                     revertConnections.Add(Me._busCardHolder_StaffTableAdapter, Me._busCardHolder_StaffTableAdapter.Connection)
44331                     Me._busCardHolder_StaffTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
44332                     Me._busCardHolder_StaffTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
44333                     If Me._busCardHolder_StaffTableAdapter.Adapter.AcceptChangesDuringUpdate Then
44334                         Me._busCardHolder_StaffTableAdapter.Adapter.AcceptChangesDuringUpdate = false
44335                         adaptersWithAcceptChangesDuringUpdate.Add(Me._busCardHolder_StaffTableAdapter.Adapter)
44336                     End If
44337                 End If
44338                 If (Not (Me._busCardHolder_StudentTableAdapter) Is Nothing) Then
44339                     revertConnections.Add(Me._busCardHolder_StudentTableAdapter, Me._busCardHolder_StudentTableAdapter.Connection)
44340                     Me._busCardHolder_StudentTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
44341                     Me._busCardHolder_StudentTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
44342                     If Me._busCardHolder_StudentTableAdapter.Adapter.AcceptChangesDuringUpdate Then
44343                         Me._busCardHolder_StudentTableAdapter.Adapter.AcceptChangesDuringUpdate = false
44344                         adaptersWithAcceptChangesDuringUpdate.Add(Me._busCardHolder_StudentTableAdapter.Adapter)
44345                     End If
44346                 End If
44347                 If (Not (Me._busFeePayment_StaffTableAdapter) Is Nothing) Then
44348                     revertConnections.Add(Me._busFeePayment_StaffTableAdapter, Me._busFeePayment_StaffTableAdapter.Connection)
44349                     Me._busFeePayment_StaffTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
44350                     Me._busFeePayment_StaffTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
44351                     If Me._busFeePayment_StaffTableAdapter.Adapter.AcceptChangesDuringUpdate Then
44352                         Me._busFeePayment_StaffTableAdapter.Adapter.AcceptChangesDuringUpdate = false
44353                         adaptersWithAcceptChangesDuringUpdate.Add(Me._busFeePayment_StaffTableAdapter.Adapter)
44354                     End If
44355                 End If
44356                 If (Not (Me._busFeePayment_StudentTableAdapter) Is Nothing) Then
44357                     revertConnections.Add(Me._busFeePayment_StudentTableAdapter, Me._busFeePayment_StudentTableAdapter.Connection)
44358                     Me._busFeePayment_StudentTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
44359                     Me._busFeePayment_StudentTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
44360                     If Me._busFeePayment_StudentTableAdapter.Adapter.AcceptChangesDuringUpdate Then
44361                         Me._busFeePayment_StudentTableAdapter.Adapter.AcceptChangesDuringUpdate = false
44362                         adaptersWithAcceptChangesDuringUpdate.Add(Me._busFeePayment_StudentTableAdapter.Adapter)
44363                     End If
44364                 End If
44365                 If (Not (Me._busInfoTableAdapter) Is Nothing) Then
44366                     revertConnections.Add(Me._busInfoTableAdapter, Me._busInfoTableAdapter.Connection)
44367                     Me._busInfoTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
44368                     Me._busInfoTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
44369                     If Me._busInfoTableAdapter.Adapter.AcceptChangesDuringUpdate Then
44370                         Me._busInfoTableAdapter.Adapter.AcceptChangesDuringUpdate = false
44371                         adaptersWithAcceptChangesDuringUpdate.Add(Me._busInfoTableAdapter.Adapter)
44372                     End If
44373                 End If
44374                 If (Not (Me._cards_StaffTableAdapter) Is Nothing) Then
44375                     revertConnections.Add(Me._cards_StaffTableAdapter, Me._cards_StaffTableAdapter.Connection)
44376                     Me._cards_StaffTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
44377                     Me._cards_StaffTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
44378                     If Me._cards_StaffTableAdapter.Adapter.AcceptChangesDuringUpdate Then
44379                         Me._cards_StaffTableAdapter.Adapter.AcceptChangesDuringUpdate = false
44380                         adaptersWithAcceptChangesDuringUpdate.Add(Me._cards_StaffTableAdapter.Adapter)
44381                     End If
44382                 End If
44383                 If (Not (Me._cards_StudentTableAdapter) Is Nothing) Then
44384                     revertConnections.Add(Me._cards_StudentTableAdapter, Me._cards_StudentTableAdapter.Connection)
44385                     Me._cards_StudentTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
44386                     Me._cards_StudentTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
44387                     If Me._cards_StudentTableAdapter.Adapter.AcceptChangesDuringUpdate Then
44388                         Me._cards_StudentTableAdapter.Adapter.AcceptChangesDuringUpdate = false
44389                         adaptersWithAcceptChangesDuringUpdate.Add(Me._cards_StudentTableAdapter.Adapter)
44390                     End If
44391                 End If
44392                 If (Not (Me._classTableAdapter) Is Nothing) Then
44393                     revertConnections.Add(Me._classTableAdapter, Me._classTableAdapter.Connection)
44394                     Me._classTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
44395                     Me._classTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
44396                     If Me._classTableAdapter.Adapter.AcceptChangesDuringUpdate Then
44397                         Me._classTableAdapter.Adapter.AcceptChangesDuringUpdate = false
44398                         adaptersWithAcceptChangesDuringUpdate.Add(Me._classTableAdapter.Adapter)
44399                     End If
44400                 End If
44401                 If (Not (Me._classTypeTableAdapter) Is Nothing) Then
44402                     revertConnections.Add(Me._classTypeTableAdapter, Me._classTypeTableAdapter.Connection)
44403                     Me._classTypeTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
44404                     Me._classTypeTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
44405                     If Me._classTypeTableAdapter.Adapter.AcceptChangesDuringUpdate Then
44406                         Me._classTypeTableAdapter.Adapter.AcceptChangesDuringUpdate = false
44407                         adaptersWithAcceptChangesDuringUpdate.Add(Me._classTypeTableAdapter.Adapter)
44408                     End If
44409                 End If
44410                 If (Not (Me._courseFeeTableAdapter) Is Nothing) Then
44411                     revertConnections.Add(Me._courseFeeTableAdapter, Me._courseFeeTableAdapter.Connection)
44412                     Me._courseFeeTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
44413                     Me._courseFeeTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
44414                     If Me._courseFeeTableAdapter.Adapter.AcceptChangesDuringUpdate Then
44415                         Me._courseFeeTableAdapter.Adapter.AcceptChangesDuringUpdate = false
44416                         adaptersWithAcceptChangesDuringUpdate.Add(Me._courseFeeTableAdapter.Adapter)
44417                     End If
44418                 End If
44419                 If (Not (Me._courseFeePaymentTableAdapter) Is Nothing) Then
44420                     revertConnections.Add(Me._courseFeePaymentTableAdapter, Me._courseFeePaymentTableAdapter.Connection)
44421                     Me._courseFeePaymentTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
44422                     Me._courseFeePaymentTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
44423                     If Me._courseFeePaymentTableAdapter.Adapter.AcceptChangesDuringUpdate Then
44424                         Me._courseFeePaymentTableAdapter.Adapter.AcceptChangesDuringUpdate = false
44425                         adaptersWithAcceptChangesDuringUpdate.Add(Me._courseFeePaymentTableAdapter.Adapter)
44426                     End If
44427                 End If
44428                 If (Not (Me._courseFeePayment_JoinTableAdapter) Is Nothing) Then
44429                     revertConnections.Add(Me._courseFeePayment_JoinTableAdapter, Me._courseFeePayment_JoinTableAdapter.Connection)
44430                     Me._courseFeePayment_JoinTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
44431                     Me._courseFeePayment_JoinTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
44432                     If Me._courseFeePayment_JoinTableAdapter.Adapter.AcceptChangesDuringUpdate Then
44433                         Me._courseFeePayment_JoinTableAdapter.Adapter.AcceptChangesDuringUpdate = false
44434                         adaptersWithAcceptChangesDuringUpdate.Add(Me._courseFeePayment_JoinTableAdapter.Adapter)
44435                     End If
44436                 End If
44437                 If (Not (Me._departmentTableAdapter) Is Nothing) Then
44438                     revertConnections.Add(Me._departmentTableAdapter, Me._departmentTableAdapter.Connection)
44439                     Me._departmentTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
44440                     Me._departmentTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
44441                     If Me._departmentTableAdapter.Adapter.AcceptChangesDuringUpdate Then
44442                         Me._departmentTableAdapter.Adapter.AcceptChangesDuringUpdate = false
44443                         adaptersWithAcceptChangesDuringUpdate.Add(Me._departmentTableAdapter.Adapter)
44444                     End If
44445                 End If
44446                 If (Not (Me._designationTableAdapter) Is Nothing) Then
44447                     revertConnections.Add(Me._designationTableAdapter, Me._designationTableAdapter.Connection)
44448                     Me._designationTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
44449                     Me._designationTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
44450                     If Me._designationTableAdapter.Adapter.AcceptChangesDuringUpdate Then
44451                         Me._designationTableAdapter.Adapter.AcceptChangesDuringUpdate = false
44452                         adaptersWithAcceptChangesDuringUpdate.Add(Me._designationTableAdapter.Adapter)
44453                     End If
44454                 End If
44455                 If (Not (Me._discountTableAdapter) Is Nothing) Then
44456                     revertConnections.Add(Me._discountTableAdapter, Me._discountTableAdapter.Connection)
44457                     Me._discountTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
44458                     Me._discountTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
44459                     If Me._discountTableAdapter.Adapter.AcceptChangesDuringUpdate Then
44460                         Me._discountTableAdapter.Adapter.AcceptChangesDuringUpdate = false
44461                         adaptersWithAcceptChangesDuringUpdate.Add(Me._discountTableAdapter.Adapter)
44462                     End If
44463                 End If
44464                 If (Not (Me._discount_StaffTableAdapter) Is Nothing) Then
44465                     revertConnections.Add(Me._discount_StaffTableAdapter, Me._discount_StaffTableAdapter.Connection)
44466                     Me._discount_StaffTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
44467                     Me._discount_StaffTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
44468                     If Me._discount_StaffTableAdapter.Adapter.AcceptChangesDuringUpdate Then
44469                         Me._discount_StaffTableAdapter.Adapter.AcceptChangesDuringUpdate = false
44470                         adaptersWithAcceptChangesDuringUpdate.Add(Me._discount_StaffTableAdapter.Adapter)
44471                     End If
44472                 End If
44473                 If (Not (Me._documentTableAdapter) Is Nothing) Then
44474                     revertConnections.Add(Me._documentTableAdapter, Me._documentTableAdapter.Connection)
44475                     Me._documentTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
44476                     Me._documentTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
44477                     If Me._documentTableAdapter.Adapter.AcceptChangesDuringUpdate Then
44478                         Me._documentTableAdapter.Adapter.AcceptChangesDuringUpdate = false
44479                         adaptersWithAcceptChangesDuringUpdate.Add(Me._documentTableAdapter.Adapter)
44480                     End If
44481                 End If
44482                 If (Not (Me._feeTableAdapter) Is Nothing) Then
44483                     revertConnections.Add(Me._feeTableAdapter, Me._feeTableAdapter.Connection)
44484                     Me._feeTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
44485                     Me._feeTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
44486                     If Me._feeTableAdapter.Adapter.AcceptChangesDuringUpdate Then
44487                         Me._feeTableAdapter.Adapter.AcceptChangesDuringUpdate = false
44488                         adaptersWithAcceptChangesDuringUpdate.Add(Me._feeTableAdapter.Adapter)
44489                     End If
44490                 End If
44491                 If (Not (Me._hostelerTableAdapter) Is Nothing) Then
44492                     revertConnections.Add(Me._hostelerTableAdapter, Me._hostelerTableAdapter.Connection)
44493                     Me._hostelerTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
44494                     Me._hostelerTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
44495                     If Me._hostelerTableAdapter.Adapter.AcceptChangesDuringUpdate Then
44496                         Me._hostelerTableAdapter.Adapter.AcceptChangesDuringUpdate = false
44497                         adaptersWithAcceptChangesDuringUpdate.Add(Me._hostelerTableAdapter.Adapter)
44498                     End If
44499                 End If
44500                 If (Not (Me._hostelFeePaymentTableAdapter) Is Nothing) Then
44501                     revertConnections.Add(Me._hostelFeePaymentTableAdapter, Me._hostelFeePaymentTableAdapter.Connection)
44502                     Me._hostelFeePaymentTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
44503                     Me._hostelFeePaymentTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
44504                     If Me._hostelFeePaymentTableAdapter.Adapter.AcceptChangesDuringUpdate Then
44505                         Me._hostelFeePaymentTableAdapter.Adapter.AcceptChangesDuringUpdate = false
44506                         adaptersWithAcceptChangesDuringUpdate.Add(Me._hostelFeePaymentTableAdapter.Adapter)
44507                     End If
44508                 End If
44509                 If (Not (Me._hostelInfoTableAdapter) Is Nothing) Then
44510                     revertConnections.Add(Me._hostelInfoTableAdapter, Me._hostelInfoTableAdapter.Connection)
44511                     Me._hostelInfoTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
44512                     Me._hostelInfoTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
44513                     If Me._hostelInfoTableAdapter.Adapter.AcceptChangesDuringUpdate Then
44514                         Me._hostelInfoTableAdapter.Adapter.AcceptChangesDuringUpdate = false
44515                         adaptersWithAcceptChangesDuringUpdate.Add(Me._hostelInfoTableAdapter.Adapter)
44516                     End If
44517                 End If
44518                 If (Not (Me._installment_BusTableAdapter) Is Nothing) Then
44519                     revertConnections.Add(Me._installment_BusTableAdapter, Me._installment_BusTableAdapter.Connection)
44520                     Me._installment_BusTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
44521                     Me._installment_BusTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
44522                     If Me._installment_BusTableAdapter.Adapter.AcceptChangesDuringUpdate Then
44523                         Me._installment_BusTableAdapter.Adapter.AcceptChangesDuringUpdate = false
44524                         adaptersWithAcceptChangesDuringUpdate.Add(Me._installment_BusTableAdapter.Adapter)
44525                     End If
44526                 End If
44527                 If (Not (Me._installment_HostelTableAdapter) Is Nothing) Then
44528                     revertConnections.Add(Me._installment_HostelTableAdapter, Me._installment_HostelTableAdapter.Connection)
44529                     Me._installment_HostelTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
44530                     Me._installment_HostelTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
44531                     If Me._installment_HostelTableAdapter.Adapter.AcceptChangesDuringUpdate Then
44532                         Me._installment_HostelTableAdapter.Adapter.AcceptChangesDuringUpdate = false
44533                         adaptersWithAcceptChangesDuringUpdate.Add(Me._installment_HostelTableAdapter.Adapter)
44534                     End If
44535                 End If
44536                 If (Not (Me._locationTableAdapter) Is Nothing) Then
44537                     revertConnections.Add(Me._locationTableAdapter, Me._locationTableAdapter.Connection)
44538                     Me._locationTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
44539                     Me._locationTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
44540                     If Me._locationTableAdapter.Adapter.AcceptChangesDuringUpdate Then
44541                         Me._locationTableAdapter.Adapter.AcceptChangesDuringUpdate = false
44542                         adaptersWithAcceptChangesDuringUpdate.Add(Me._locationTableAdapter.Adapter)
44543                     End If
44544                 End If
44545                 If (Not (Me._logsTableAdapter) Is Nothing) Then
44546                     revertConnections.Add(Me._logsTableAdapter, Me._logsTableAdapter.Connection)
44547                     Me._logsTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
44548                     Me._logsTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
44549                     If Me._logsTableAdapter.Adapter.AcceptChangesDuringUpdate Then
44550                         Me._logsTableAdapter.Adapter.AcceptChangesDuringUpdate = false
44551                         adaptersWithAcceptChangesDuringUpdate.Add(Me._logsTableAdapter.Adapter)
44552                     End If
44553                 End If
44554                 If (Not (Me._noDues_StaffTableAdapter) Is Nothing) Then
44555                     revertConnections.Add(Me._noDues_StaffTableAdapter, Me._noDues_StaffTableAdapter.Connection)
44556                     Me._noDues_StaffTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
44557                     Me._noDues_StaffTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
44558                     If Me._noDues_StaffTableAdapter.Adapter.AcceptChangesDuringUpdate Then
44559                         Me._noDues_StaffTableAdapter.Adapter.AcceptChangesDuringUpdate = false
44560                         adaptersWithAcceptChangesDuringUpdate.Add(Me._noDues_StaffTableAdapter.Adapter)
44561                     End If
44562                 End If
44563                 If (Not (Me._noDues_StudentTableAdapter) Is Nothing) Then
44564                     revertConnections.Add(Me._noDues_StudentTableAdapter, Me._noDues_StudentTableAdapter.Connection)
44565                     Me._noDues_StudentTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
44566                     Me._noDues_StudentTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
44567                     If Me._noDues_StudentTableAdapter.Adapter.AcceptChangesDuringUpdate Then
44568                         Me._noDues_StudentTableAdapter.Adapter.AcceptChangesDuringUpdate = false
44569                         adaptersWithAcceptChangesDuringUpdate.Add(Me._noDues_StudentTableAdapter.Adapter)
44570                     End If
44571                 End If
44572                 If (Not (Me._registrationTableAdapter) Is Nothing) Then
44573                     revertConnections.Add(Me._registrationTableAdapter, Me._registrationTableAdapter.Connection)
44574                     Me._registrationTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
44575                     Me._registrationTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
44576                     If Me._registrationTableAdapter.Adapter.AcceptChangesDuringUpdate Then
44577                         Me._registrationTableAdapter.Adapter.AcceptChangesDuringUpdate = false
44578                         adaptersWithAcceptChangesDuringUpdate.Add(Me._registrationTableAdapter.Adapter)
44579                     End If
44580                 End If
44581                 If (Not (Me._schoolInfoTableAdapter) Is Nothing) Then
44582                     revertConnections.Add(Me._schoolInfoTableAdapter, Me._schoolInfoTableAdapter.Connection)
44583                     Me._schoolInfoTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
44584                     Me._schoolInfoTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
44585                     If Me._schoolInfoTableAdapter.Adapter.AcceptChangesDuringUpdate Then
44586                         Me._schoolInfoTableAdapter.Adapter.AcceptChangesDuringUpdate = false
44587                         adaptersWithAcceptChangesDuringUpdate.Add(Me._schoolInfoTableAdapter.Adapter)
44588                     End If
44589                 End If
44590                 If (Not (Me._schoolTypeTableAdapter) Is Nothing) Then
44591                     revertConnections.Add(Me._schoolTypeTableAdapter, Me._schoolTypeTableAdapter.Connection)
44592                     Me._schoolTypeTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
44593                     Me._schoolTypeTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
44594                     If Me._schoolTypeTableAdapter.Adapter.AcceptChangesDuringUpdate Then
44595                         Me._schoolTypeTableAdapter.Adapter.AcceptChangesDuringUpdate = false
44596                         adaptersWithAcceptChangesDuringUpdate.Add(Me._schoolTypeTableAdapter.Adapter)
44597                     End If
44598                 End If
44599                 If (Not (Me._sectionTableAdapter) Is Nothing) Then
44600                     revertConnections.Add(Me._sectionTableAdapter, Me._sectionTableAdapter.Connection)
44601                     Me._sectionTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
44602                     Me._sectionTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
44603                     If Me._sectionTableAdapter.Adapter.AcceptChangesDuringUpdate Then
44604                         Me._sectionTableAdapter.Adapter.AcceptChangesDuringUpdate = false
44605                         adaptersWithAcceptChangesDuringUpdate.Add(Me._sectionTableAdapter.Adapter)
44606                     End If
44607                 End If
44608                 If (Not (Me._session_MasterTableAdapter) Is Nothing) Then
44609                     revertConnections.Add(Me._session_MasterTableAdapter, Me._session_MasterTableAdapter.Connection)
44610                     Me._session_MasterTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
44611                     Me._session_MasterTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
44612                     If Me._session_MasterTableAdapter.Adapter.AcceptChangesDuringUpdate Then
44613                         Me._session_MasterTableAdapter.Adapter.AcceptChangesDuringUpdate = false
44614                         adaptersWithAcceptChangesDuringUpdate.Add(Me._session_MasterTableAdapter.Adapter)
44615                     End If
44616                 End If
44617                 If (Not (Me._staffTableAdapter) Is Nothing) Then
44618                     revertConnections.Add(Me._staffTableAdapter, Me._staffTableAdapter.Connection)
44619                     Me._staffTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
44620                     Me._staffTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
44621                     If Me._staffTableAdapter.Adapter.AcceptChangesDuringUpdate Then
44622                         Me._staffTableAdapter.Adapter.AcceptChangesDuringUpdate = false
44623                         adaptersWithAcceptChangesDuringUpdate.Add(Me._staffTableAdapter.Adapter)
44624                     End If
44625                 End If
44626                 If (Not (Me._staff_DepartmentTableAdapter) Is Nothing) Then
44627                     revertConnections.Add(Me._staff_DepartmentTableAdapter, Me._staff_DepartmentTableAdapter.Connection)
44628                     Me._staff_DepartmentTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
44629                     Me._staff_DepartmentTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
44630                     If Me._staff_DepartmentTableAdapter.Adapter.AcceptChangesDuringUpdate Then
44631                         Me._staff_DepartmentTableAdapter.Adapter.AcceptChangesDuringUpdate = false
44632                         adaptersWithAcceptChangesDuringUpdate.Add(Me._staff_DepartmentTableAdapter.Adapter)
44633                     End If
44634                 End If
44635                 If (Not (Me._staffAttendanceTableAdapter) Is Nothing) Then
44636                     revertConnections.Add(Me._staffAttendanceTableAdapter, Me._staffAttendanceTableAdapter.Connection)
44637                     Me._staffAttendanceTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
44638                     Me._staffAttendanceTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
44639                     If Me._staffAttendanceTableAdapter.Adapter.AcceptChangesDuringUpdate Then
44640                         Me._staffAttendanceTableAdapter.Adapter.AcceptChangesDuringUpdate = false
44641                         adaptersWithAcceptChangesDuringUpdate.Add(Me._staffAttendanceTableAdapter.Adapter)
44642                     End If
44643                 End If
44644                 If (Not (Me._staffPaymentTableAdapter) Is Nothing) Then
44645                     revertConnections.Add(Me._staffPaymentTableAdapter, Me._staffPaymentTableAdapter.Connection)
44646                     Me._staffPaymentTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
44647                     Me._staffPaymentTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
44648                     If Me._staffPaymentTableAdapter.Adapter.AcceptChangesDuringUpdate Then
44649                         Me._staffPaymentTableAdapter.Adapter.AcceptChangesDuringUpdate = false
44650                         adaptersWithAcceptChangesDuringUpdate.Add(Me._staffPaymentTableAdapter.Adapter)
44651                     End If
44652                 End If
44653                 If (Not (Me._studentTableAdapter) Is Nothing) Then
44654                     revertConnections.Add(Me._studentTableAdapter, Me._studentTableAdapter.Connection)
44655                     Me._studentTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
44656                     Me._studentTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
44657                     If Me._studentTableAdapter.Adapter.AcceptChangesDuringUpdate Then
44658                         Me._studentTableAdapter.Adapter.AcceptChangesDuringUpdate = false
44659                         adaptersWithAcceptChangesDuringUpdate.Add(Me._studentTableAdapter.Adapter)
44660                     End If
44661                 End If
44662                 If (Not (Me._studentDocSubmittedTableAdapter) Is Nothing) Then
44663                     revertConnections.Add(Me._studentDocSubmittedTableAdapter, Me._studentDocSubmittedTableAdapter.Connection)
44664                     Me._studentDocSubmittedTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
44665                     Me._studentDocSubmittedTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
44666                     If Me._studentDocSubmittedTableAdapter.Adapter.AcceptChangesDuringUpdate Then
44667                         Me._studentDocSubmittedTableAdapter.Adapter.AcceptChangesDuringUpdate = false
44668                         adaptersWithAcceptChangesDuringUpdate.Add(Me._studentDocSubmittedTableAdapter.Adapter)
44669                     End If
44670                 End If
44671                 If (Not (Me._voucherTableAdapter) Is Nothing) Then
44672                     revertConnections.Add(Me._voucherTableAdapter, Me._voucherTableAdapter.Connection)
44673                     Me._voucherTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
44674                     Me._voucherTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
44675                     If Me._voucherTableAdapter.Adapter.AcceptChangesDuringUpdate Then
44676                         Me._voucherTableAdapter.Adapter.AcceptChangesDuringUpdate = false
44677                         adaptersWithAcceptChangesDuringUpdate.Add(Me._voucherTableAdapter.Adapter)
44678                     End If
44679                 End If
44680                 If (Not (Me._voucher_OtherDetailsTableAdapter) Is Nothing) Then
44681                     revertConnections.Add(Me._voucher_OtherDetailsTableAdapter, Me._voucher_OtherDetailsTableAdapter.Connection)
44682                     Me._voucher_OtherDetailsTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
44683                     Me._voucher_OtherDetailsTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
44684                     If Me._voucher_OtherDetailsTableAdapter.Adapter.AcceptChangesDuringUpdate Then
44685                         Me._voucher_OtherDetailsTableAdapter.Adapter.AcceptChangesDuringUpdate = false
44686                         adaptersWithAcceptChangesDuringUpdate.Add(Me._voucher_OtherDetailsTableAdapter.Adapter)
44687                     End If
44688                 End If
44689                 '
44690                 '---- Perform updates -----------
44691                 '
44692                 If (Me.UpdateOrder = UpdateOrderOption.UpdateInsertDelete) Then
44693                     result = (result + Me.UpdateUpdatedRows(dataSet, allChangedRows, allAddedRows))
44694                     result = (result + Me.UpdateInsertedRows(dataSet, allAddedRows))
44695                 Else
44696                     result = (result + Me.UpdateInsertedRows(dataSet, allAddedRows))
44697                     result = (result + Me.UpdateUpdatedRows(dataSet, allChangedRows, allAddedRows))
44698                 End If
44699                 result = (result + Me.UpdateDeletedRows(dataSet, allChangedRows))
44700                 '
44701                 '---- Commit updates -----------
44702                 '
44703                 workTransaction.Commit
44704                 If (0 < allAddedRows.Count) Then
44705                     Dim rows((allAddedRows.Count) - 1) As Global.System.Data.DataRow
44706                     allAddedRows.CopyTo(rows)
44707                     Dim i As Integer = 0
44708                     Do While (i < rows.Length)
44709                         Dim row As Global.System.Data.DataRow = rows(i)
44710                         row.AcceptChanges
44711                         i = (i + 1)
44712                     Loop
44713                 End If
44714                 If (0 < allChangedRows.Count) Then
44715                     Dim rows((allChangedRows.Count) - 1) As Global.System.Data.DataRow
44716                     allChangedRows.CopyTo(rows)
44717                     Dim i As Integer = 0
44718                     Do While (i < rows.Length)
44719                         Dim row As Global.System.Data.DataRow = rows(i)
44720                         row.AcceptChanges
44721                         i = (i + 1)
44722                     Loop
44723                 End If
44724             Catch ex As Global.System.Exception
44725                 workTransaction.Rollback
44726                 '---- Restore the dataset -----------
44727                 If Me.BackupDataSetBeforeUpdate Then
44728                     Global.System.Diagnostics.Debug.Assert((Not (backupDataSet) Is Nothing))
44729                     dataSet.Clear
44730                     dataSet.Merge(backupDataSet)
44731                 Else
44732                     If (0 < allAddedRows.Count) Then
44733                         Dim rows((allAddedRows.Count) - 1) As Global.System.Data.DataRow
44734                         allAddedRows.CopyTo(rows)
44735                         Dim i As Integer = 0
44736                         Do While (i < rows.Length)
44737                             Dim row As Global.System.Data.DataRow = rows(i)
44738                             row.AcceptChanges
44739                             row.SetAdded
44740                             i = (i + 1)
44741                         Loop
44742                     End If
44743                 End If
44744                 Throw ex
44745             Finally
44746                 If workConnOpened Then
44747                     workConnection.Close
44748                 End If
44749                 If (Not (Me._activationTableAdapter) Is Nothing) Then
44750                     Me._activationTableAdapter.Connection = CType(revertConnections(Me._activationTableAdapter),Global.System.Data.SqlClient.SqlConnection)
44751                     Me._activationTableAdapter.Transaction = Nothing
44752                 End If
44753                 If (Not (Me._advanceEntryTableAdapter) Is Nothing) Then
44754                     Me._advanceEntryTableAdapter.Connection = CType(revertConnections(Me._advanceEntryTableAdapter),Global.System.Data.SqlClient.SqlConnection)
44755                     Me._advanceEntryTableAdapter.Transaction = Nothing
44756                 End If
44757                 If (Not (Me._busCardHolder_StaffTableAdapter) Is Nothing) Then
44758                     Me._busCardHolder_StaffTableAdapter.Connection = CType(revertConnections(Me._busCardHolder_StaffTableAdapter),Global.System.Data.SqlClient.SqlConnection)
44759                     Me._busCardHolder_StaffTableAdapter.Transaction = Nothing
44760                 End If
44761                 If (Not (Me._busCardHolder_StudentTableAdapter) Is Nothing) Then
44762                     Me._busCardHolder_StudentTableAdapter.Connection = CType(revertConnections(Me._busCardHolder_StudentTableAdapter),Global.System.Data.SqlClient.SqlConnection)
44763                     Me._busCardHolder_StudentTableAdapter.Transaction = Nothing
44764                 End If
44765                 If (Not (Me._busFeePayment_StaffTableAdapter) Is Nothing) Then
44766                     Me._busFeePayment_StaffTableAdapter.Connection = CType(revertConnections(Me._busFeePayment_StaffTableAdapter),Global.System.Data.SqlClient.SqlConnection)
44767                     Me._busFeePayment_StaffTableAdapter.Transaction = Nothing
44768                 End If
44769                 If (Not (Me._busFeePayment_StudentTableAdapter) Is Nothing) Then
44770                     Me._busFeePayment_StudentTableAdapter.Connection = CType(revertConnections(Me._busFeePayment_StudentTableAdapter),Global.System.Data.SqlClient.SqlConnection)
44771                     Me._busFeePayment_StudentTableAdapter.Transaction = Nothing
44772                 End If
44773                 If (Not (Me._busInfoTableAdapter) Is Nothing) Then
44774                     Me._busInfoTableAdapter.Connection = CType(revertConnections(Me._busInfoTableAdapter),Global.System.Data.SqlClient.SqlConnection)
44775                     Me._busInfoTableAdapter.Transaction = Nothing
44776                 End If
44777                 If (Not (Me._cards_StaffTableAdapter) Is Nothing) Then
44778                     Me._cards_StaffTableAdapter.Connection = CType(revertConnections(Me._cards_StaffTableAdapter),Global.System.Data.SqlClient.SqlConnection)
44779                     Me._cards_StaffTableAdapter.Transaction = Nothing
44780                 End If
44781                 If (Not (Me._cards_StudentTableAdapter) Is Nothing) Then
44782                     Me._cards_StudentTableAdapter.Connection = CType(revertConnections(Me._cards_StudentTableAdapter),Global.System.Data.SqlClient.SqlConnection)
44783                     Me._cards_StudentTableAdapter.Transaction = Nothing
44784                 End If
44785                 If (Not (Me._classTableAdapter) Is Nothing) Then
44786                     Me._classTableAdapter.Connection = CType(revertConnections(Me._classTableAdapter),Global.System.Data.SqlClient.SqlConnection)
44787                     Me._classTableAdapter.Transaction = Nothing
44788                 End If
44789                 If (Not (Me._classTypeTableAdapter) Is Nothing) Then
44790                     Me._classTypeTableAdapter.Connection = CType(revertConnections(Me._classTypeTableAdapter),Global.System.Data.SqlClient.SqlConnection)
44791                     Me._classTypeTableAdapter.Transaction = Nothing
44792                 End If
44793                 If (Not (Me._courseFeeTableAdapter) Is Nothing) Then
44794                     Me._courseFeeTableAdapter.Connection = CType(revertConnections(Me._courseFeeTableAdapter),Global.System.Data.SqlClient.SqlConnection)
44795                     Me._courseFeeTableAdapter.Transaction = Nothing
44796                 End If
44797                 If (Not (Me._courseFeePaymentTableAdapter) Is Nothing) Then
44798                     Me._courseFeePaymentTableAdapter.Connection = CType(revertConnections(Me._courseFeePaymentTableAdapter),Global.System.Data.SqlClient.SqlConnection)
44799                     Me._courseFeePaymentTableAdapter.Transaction = Nothing
44800                 End If
44801                 If (Not (Me._courseFeePayment_JoinTableAdapter) Is Nothing) Then
44802                     Me._courseFeePayment_JoinTableAdapter.Connection = CType(revertConnections(Me._courseFeePayment_JoinTableAdapter),Global.System.Data.SqlClient.SqlConnection)
44803                     Me._courseFeePayment_JoinTableAdapter.Transaction = Nothing
44804                 End If
44805                 If (Not (Me._departmentTableAdapter) Is Nothing) Then
44806                     Me._departmentTableAdapter.Connection = CType(revertConnections(Me._departmentTableAdapter),Global.System.Data.SqlClient.SqlConnection)
44807                     Me._departmentTableAdapter.Transaction = Nothing
44808                 End If
44809                 If (Not (Me._designationTableAdapter) Is Nothing) Then
44810                     Me._designationTableAdapter.Connection = CType(revertConnections(Me._designationTableAdapter),Global.System.Data.SqlClient.SqlConnection)
44811                     Me._designationTableAdapter.Transaction = Nothing
44812                 End If
44813                 If (Not (Me._discountTableAdapter) Is Nothing) Then
44814                     Me._discountTableAdapter.Connection = CType(revertConnections(Me._discountTableAdapter),Global.System.Data.SqlClient.SqlConnection)
44815                     Me._discountTableAdapter.Transaction = Nothing
44816                 End If
44817                 If (Not (Me._discount_StaffTableAdapter) Is Nothing) Then
44818                     Me._discount_StaffTableAdapter.Connection = CType(revertConnections(Me._discount_StaffTableAdapter),Global.System.Data.SqlClient.SqlConnection)
44819                     Me._discount_StaffTableAdapter.Transaction = Nothing
44820                 End If
44821                 If (Not (Me._documentTableAdapter) Is Nothing) Then
44822                     Me._documentTableAdapter.Connection = CType(revertConnections(Me._documentTableAdapter),Global.System.Data.SqlClient.SqlConnection)
44823                     Me._documentTableAdapter.Transaction = Nothing
44824                 End If
44825                 If (Not (Me._feeTableAdapter) Is Nothing) Then
44826                     Me._feeTableAdapter.Connection = CType(revertConnections(Me._feeTableAdapter),Global.System.Data.SqlClient.SqlConnection)
44827                     Me._feeTableAdapter.Transaction = Nothing
44828                 End If
44829                 If (Not (Me._hostelerTableAdapter) Is Nothing) Then
44830                     Me._hostelerTableAdapter.Connection = CType(revertConnections(Me._hostelerTableAdapter),Global.System.Data.SqlClient.SqlConnection)
44831                     Me._hostelerTableAdapter.Transaction = Nothing
44832                 End If
44833                 If (Not (Me._hostelFeePaymentTableAdapter) Is Nothing) Then
44834                     Me._hostelFeePaymentTableAdapter.Connection = CType(revertConnections(Me._hostelFeePaymentTableAdapter),Global.System.Data.SqlClient.SqlConnection)
44835                     Me._hostelFeePaymentTableAdapter.Transaction = Nothing
44836                 End If
44837                 If (Not (Me._hostelInfoTableAdapter) Is Nothing) Then
44838                     Me._hostelInfoTableAdapter.Connection = CType(revertConnections(Me._hostelInfoTableAdapter),Global.System.Data.SqlClient.SqlConnection)
44839                     Me._hostelInfoTableAdapter.Transaction = Nothing
44840                 End If
44841                 If (Not (Me._installment_BusTableAdapter) Is Nothing) Then
44842                     Me._installment_BusTableAdapter.Connection = CType(revertConnections(Me._installment_BusTableAdapter),Global.System.Data.SqlClient.SqlConnection)
44843                     Me._installment_BusTableAdapter.Transaction = Nothing
44844                 End If
44845                 If (Not (Me._installment_HostelTableAdapter) Is Nothing) Then
44846                     Me._installment_HostelTableAdapter.Connection = CType(revertConnections(Me._installment_HostelTableAdapter),Global.System.Data.SqlClient.SqlConnection)
44847                     Me._installment_HostelTableAdapter.Transaction = Nothing
44848                 End If
44849                 If (Not (Me._locationTableAdapter) Is Nothing) Then
44850                     Me._locationTableAdapter.Connection = CType(revertConnections(Me._locationTableAdapter),Global.System.Data.SqlClient.SqlConnection)
44851                     Me._locationTableAdapter.Transaction = Nothing
44852                 End If
44853                 If (Not (Me._logsTableAdapter) Is Nothing) Then
44854                     Me._logsTableAdapter.Connection = CType(revertConnections(Me._logsTableAdapter),Global.System.Data.SqlClient.SqlConnection)
44855                     Me._logsTableAdapter.Transaction = Nothing
44856                 End If
44857                 If (Not (Me._noDues_StaffTableAdapter) Is Nothing) Then
44858                     Me._noDues_StaffTableAdapter.Connection = CType(revertConnections(Me._noDues_StaffTableAdapter),Global.System.Data.SqlClient.SqlConnection)
44859                     Me._noDues_StaffTableAdapter.Transaction = Nothing
44860                 End If
44861                 If (Not (Me._noDues_StudentTableAdapter) Is Nothing) Then
44862                     Me._noDues_StudentTableAdapter.Connection = CType(revertConnections(Me._noDues_StudentTableAdapter),Global.System.Data.SqlClient.SqlConnection)
44863                     Me._noDues_StudentTableAdapter.Transaction = Nothing
44864                 End If
44865                 If (Not (Me._registrationTableAdapter) Is Nothing) Then
44866                     Me._registrationTableAdapter.Connection = CType(revertConnections(Me._registrationTableAdapter),Global.System.Data.SqlClient.SqlConnection)
44867                     Me._registrationTableAdapter.Transaction = Nothing
44868                 End If
44869                 If (Not (Me._schoolInfoTableAdapter) Is Nothing) Then
44870                     Me._schoolInfoTableAdapter.Connection = CType(revertConnections(Me._schoolInfoTableAdapter),Global.System.Data.SqlClient.SqlConnection)
44871                     Me._schoolInfoTableAdapter.Transaction = Nothing
44872                 End If
44873                 If (Not (Me._schoolTypeTableAdapter) Is Nothing) Then
44874                     Me._schoolTypeTableAdapter.Connection = CType(revertConnections(Me._schoolTypeTableAdapter),Global.System.Data.SqlClient.SqlConnection)
44875                     Me._schoolTypeTableAdapter.Transaction = Nothing
44876                 End If
44877                 If (Not (Me._sectionTableAdapter) Is Nothing) Then
44878                     Me._sectionTableAdapter.Connection = CType(revertConnections(Me._sectionTableAdapter),Global.System.Data.SqlClient.SqlConnection)
44879                     Me._sectionTableAdapter.Transaction = Nothing
44880                 End If
44881                 If (Not (Me._session_MasterTableAdapter) Is Nothing) Then
44882                     Me._session_MasterTableAdapter.Connection = CType(revertConnections(Me._session_MasterTableAdapter),Global.System.Data.SqlClient.SqlConnection)
44883                     Me._session_MasterTableAdapter.Transaction = Nothing
44884                 End If
44885                 If (Not (Me._staffTableAdapter) Is Nothing) Then
44886                     Me._staffTableAdapter.Connection = CType(revertConnections(Me._staffTableAdapter),Global.System.Data.SqlClient.SqlConnection)
44887                     Me._staffTableAdapter.Transaction = Nothing
44888                 End If
44889                 If (Not (Me._staff_DepartmentTableAdapter) Is Nothing) Then
44890                     Me._staff_DepartmentTableAdapter.Connection = CType(revertConnections(Me._staff_DepartmentTableAdapter),Global.System.Data.SqlClient.SqlConnection)
44891                     Me._staff_DepartmentTableAdapter.Transaction = Nothing
44892                 End If
44893                 If (Not (Me._staffAttendanceTableAdapter) Is Nothing) Then
44894                     Me._staffAttendanceTableAdapter.Connection = CType(revertConnections(Me._staffAttendanceTableAdapter),Global.System.Data.SqlClient.SqlConnection)
44895                     Me._staffAttendanceTableAdapter.Transaction = Nothing
44896                 End If
44897                 If (Not (Me._staffPaymentTableAdapter) Is Nothing) Then
44898                     Me._staffPaymentTableAdapter.Connection = CType(revertConnections(Me._staffPaymentTableAdapter),Global.System.Data.SqlClient.SqlConnection)
44899                     Me._staffPaymentTableAdapter.Transaction = Nothing
44900                 End If
44901                 If (Not (Me._studentTableAdapter) Is Nothing) Then
44902                     Me._studentTableAdapter.Connection = CType(revertConnections(Me._studentTableAdapter),Global.System.Data.SqlClient.SqlConnection)
44903                     Me._studentTableAdapter.Transaction = Nothing
44904                 End If
44905                 If (Not (Me._studentDocSubmittedTableAdapter) Is Nothing) Then
44906                     Me._studentDocSubmittedTableAdapter.Connection = CType(revertConnections(Me._studentDocSubmittedTableAdapter),Global.System.Data.SqlClient.SqlConnection)
44907                     Me._studentDocSubmittedTableAdapter.Transaction = Nothing
44908                 End If
44909                 If (Not (Me._voucherTableAdapter) Is Nothing) Then
44910                     Me._voucherTableAdapter.Connection = CType(revertConnections(Me._voucherTableAdapter),Global.System.Data.SqlClient.SqlConnection)
44911                     Me._voucherTableAdapter.Transaction = Nothing
44912                 End If
44913                 If (Not (Me._voucher_OtherDetailsTableAdapter) Is Nothing) Then
44914                     Me._voucher_OtherDetailsTableAdapter.Connection = CType(revertConnections(Me._voucher_OtherDetailsTableAdapter),Global.System.Data.SqlClient.SqlConnection)
44915                     Me._voucher_OtherDetailsTableAdapter.Transaction = Nothing
44916                 End If
44917                 If (0 < adaptersWithAcceptChangesDuringUpdate.Count) Then
44918                     Dim adapters((adaptersWithAcceptChangesDuringUpdate.Count) - 1) As Global.System.Data.Common.DataAdapter
44919                     adaptersWithAcceptChangesDuringUpdate.CopyTo(adapters)
44920                     Dim i As Integer = 0
44921                     Do While (i < adapters.Length)
44922                         Dim adapter As Global.System.Data.Common.DataAdapter = adapters(i)
44923                         adapter.AcceptChangesDuringUpdate = true
44924                         i = (i + 1)
44925                     Loop
44926                 End If
44927             End Try
44928             Return result
44929         End Function
44930         
44931         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
44932          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
44933         Protected Overridable Sub SortSelfReferenceRows(ByVal rows() As Global.System.Data.DataRow, ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean)
44934             Global.System.Array.Sort(Of Global.System.Data.DataRow)(rows, New SelfReferenceComparer(relation, childFirst))
44935         End Sub
44936         
44937         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
44938          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
44939         Protected Overridable Function MatchTableAdapterConnection(ByVal inputConnection As Global.System.Data.IDbConnection) As Boolean
44940             If (Not (Me._connection) Is Nothing) Then
44941                 Return true
44942             End If
44943             If ((Me.Connection Is Nothing) _
44944                         OrElse (inputConnection Is Nothing)) Then
44945                 Return true
44946             End If
44947             If String.Equals(Me.Connection.ConnectionString, inputConnection.ConnectionString, Global.System.StringComparison.Ordinal) Then
44948                 Return true
44949             End If
44950             Return false
44951         End Function
44952         
44953         '''<summary>
44954         '''Update Order Option
44955         '''</summary>
44956         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
44957         Public Enum UpdateOrderOption
44958             
44959             InsertUpdateDelete = 0
44960             
44961             UpdateInsertDelete = 1
44962         End Enum
44963         
44964         '''<summary>
44965         '''Used to sort self-referenced table's rows
44966         '''</summary>
44967         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
44968         Private Class SelfReferenceComparer
44969             Inherits Object
44970             Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow)
44971             
44972             Private _relation As Global.System.Data.DataRelation
44973             
44974             Private _childFirst As Integer
44975             
44976             <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
44977              Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
44978             Friend Sub New(ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean)
44979                 MyBase.New
44980                 Me._relation = relation
44981                 If childFirst Then
44982                     Me._childFirst = -1
44983                 Else
44984                     Me._childFirst = 1
44985                 End If
44986             End Sub
44987             
44988             <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
44989              Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
44990             Private Function GetRoot(ByVal row As Global.System.Data.DataRow, ByRef distance As Integer) As Global.System.Data.DataRow
44991                 Global.System.Diagnostics.Debug.Assert((Not (row) Is Nothing))
44992                 Dim root As Global.System.Data.DataRow = row
44993                 distance = 0
44994
44995                 Dim traversedRows As Global.System.Collections.Generic.IDictionary(Of Global.System.Data.DataRow, Global.System.Data.DataRow) = New Global.System.Collections.Generic.Dictionary(Of Global.System.Data.DataRow, Global.System.Data.DataRow)()
44996                 traversedRows(row) = row
44997
44998                 Dim parent As Global.System.Data.DataRow = row.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.[Default])
44999
45000                 Do While ((Not (parent) Is Nothing) _
45001                             AndAlso (traversedRows.ContainsKey(parent) = false))
45002                     distance = (distance + 1)
45003                     root = parent
45004                     traversedRows(parent) = parent
45005                     parent = parent.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.[Default])
45006
45007                 Loop
45008
45009                 If (distance = 0) Then
45010                     traversedRows.Clear
45011                     traversedRows(row) = row
45012                     parent = row.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.Original)
45013
45014                     Do While ((Not (parent) Is Nothing) _
45015                                 AndAlso (traversedRows.ContainsKey(parent) = false))
45016                         distance = (distance + 1)
45017                         root = parent
45018                         traversedRows(parent) = parent
45019                         parent = parent.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.Original)
45020
45021                     Loop
45022                 End If
45023
45024                 Return root
45025             End Function
45026             
45027             <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
45028              Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
45029             Public Function Compare(ByVal row1 As Global.System.Data.DataRow, ByVal row2 As Global.System.Data.DataRow) As Integer Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow).Compare
45030                 If Object.ReferenceEquals(row1, row2) Then
45031                     Return 0
45032                 End If
45033                 If (row1 Is Nothing) Then
45034                     Return -1
45035                 End If
45036                 If (row2 Is Nothing) Then
45037                     Return 1
45038                 End If
45039
45040                 Dim distance1 As Integer = 0
45041                 Dim root1 As Global.System.Data.DataRow = Me.GetRoot(row1, distance1)
45042
45043                 Dim distance2 As Integer = 0
45044                 Dim root2 As Global.System.Data.DataRow = Me.GetRoot(row2, distance2)
45045
45046                 If Object.ReferenceEquals(root1, root2) Then
45047                     Return (Me._childFirst * distance1.CompareTo(distance2))
45048                 Else
45049                     Global.System.Diagnostics.Debug.Assert(((Not (root1.Table) Is Nothing) _
45050                                     AndAlso (Not (root2.Table) Is Nothing)))
45051                     If (root1.Table.Rows.IndexOf(root1) < root2.Table.Rows.IndexOf(root2)) Then
45052                         Return -1
45053                     Else
45054                         Return 1
45055                     End If
45056                 End If
45057             End Function
45058         End Class
45059     End Class
45060 End Namespace


Web, Tìm kết quả nhanh

Kích thước hoặc độ phức tạp của bản gửi này, tác giả đã gửi nó dưới dạng tệp .zip để rút ngắn thời gian tải xuống của bạn. Sau khi tải xuống, bạn sẽ cần một chương trình như Winzip để giải nén nó.

Tất cả các tệp đều được codefly.vn quét mỗi ngày một lần để tìm vi-rút, nhưng vi-rút mới xuất hiện hàng ngày nên không có chương trình phòng ngừa nào có thể bắt được 100% chúng.

ĐỂ AN TOÀN CỦA CHÍNH BẠN, VUI LÒNG:

1. Quét lại các tệp đã tải xuống bằng trình kiểm tra vi-rút cá nhân của bạn trước khi sử dụng.

2. KHÔNG BAO GIỜ, chạy các tệp đã biên dịch (.exe's, .ocx's, .dll's, v.v.)--chỉ chạy code mà bạn đã xem ít nhất 1 lần.

Official Website:

https://www.techprofree.com/.....c-with-source-code/

Gõ tìm kiếm nhanh...



Dự án liên quan!

Cách tạo đồng hồ bấm giờ trong C#

66 lượt xem

Hệ thống quản lý hàng tồn kho sử dụng cơ sở dữ liệu VB.NET và MySQL với mã nguồn

67 lượt xem

Đếm nguyên âm và phụ âm

110 lượt xem

Phần mềm quản lý nhân viên hiện đại sử dụng C#.net và Bunifu Framework với Full Source Code (2020)

171 lượt xem

Hệ thống quản lý đại học bằng C# với mã nguồn đầy đủ

134 lượt xem

Hệ thống quản lý bệnh viện bằng C# với mã nguồn đầy đủ

152 lượt xem